rhi/gallery
1
0
Fork 0
Code Issues 5 Pull requests 1 Releases Wiki Activity

add nsfw class to alt buttons

Browse source
This commit is contained in:
Rhiannon Morris 2020-07-09 06:19:19 +02:00
parent 3cd7bc98f6
commit be4b539138
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
make-pages/ImagePage.hs
View file

@ -63,12 +63,13 @@ formatDate = fromString . formatTime defaultTimeLocale "%e %#B %Y"
altButton :: Int -> Image -> Builder altButton :: Int -> Image -> Builder
altButton i (Image {label, path, nsfw}) = altButton i (Image {label, path, nsfw}) =
" <li>\n" <> " <li" <> nsfwClass <> ">\n" <>
" <input type=radio " <> checked <> "id=\"" <> idLabel <> "\" " <> " <input type=radio " <> checked <> "id=\"" <> idLabel <> "\" " <>
"name=variant autocomplete=off\n" <> "name=variant autocomplete=off\n" <>
" value=\"" <> fromText path <> "\">\n" <> " value=\"" <> fromText path <> "\">\n" <>
" <label for=\"" <> idLabel <> "\">" <> fromText label <> "</label>\n" " <label for=\"" <> idLabel <> "\">" <> fromText label <> "</label>\n"
where where
nsfwClass = if nsfw then " class=nsfw" else ""
checked = if i == 0 then "checked " else "" checked = if i == 0 then "checked " else ""
idLabel = escId label idLabel = escId label