diff options
| -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 |