diff --git a/make-pages/RSS.hs b/make-pages/RSS.hs index c20343f..ee40bdc 100644 --- a/make-pages/RSS.hs +++ b/make-pages/RSS.hs @@ -87,16 +87,21 @@ makeItem root prefix nsfw path info@(Info {title}) = [b| Artist name (Just url) -> [b|
by $name|] desc = makeDesc $ descFor nsfw info - image = case previewImage info of - Just (PFull img) -> figure img.desc $ pageFile img + preview = previewImage info + image = case preview of + Just (PFull img) -> figure (escAttr img.desc) $ pageFile img Just (PThumb th) -> figure "full image hidden" $ thumbFile th Nothing -> "" + msg = case preview of + Just (PThumb _) -> "
(full image hidden; open to see)
" + _ -> "" :: Text figure alt p = [b| + $msg |] makeDesc :: Desc -> Builder