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

add title to index.yaml

This commit is contained in:
Rhiannon Morris 2020-07-19 12:10:27 +02:00
parent eecb750059
commit 980d790874
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
make-pages/IndexPage.hs
View File

@ -7,19 +7,19 @@ import BuilderQQ
import Info
make :: IndexInfo -> Lazy.Text
make iinfo = toLazyText $ make' iinfo
make info = toLazyText $ make' info
make' :: IndexInfo -> Builder
make' (IndexInfo {galleries, footer}) = [b|@0
make' (IndexInfo {title, galleries, footer}) = [b|@0
<!DOCTYPE html>
<html lang=en>
<meta charset=utf-8>
<link rel=stylesheet href=/style/index.css>
<title>gallery list</title>
<title>$*title</title>
<header>
<h1>gallery list</h1>
<h1>$*title</h1>
</header>
<main>

4
make-pages/Info.hs
View File

@ -198,6 +198,7 @@ instance FromYAML Whose where parseYAML = YAML.withStr "whose" readWhose
data IndexInfo =
IndexInfo {
title :: !Text,
galleries :: ![GalleryInfo],
footer :: !Text
}
@ -205,7 +206,8 @@ data IndexInfo =
instance FromYAML IndexInfo where
parseYAML = YAML.withMap "index info" \m ->
IndexInfo <$> m .:? "galleries" .!= []
IndexInfo <$> m .: "title"
<*> m .:? "galleries" .!= []
<*> m .:? "footer" .!= ""