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

format long desc as a dl in rss

Browse source
This commit is contained in:
Rhiannon Morris 2022-01-04 20:13:32 +01:00
parent a301efa521
commit e1718bb861
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
make-pages/RSS.hs
View file

@ -79,7 +79,7 @@ makeItem root prefix nsfw path i@(Info {title, artist}) = [b|@4
makeDesc :: Desc -> Builder makeDesc :: Desc -> Builder
makeDesc NoDesc = "" makeDesc NoDesc = ""
makeDesc (TextDesc txt) = [b|$txt|] makeDesc (TextDesc txt) = [b|$txt|]
makeDesc (LongDesc fs) = [b|$fields|] makeDesc (LongDesc fs) = [b|<dl>$fields</dl>|]
where where
fields = map makeField fs fields = map makeField fs
makeField (DescField {name, text}) = [b|<b>$name</b>: $text|] makeField (DescField {name, text}) = [b|<dt>$name <dd>$text|]