From 3c04976d1ab60a6de2163c399ea93f05fb26b93d Mon Sep 17 00:00:00 2001 From: rhiannon morris Date: Mon, 26 Dec 2022 20:07:38 +0100 Subject: [PATCH] large previews for some sites unless they need oembed (glares at mastodon), which requires the ability to resize images on the fly. lol. lmao --- make-pages/SinglePage.hs | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/make-pages/SinglePage.hs b/make-pages/SinglePage.hs index 386b813..5a1e353 100644 --- a/make-pages/SinglePage.hs +++ b/make-pages/SinglePage.hs @@ -9,7 +9,7 @@ import qualified NsfwWarning import Control.Exception import Control.Monad import Data.List (sort, intersperse) -import Data.Maybe (fromMaybe) +import Data.Maybe (fromMaybe, isNothing) import qualified Data.Text as Strict import qualified Data.Text.Lazy as Lazy import System.FilePath (joinPath, splitPath) @@ -97,6 +97,16 @@ make' root siteName prefix nsfw _dataDir dir let nsfwScript = NsfwWarning.script nsfw' let nsfwDialog = NsfwWarning.dialog nsfw' + let imageMeta = + if #sfw image0 && isNothing (#warning image0) then [b|@0 + + + + |] else [b|@0 + + + |] + pure [b|@0 @@ -105,14 +115,13 @@ make' root siteName prefix nsfw _dataDir dir - + - - + $imageMeta