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

twiddle markup a bit

Browse source
This commit is contained in:
Rhiannon Morris 2020-07-12 05:51:30 +02:00
parent f61e9916fb
commit d037e75f34
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
make-pages/SinglePage.hs
View file

@ -38,18 +38,20 @@ make' includeNsfw (Info {date, title, tags, nsfwTags,
buttonBar title' includeNsfw images <> buttonBar title' includeNsfw images <>
"</header>\n\n" <> "</header>\n\n" <>
"<main>\n" <> "<main>\n" <>
" <img id=it src=\"" <> path0 <> "\">\n" <> " <img id=it src=\"" <> path0 <> "\">\n\n" <>
ifJust description (\d -> ifJust description (\d ->
" <div class=desc>\n" <> " <div class=desc>\n" <>
" <h2>description</h2>\n" <> " <h2>description</h2>\n" <>
indent 4 d <> indent 4 d <>
" </div>\n") <> " </div>\n") <> "\n" <>
makeTags includeNsfw tags nsfwTags <> makeTags includeNsfw tags nsfwTags <>
extLinks includeNsfw links <> extLinks includeNsfw links <>
"</main>\n\n" <> "</main>\n\n" <>
"<nav class=back>\n" <> "<footer>\n" <>
" <nav class=back>\n" <>
" <a href=../>back to gallery</a>\n" <> " <a href=../>back to gallery</a>\n" <>
"</nav>\n" " </nav>\n" <>
"</footer>\n"
where where
path0' = let Image {path} = head images in path path0' = let Image {path} = head images in path
path0 = fromText path0' path0 = fromText path0'