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

add gallery description

Browse source
This commit is contained in:
Rhiannon Morris 2020-07-19 18:00:39 +02:00
parent c10a3ab340
commit c2f991bc3e
2 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
make-pages/IndexPage.hs
View file

@ -50,8 +50,8 @@ make' (IndexInfo {title, galleries, links, footer}) = [b|@0
|] |]
makeItem :: GalleryInfo -> Builder makeItem :: GalleryInfo -> Builder
makeItem (GalleryInfo {title, prefix, filters}) = [b|@4 makeItem (GalleryInfo {title, description, prefix, filters}) = [b|@4
<li$nsfw><a href=$@prefix>$*title</a> <li$nsfw><a href=$@prefix title="$*description">$*title</a>
|] |]
where nsfw = if hasNsfw filters then " class=nsfw" else "" where nsfw = if hasNsfw filters then " class=nsfw" else ""

2
make-pages/Info.hs
View file

@ -148,6 +148,7 @@ instance FromYAML Link where
data GalleryInfo = data GalleryInfo =
GalleryInfo { GalleryInfo {
title :: !Text, title :: !Text,
description :: !Text,
prefix :: !FilePath, prefix :: !FilePath,
filters :: !GalleryFilters filters :: !GalleryFilters
} }
@ -189,6 +190,7 @@ matchFilters (GalleryFilters {nsfw, whose}) i =
instance FromYAML GalleryInfo where instance FromYAML GalleryInfo where
parseYAML = YAML.withMap "gallery info" \m -> parseYAML = YAML.withMap "gallery info" \m ->
GalleryInfo <$> m .: "title" GalleryInfo <$> m .: "title"
<*> m .: "description"
<*> m .: "prefix" <*> m .: "prefix"
<*> m .:? "filters" .!= noFilters <*> m .:? "filters" .!= noFilters