@@ -18,6 +18,7 @@ module Hakyll.Web.Template.Context
18 , urlField
18 , urlField
19 , pathField
19 , pathField
20 , titleField
20 , titleField
21 , dateField
22 , dateField
22 , dateFieldWith
23 , dateFieldWith
23 , getItemUTC
24 , getItemUTC
@@ -143,6 +144,22 @@ mapContext f (Context c) = Context $ \k a i -> do
143 "Hakyll.Web.Template.Context.mapContext: " ++
144 "Hakyll.Web.Template.Context.mapContext: " ++
144 "can't map over a ListField!"
145 "can't map over a ListField!"
147+--------------------------------------------------------------------------------
148+-- | A context that allows snippet inclusion. In processed file, use as:
151+-- > $snippet("path/to/snippet/")$
154+-- The contents of the included file will not be interpolated.
156+snippetField :: Context String
157+snippetField = functionField "snippet" f
159+ f [contentsPath] _ = loadBody (fromFilePath contentsPath)
161+ "Too many arguments to function 'snippet()' in item " ++
162+ show (itemIdentifier i)
147--------------------------------------------------------------------------------
164--------------------------------------------------------------------------------
148-- | A context that contains (in that order)
165-- | A context that contains (in that order)