Remove old stuff

getNavbarMeta :: [Navitem] -> MetaValue

getNavbarMeta navItems = MetaList $ map (\Navitem{..} -> MetaMap $ Map.fromList [("name", MetaString $ unpack navitemName), ("link", MetaString $ unpack navitemLink)]) navItems

{- -- | Extracts the main navbar links from the Pandocs of the pages.

navbarLinks :: [Pandoc] -> [(Text, FilePath)]

navbarLinks = (("Home", "index.html"):) . map (\pandoc -> (titleString pandoc, getFileName pandoc)) -}

{- writeFile :: (PandocMonad m, MonadIO m) => WriterOptions -> FilePath -> Pandoc -> m ()

writeFile options path pandoc = do

    liftIO $ do

        doesFileExist path >>= \case

            True -> fail "Can't create directory"

            _ -> return ()

        createDirectoryIfMissing True path

    output <- writeHtml5String options pandoc

    liftIO $ writeFileUtf8 (path </> "index.html") output -}

{- Whole processing pipeline

- Load config

- Load templates

- Load articles

- Load pages

- Generate navbar from config

- Generate home page

  - Extract dates from articles (how to sort articles from same day? Name? Additional attribute?)

  - Extract first paragraphs and titles

  - Sort and assemble them (how to handle many articles/multiple pages)

- Generate RSS feed

- [Generate category pages just like home page]

- Search? Embed DDG or something own using JS (maybe using the rss feed)?

- Process all files

- Save all files

-}

data Summary = Summary {

    summaryTitle :: MetaValue,

    summaryDate :: MetaValue,

    summaryContent :: MetaValue

} deriving Eq

instance Ord Summary where

    x <= y = summaryDate x < summaryDate y

        || (summaryDate x == summaryDate y && summaryTitle x < summaryTitle y)

        || (summaryDate x == summaryDate y && summaryTitle x == summaryTitle y && summaryLink x < summaryLink y)

        || (summaryDate x == summaryDate y && summaryTitle x == summaryTitle y && summaryLink x == summaryLink y && summaryContent x <= summaryContent y)

read :: (PandocMonad m) => Text -> m Pandoc

read = readMarkdown readerOptions where

    readerOptions = def {readerExtensions = pandocExtensions}

            return (path, contentW)

generateIndex :: Meta -> [(Path Rel File, Pandoc)] -> Pandoc

generateIndex extraMeta = generateIndex' extraMeta . sortOn Down . map (uncurry generateSummary) where

generateIndex extraMeta = generateIndex' extraMeta . sortOn (Down . summaryDate) . map (uncurry generateSummary) where

    generateIndex' :: Meta -> [Summary] -> Pandoc

    generateIndex' extraMeta summaries = Pandoc meta [] where

        meta = extraMeta <> Meta (Map.fromList [("pagetitle", MetaString "Home"), ("articles", MetaList articles)])