Add titles to tag fields

jaspervdj · Oct 29, 2019 · e3344eb · e3344eb
1 parent d9aa64a
commit e3344eb
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/lib/Hakyll/Web/Tags.hs b/lib/Hakyll/Web/Tags.hs
@@ -326,8 +326,10 @@ categoryField =
 -- | Render one tag link
 simpleRenderLink :: String -> (Maybe FilePath) -> Maybe H.Html
 simpleRenderLink _   Nothing         = Nothing
-simpleRenderLink tag (Just filePath) =
-  Just $ H.a ! A.href (toValue $ toUrl filePath) $ toHtml tag
+simpleRenderLink tag (Just filePath) = Just $
+    H.a ! A.title (H.stringValue ("All pages tagged '"++tag++"'."))
+        ! A.href (toValue $ toUrl filePath)
+        $ toHtml tag
 
 
 --------------------------------------------------------------------------------