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

new style

Browse source
This commit is contained in:
Rhiannon Morris 2020-07-20 22:40:34 +02:00
parent 76e54d0297
commit 341c2baae3
11 changed files with 447 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

9
make-pages/IndexPage.hs
View file

@ -13,7 +13,8 @@ make' (IndexInfo {title, galleries, links, footer}) = [b|@0
<!DOCTYPE html>
<html lang=en>
<meta charset=utf-8>
<link rel=stylesheet href=/style/tum/index.css>
<link rel=stylesheet href=/style/shiny/index.css>
<link rel='alternate stylesheet' href=/style/tum/index.css>
<title>$*title</title>
@ -30,13 +31,13 @@ make' (IndexInfo {title, galleries, links, footer}) = [b|@0
|]
where
galleryList = if null galleries then "" else [b|@2
<ul class=gallery-list>
<ul id=gallery-list class=list>
$4.items
</ul>
|]
where items = map makeItem galleries
linkList = if null links then "" else [b|@2
<ul class=link-list>
<ul id=link-list class=list>
$4.items
</ul>
|]
@ -51,7 +52,7 @@ make' (IndexInfo {title, galleries, links, footer}) = [b|@0
makeItem :: GalleryInfo -> Builder
makeItem (GalleryInfo {title, description, prefix, filters}) = [b|@4
<li$nsfw><a href=$@prefix title="$*description">$*title</a>
<li$nsfw><a href=$@prefix title="$*description">$*title</a></li>
|]
where nsfw = if hasNsfw filters then " class=nsfw" else ""