{-# LANGUAGE TemplateHaskell #-}
module Site.Content
        ( Content(..)
        , contentPattern
        , contentPaths
        , contentRoute
        , contentContext
        , contentTemplate
        , contentIndexContext
        , contentIndexTemplate
        )
where

import           Control.Lens
import           Hakyll                         ( Pattern
                                                , Context
                                                , Routes
                                                , Identifier
                                                )

-- the information for a kind of content, e.g. notes
data Content = Content {
    _contentPattern       :: Pattern
  , _contentPaths         :: [Identifier]
  , _contentRoute         :: Routes
  , _contentContext       :: Hakyll.Context String
  , _contentTemplate      :: String
  , _contentIndexContext  :: Hakyll.Context String
  , _contentIndexTemplate :: String
  }

makeLenses ''Content