1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
{-# 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
|
