add nsfw class to alt buttons

make-pages/ImagePage.hs

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