diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2019-10-29 12:40:25 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-10-29 12:40:25 +0100 |
| commit | e3344eb38781445d33c1a0011b1fd8517b50160c (patch) | |
| tree | 208cef912d946da6c62e87de9ffeee2d77965fef | |
| parent | d9aa64adf71a236ddb399f26b7f460ac36b42d15 (diff) | |
| download | hakyll-e3344eb38781445d33c1a0011b1fd8517b50160c.tar.gz | |
Add titles to tag fields
| -rw-r--r-- | lib/Hakyll/Web/Tags.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/Hakyll/Web/Tags.hs b/lib/Hakyll/Web/Tags.hs index 43f6c4f..aab5d34 100644 --- 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 -------------------------------------------------------------------------------- |