A whole bunch of stuff mkay

import Control.Monad.Catch

import Path

import Path.IO

import System.Process

import Text.Pandoc

import Text.Pandoc.Shared

import qualified Data.Map as Map

-- | Predicate that checks whether a file is a markdown file using the file extension.

-- | Processes a Markdown document into a complete HTML5 document and a summary for using a template.

processDocument :: (PandocMonad m) => Text -> Meta -> Text -> m (Text, Summary)

processDocument template extraMeta input = do

    inputP <- headerShift 2 . addMeta extraMeta <$> readMarkdown readerOptions input

    inputP <- addMeta extraMeta <$> readMarkdown readerOptions input

    output <- writeHtml5String writerOptions inputP

    return (output, Summary (titleString inputP) "0000-00-00" "This is a placeholder summary.")

    where

getAbstract :: Pandoc -> Pandoc

getAbstract (Pandoc m bs) = Pandoc m (take 2 bs)

copyFolders :: Config -> IO ()

copyFolders Config{..} = do

    folders <- mapM parseRelDir configFoldersToCopy

    forM_ folders $ \folder -> copyDirRecur folder ([reldir|out|] </> folder)

compileStylesheet :: IO ()

compileStylesheet = callCommand $ "sassc style/stylesheet.scss out/style/stylesheet.css"

build :: IO ()

build = loadConfig >>= \case

    Left ex -> fail $ "Error while reading config: " <> show ex

    Right Config{..} -> do

    Right config@Config{..} -> do

        copyFolders config

        compileStylesheet

        templateArticle <- readFileUtf8 configTemplateArticle

        -- templatePage <- readFileUtf8 configTemplatePage

        -- templateIndex <- readFileUtf8 configTemplateIndex

    configTemplateArticle :: FilePath,

    configTemplatePage :: FilePath,

    configTemplateIndex :: FilePath,

    configStylesheet :: FilePath,

    configFoldersToCopy :: [FilePath],

    configNavbar :: [Navitem]

} deriving (Show, Generic)

import ClassyPrelude

import Config

import System.Process

compileStylesheet :: Config -> IO ()

compileStylesheet Config {..} = callCommand $ "sassc " <> configStylesheet <> "out/stylesheet.css"