aelve/guide
1
1
Fork 0
mirror of https://github.com/aelve/guide.git synced 2024-11-23 12:15:06 +03:00
Code Issues Projects Releases Wiki Activity

Add captions to images

Browse Source
This commit is contained in:
Artyom 2016-03-22 20:20:34 +03:00
parent df3c55e823
commit e48d13d2a8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/View.hs
View File

@ -288,7 +288,8 @@ renderCategoryTitle category = do
-- TODO: this link shouldn't be absolute [absolute-links]
span_ [class_ "controls"] $
a_ [href_ ("/haskell/feed/category/" <> uidToText (category^.uid))] $
img_ [src_ "/rss-alt.svg", alt_ "category feed"]
img_ [src_ "/rss-alt.svg",
alt_ "category feed", title_ "category feed"]
sectionSpan "normal" [shown, noScriptShown] $ do
-- TODO: this link shouldn't be absolute [absolute-links]
@ -761,7 +762,7 @@ textButton caption (JS handler) =
imgButton :: Monad m => Text -> Url -> [Attribute] -> JS -> HtmlT m ()
imgButton alt src attrs (JS handler) =
a_ [href_ "#", onclick_ (handler <> "return false;")]
(img_ (src_ src : alt_ alt : attrs))
(img_ (src_ src : alt_ alt : title_ alt : attrs))
markdownEditor
:: MonadIO m