diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2012-08-11 18:40:56 -0700 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2012-08-11 18:40:56 -0700 |
| commit | 5bbbfca0913d7d432b42a2b631a5eb6e340b8d94 (patch) | |
| tree | b47bab7a72db5cdb80345eda3d0822f41bbb75a3 /src | |
| parent | a0f5193d970a0fc387c37c8629b37a1088a8e5f4 (diff) | |
| parent | 998db08a7f0f3464515fe0328d22fb91ffd9dc11 (diff) | |
| download | hakyll-5bbbfca0913d7d432b42a2b631a5eb6e340b8d94.tar.gz | |
Merge pull request #80 from mekeor/master
exporiting more functions
Diffstat (limited to 'src')
| -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 |