summaryrefslogtreecommitdiff
path: root/src/Hakyll
diff options
context:
space:
mode:
authorMekeor Melire <mekeor@ymail.com>2012-08-09 00:51:46 +0200
committerMekeor Melire <mekeor@ymail.com>2012-08-09 00:51:46 +0200
commit998db08a7f0f3464515fe0328d22fb91ffd9dc11 (patch)
treeb40b791077f429bab8fe73fda6e2ac080be7f9d7 /src/Hakyll
parentedfdb7d677e443a6809b1d98e54d861898109412 (diff)
downloadhakyll-998db08a7f0f3464515fe0328d22fb91ffd9dc11.tar.gz
I made Hakyll.Web.Tags export both 'getTags' and 'renderTagsFieldWith' in order to be able to customize how tags are read/parsed/rendered &c.
Diffstat (limited to 'src/Hakyll')
-rw-r--r--src/Hakyll/Web/Tags.hs9
1 files changed, 8 insertions, 1 deletions
diff --git a/src/Hakyll/Web/Tags.hs b/src/Hakyll/Web/Tags.hs
index 62f3899..31b945f 100644
--- a/src/Hakyll/Web/Tags.hs
+++ b/src/Hakyll/Web/Tags.hs
@@ -28,12 +28,14 @@
{-# LANGUAGE DeriveDataTypeable, OverloadedStrings, Arrows #-}
module Hakyll.Web.Tags
( Tags (..)
+ , getTags
, readTagsWith
, readTags
, readCategory
, renderTagCloud
, renderTagList
, renderTagsField
+ , renderTagsFieldWith
, renderCategoryField
, sortTagsBy
, caseInsensitiveTags
@@ -176,7 +178,12 @@ renderTagList makeUrl = renderTags makeUrl makeLink (intercalate ", ")
makeLink tag url count _ _ = renderHtml $
H.a ! A.href (toValue url) $ toHtml (tag ++ " (" ++ show count ++ ")")
--- | Render tags with links
+-- | Render tags with links with custom function to get tags. It is typically
+-- together with 'getTags' like this:
+--
+-- @
+-- 'renderTagsFieldWith' (customFunction . 'getTags') \"tags\" ('fromCapture' \"tags/*\")
+-- @
--
renderTagsFieldWith :: (Page a -> [String]) -- ^ Function to get the tags
-> String -- ^ Destination key