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

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>