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

twiddle markup a bit

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

12
make-pages/SinglePage.hs
View File

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