@@ -80,7 +80,8 @@ instance Binary a => Binary (Tags a) where
80instance Writable (Tags a) where
80instance Writable (Tags a) where
81 write _ _ = return ()
81 write _ _ = return ()
83−-- | Obtain tags from a page
83+-- | Obtain tags from a page in the default way: parse them from the @tags@
85getTags :: Page a -> [String]
86getTags :: Page a -> [String]
86getTags = map trim . splitAll "," . getField "tags"
87getTags = map trim . splitAll "," . getField "tags"
@@ -181,9 +182,8 @@ renderTagList makeUrl = renderTags makeUrl makeLink (intercalate ", ")
181-- | Render tags with links with custom function to get tags. It is typically
182-- | Render tags with links with custom function to get tags. It is typically
182-- together with 'getTags' like this:
183-- together with 'getTags' like this:
185−-- 'renderTagsFieldWith' (customFunction . 'getTags') \"tags\" ('fromCapture' \"tags/*\")
185+-- > renderTagsFieldWith (customFunction . getTags)
186−-- @
186+-- > "tags" (fromCapture "tags/*")
188renderTagsFieldWith :: (Page a -> [String]) -- ^ Function to get the tags
188renderTagsFieldWith :: (Page a -> [String]) -- ^ Function to get the tags
189 -> String -- ^ Destination key
189 -> String -- ^ Destination key