From f6c4fb849d00dfc5b197651ac062e9c38d6375f5 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sun, 18 Nov 2012 22:41:41 +0100 Subject: Add metadata to context --- src/Hakyll/Web/Template/Context.hs | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'src/Hakyll') diff --git a/src/Hakyll/Web/Template/Context.hs b/src/Hakyll/Web/Template/Context.hs index b3c2a6d..269347b 100644 --- a/src/Hakyll/Web/Template/Context.hs +++ b/src/Hakyll/Web/Template/Context.hs @@ -6,6 +6,7 @@ module Hakyll.Web.Template.Context , defaultContext , bodyField + , metadataField , urlField , pathField , categoryField @@ -66,6 +67,7 @@ field key value = Context $ \k i -> if k == key then value i else empty defaultContext :: Context String defaultContext = bodyField "body" `mappend` + metadataField `mappend` urlField "url" `mappend` pathField "path" `mappend` categoryField "category" `mappend` @@ -78,6 +80,13 @@ bodyField :: String -> Context String bodyField key = field key $ return . itemBody +-------------------------------------------------------------------------------- +metadataField :: Context String +metadataField = Context $ \k i -> do + metadata <- getMetadata $ itemIdentifier i + maybe empty return $ M.lookup k metadata + + -------------------------------------------------------------------------------- urlField :: String -> Context a urlField key = field key $ -- cgit v1.2.3