yogsototh/hakyll
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge pull request #80 from mekeor/master

Browse source 
exporiting more functions
This commit is contained in:
Jasper Van der Jeugt 2012-08-11 18:40:56 -07:00
commit 5bbbfca091
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/Hakyll/Web/Tags.hs
View file

@ -28,12 +28,14 @@
{-# LANGUAGE DeriveDataTypeable, OverloadedStrings, Arrows #-} {-# LANGUAGE DeriveDataTypeable, OverloadedStrings, Arrows #-}
module Hakyll.Web.Tags module Hakyll.Web.Tags
( Tags (..) ( Tags (..)
, getTags
, readTagsWith , readTagsWith
, readTags , readTags
, readCategory , readCategory
, renderTagCloud , renderTagCloud
, renderTagList , renderTagList
, renderTagsField , renderTagsField
, renderTagsFieldWith
, renderCategoryField , renderCategoryField
, sortTagsBy , sortTagsBy
, caseInsensitiveTags , caseInsensitiveTags
@ -176,7 +178,12 @@ renderTagList makeUrl = renderTags makeUrl makeLink (intercalate ", ")
makeLink tag url count _ _ = renderHtml $ makeLink tag url count _ _ = renderHtml $
H.a ! A.href (toValue url) $ toHtml (tag ++ " (" ++ show count ++ ")") 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 renderTagsFieldWith :: (Page a -> [String]) -- ^ Function to get the tags
-> String -- ^ Destination key -> String -- ^ Destination key