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

remove the reindent stuff. it does not matter

Browse source
This commit is contained in:
rhiannon morris 2024-08-18 07:37:58 +02:00
parent 47d0d6a2cb
commit 7745722009
7 changed files with 123 additions and 238 deletions
Download patch file Download diff file Expand all files Collapse all files

24
make-pages/IndexPage.hs
View file

@ -9,7 +9,7 @@ make :: Text -> IndexInfo -> Lazy.Text
make root info = toLazyText $ make' root info
make' :: Text -> IndexInfo -> Builder
make' root (IndexInfo {title, desc, galleries, links, footer}) = [b|@0
make' root (IndexInfo {title, desc, galleries, links, footer}) = [b|
<!DOCTYPE html>
<html lang=en>
<meta charset=utf-8>
@ -37,47 +37,47 @@ make' root (IndexInfo {title, desc, galleries, links, footer}) = [b|@0
</header>
<main>
$4.galleryList
$4.linkList
$galleryList
$linkList
</main>
$2.footer'
$footer'
</div>
|]
where
galleryList = if null galleries then "" else [b|@0
galleryList = if null galleries then "" else [b|
<nav aria-label="gallery list">
<ul id=gallery-list class=list>
$4.items
$items
</ul>
</nav>
|]
where items = map makeItem galleries
linkList = if null links then "" else [b|@0
linkList = if null links then "" else [b|
<nav aria-label="other links">
<ul id=link-list class=list>
$4.items
$items
</ul>
</nav>
|]
where items = map makeLink links
footer' = case footer of
Nothing -> ""
Just f -> [b|@0
Just f -> [b|
<footer>
$2.f
$f
</footer>
|]
url = [b|$root|]
makeItem :: GalleryInfo -> Builder
makeItem (GalleryInfo {title, desc, prefix, filters}) = [b|@0
makeItem (GalleryInfo {title, desc, prefix, filters}) = [b|
<li$nsfw><a href=$prefix title="$desc">$title</a></li>
|]
where nsfw = if hasNsfw filters then [b| class=nsfw|] else ""
makeLink :: Link -> Builder
makeLink (Link {title, url, nsfw}) = [b|@0
makeLink (Link {title, url, nsfw}) = [b|
<li$nsfw'><a href=$url>$title</a>
|]
where nsfw' = if nsfw then [b| class=nsfw|] else ""