summaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Hakyll/ContextManipulations.hs11
1 files changed, 11 insertions, 0 deletions
diff --git a/src/Text/Hakyll/ContextManipulations.hs b/src/Text/Hakyll/ContextManipulations.hs
index 9f95232..9409721 100644
--- a/src/Text/Hakyll/ContextManipulations.hs
+++ b/src/Text/Hakyll/ContextManipulations.hs
@@ -6,6 +6,7 @@ module Text.Hakyll.ContextManipulations
, copyValue
, renderDate
, changeExtension
+ , renderBody
) where
import Control.Arrow (arr)
@@ -80,3 +81,13 @@ changeExtension :: String -- ^ Extension to change to.
changeExtension extension = changeValue "url" changeExtension'
where
changeExtension' = flip addExtension extension . dropExtension
+
+-- | Change the body of a file using a certain manipulation.
+--
+-- > import Data.Char (toUpper)
+-- > renderBody (map toUpper)
+--
+-- Will put the entire body of the page in UPPERCASE.
+renderBody :: (String -> String)
+ -> HakyllAction Context Context
+renderBody = renderValue "body" "body"