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

use year of latest update on gallery page

Browse source
This commit is contained in:
Rhiannon Morris 2020-09-21 21:44:54 +02:00
parent 0a7fad8afe
commit c04f34083f
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
make-pages/GalleryPage.hs
View file

@ -85,7 +85,7 @@ make' root (GalleryInfo {title, desc, prefix, filters, hidden}) infos = [b|@0
[(the year, infopath) | [(the year, infopath) |
infopath@(_, info) <- infos, infopath@(_, info) <- infos,
then sortOn by Down info, then sortOn by Down info,
let year = #year info, let year = #latestYear info,
then group by Down year using groupBy'] then group by Down year using groupBy']
groupBy' f = groupBy ((==) `on` f) groupBy' f = groupBy ((==) `on` f)

4
make-pages/Info.hs
View file

@ -114,6 +114,10 @@ instance HasField "day" Info Int where getField = #third . #dmy
instance HasField "latestDate" Info Day where instance HasField "latestDate" Info Day where
getField (Info {date, updates}) = maximum (date : Map.keys updates) getField (Info {date, updates}) = maximum (date : Map.keys updates)
instance HasField "latestYear" Info Integer where
getField = #first . toGregorian . #latestDate
instance HasField "updated" Info Bool where getField = not . Map.null . #updates instance HasField "updated" Info Bool where getField = not . Map.null . #updates
descFor :: Bool -> Info -> Maybe Text descFor :: Bool -> Info -> Maybe Text