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

use sets for tags

Browse source
This commit is contained in:
rhiannon morris 2024-11-04 00:55:07 +01:00
parent b9b0edc173
commit 34bd2214f5
4 changed files with 19 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

5
make-pages/GalleryPage.hs
View file

@ -96,7 +96,7 @@ make' root (GalleryInfo {title, desc, prefix, filters, hidden}) infos = [b|
undir = joinPath (replicate (length (splitPath prefix)) "..")
allTags = infos
& concatMap (map (,1) . tagsFor nsfw . snd)
& concatMap (map (,1) . HashSet.toList . tagsFor nsfw . snd)
& HashMap.fromListWith (+) & HashMap.toList
& sort
@ -160,7 +160,8 @@ makeItem nsfw file info@(Info {bg}) = [b|
dir = takeDirectory file
thumbnail = getThumb dir info
nsfw' = if nsfw && anyNsfw info then [b|$& nsfw|] else ""
tags' = fold $ intersperse ";" $ map fromText $ tagsFor nsfw info
tags' = fold $ intersperse ";" $ map fromText $
sort $ HashSet.toList $ tagsFor nsfw info
date = latestDateFor nsfw info
date' = formatTooltip date
year' = date.year