Add base url config option.

-- | A nebelhorn config.

data Config = Config {

    configBaseUrl :: String,

    configFolderOutput :: Path Rel Dir,

    configFolderArticle :: Path Rel Dir,

    configFolderPage :: Path Rel Dir,

instance FromJSON Config where

    parseJSON = withObject "Config" $ \v -> Config

        <$> v .:? "folderOutput" .!= [reldir|out|]

        <$> v .:  "baseUrl" .!= "https://example.com"

        <*> v .:? "folderOutput" .!= [reldir|out|]

        <*> v .:? "folderArticle" .!= [reldir|article|]

        <*> v .:? "folderPage" .!= [reldir|page|]

        <*> v .:? "templateArticle" .!= [relfile|template/article.html|]

import Config

import Text.Pandoc.Definition

-- TODO: Refactor used used types to be more consistent

-- | The Nebelhorn type.

data Nebelhorn = Nebelhorn {

    nebelhornBaseUrl :: String,

    nebelhornFolderOutput :: Path Rel Dir,  -- ^ The folder path to put the output into.

    nebelhornFoldersToCopy :: [Path Rel Dir],  -- ^ The list of folders to just copy over.

    nebelhornNavItems :: [NavItem],  -- ^ The list of navitems for the navbars.

-- | Reads in a Nebelhorn value using a config.

load :: (PandocMonad m, MonadIO m) => Config -> m Nebelhorn

load Config{..} = Nebelhorn

    <$> return configFolderOutput

    <$> return configBaseUrl

    <*> return configFolderOutput

    <*> return configFoldersToCopy

    <*> return configNavbar

    <*> uncurry linkIntoMeta <$$> prependPath configFolderArticle