diff options
| author | Mekeor Melire <mekeor@ymail.com> | 2012-08-09 00:51:46 +0200 |
|---|---|---|
| committer | Mekeor Melire <mekeor@ymail.com> | 2012-08-09 00:51:46 +0200 |
| commit | 998db08a7f0f3464515fe0328d22fb91ffd9dc11 (patch) | |
| tree | b40b791077f429bab8fe73fda6e2ac080be7f9d7 /src/Hakyll | |
| parent | edfdb7d677e443a6809b1d98e54d861898109412 (diff) | |
| download | hakyll-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.hs | 9 |
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 |