diff --git a/make-pages/RSS.hs b/make-pages/RSS.hs index 4711826..d09d971 100644 --- a/make-pages/RSS.hs +++ b/make-pages/RSS.hs @@ -39,14 +39,14 @@ make' root ginfo@(GalleryInfo {title, desc, prefix}) output infos = [b|@0 where link = [b|$root/$prefix|] nsfw = #nsfw ginfo - items = map (uncurry $ makeItem root prefix) $ + items = map (uncurry $ makeItem root prefix nsfw) $ sortBy (flip (compareFor nsfw `on` #second)) infos selflink = case output of Nothing -> "" Just o -> [b||] -makeItem :: Strict.Text -> FilePath -> FilePath -> Info -> Builder -makeItem root prefix path (Info {title, desc, date, artist}) = [b|@4 +makeItem :: Strict.Text -> FilePath -> Bool -> FilePath -> Info -> Builder +makeItem root prefix nsfw path i@(Info {title, date, artist}) = [b|@4 $title $link @@ -61,12 +61,13 @@ makeItem root prefix path (Info {title, desc, date, artist}) = [b|@4 artist' = ifJust artist \case Artist {name, url = Nothing} -> [b|

by $name|] Artist {name, url = Just url} -> [b|

by $name|] + desc = descFor nsfw i desc' = ifJust desc \d -> [b|$10.d|] descArtist' = if isJust desc || isJust artist then [b|@6 |]