@@ -11,23 +11,24 @@ module Text.Hakyll.Page
11import qualified Data.Map as M
11import qualified Data.Map as M
12import qualified Data.List as L
12import qualified Data.List as L
13import qualified Data.ByteString.Lazy.Char8 as B
13import qualified Data.ByteString.Lazy.Char8 as B
14−import Data.Maybe
14+import Data.Maybe (fromMaybe)
17−import System.FilePath
16+import System.FilePath (FilePath, takeExtension)
18import System.IO
17import System.IO
20import Text.Hakyll.File
19import Text.Hakyll.File
21−import Text.Hakyll.Util
20+import Text.Hakyll.Util (trim)
22import Text.Hakyll.Renderable
21import Text.Hakyll.Renderable
23import Text.Pandoc
22import Text.Pandoc
24+import Text.Template (Context)
25-- | A Page is basically key-value mapping. Certain keys have special
26-- | A Page is basically key-value mapping. Certain keys have special
26-- meanings, like for example url, body and title.
27-- meanings, like for example url, body and title.
27−data Page = Page (M.Map B.ByteString B.ByteString)
28+data Page = Page Context
29-- | Create a Page from a key-value mapping.
30-- | Create a Page from a key-value mapping.
30−fromContext :: (M.Map B.ByteString B.ByteString) -> Page
31+fromContext :: Context -> Page
31fromContext = Page
32fromContext = Page
33-- | Obtain a value from a page. Will resturn an empty string when nothing is
34-- | Obtain a value from a page. Will resturn an empty string when nothing is