summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Hakyll/Web/Page/Metadata.hs12
1 files changed, 11 insertions, 1 deletions
diff --git a/src/Hakyll/Web/Page/Metadata.hs b/src/Hakyll/Web/Page/Metadata.hs
index 79c616e..89e17b6 100644
--- a/src/Hakyll/Web/Page/Metadata.hs
+++ b/src/Hakyll/Web/Page/Metadata.hs
@@ -6,6 +6,7 @@ module Hakyll.Web.Page.Metadata
, setField
, trySetField
, setFieldA
+ , setFieldPage
, renderField
, changeField
, copyField
@@ -17,7 +18,7 @@ module Hakyll.Web.Page.Metadata
import Prelude hiding (id)
import Control.Category (id)
-import Control.Arrow (Arrow, (>>>), (***), arr)
+import Control.Arrow (Arrow, arr, (>>>), (***), (&&&))
import Data.List (intercalate)
import Data.Maybe (fromMaybe)
import Data.Time.Clock (UTCTime)
@@ -28,6 +29,8 @@ import System.Locale (TimeLocale, defaultTimeLocale)
import Hakyll.Web.Page.Internal
import Hakyll.Core.Util.String
+import Hakyll.Core.Identifier
+import Hakyll.Core.Compiler
-- | Get a metadata field. If the field does not exist, the empty string is
-- returned.
@@ -69,6 +72,13 @@ setFieldA :: Arrow a
-> a (Page b, x) (Page b) -- ^ Resulting arrow
setFieldA k v = id *** v >>> arr (uncurry $ flip $ setField k)
+-- | Set a field of a page to the contents of another page
+--
+setFieldPage :: String -- ^ Key to add the page under
+ -> Identifier (Page String) -- ^ Page to add
+ -> Compiler (Page a) (Page a) -- ^ Page compiler
+setFieldPage key page = id &&& require_ page >>> setFieldA key (arr pageBody)
+
-- | Do something with a metadata value, but keep the old value as well. If the
-- key given is not present in the metadata, nothing will happen. If the source
-- and destination keys are the same, the value will be changed (but you should