From 379cd0eed48848ddf67c3de4def4f807372e713c Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Tue, 29 Mar 2011 18:19:19 +0200
Subject: Add copyBodyToField, copyBodyFromField methods

---
 src/Hakyll/Web/Page/Metadata.hs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'src')

diff --git a/src/Hakyll/Web/Page/Metadata.hs b/src/Hakyll/Web/Page/Metadata.hs
index b0545f3..79c616e 100644
--- a/src/Hakyll/Web/Page/Metadata.hs
+++ b/src/Hakyll/Web/Page/Metadata.hs
@@ -11,6 +11,8 @@ module Hakyll.Web.Page.Metadata
     , copyField
     , renderDateField
     , renderDateFieldWith
+    , copyBodyToField
+    , copyBodyFromField
     ) where
 
 import Prelude hiding (id)
@@ -138,3 +140,17 @@ renderDateFieldWith locale key format defaultValue =
                           "%Y-%m-%d"
                           dateString :: Maybe UTCTime
         return $ formatTime locale format time
+
+-- | Copy the body of a page to a metadata field
+--
+copyBodyToField :: String       -- ^ Destination key
+                -> Page String  -- ^ Target page
+                -> Page String  -- ^ Resulting page
+copyBodyToField key page = setField key (pageBody page) page
+
+-- | Copy a metadata field to the page body
+--
+copyBodyFromField :: String       -- ^ Source key
+                  -> Page String  -- ^ Target page
+                  -> Page String  -- ^ Resulting page
+copyBodyFromField key page = fmap (const $ getField key page) page
-- 
cgit v1.2.3