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

Compare commits

base: rhi:1e7a58359d1ea9c1ed5b8c650ffe088957fafade
Branches Tags
rhi:🎨
rhi:jxl
rhi:ginger
..
compare: rhi:47ba520e7e33c66d9f408d85ad943e626e047e22
Branches Tags
rhi:🎨
rhi:jxl
rhi:ginger

No commits in common. "1e7a58359d1ea9c1ed5b8c650ffe088957fafade" and "47ba520e7e33c66d9f408d85ad943e626e047e22" have entirely different histories.
1e7a58359d ... 47ba520e7e

1 changed files with 6 additions and 17 deletions
Show Stats Expand all files Collapse all files

23
make-pages/SinglePage.hs
View File

@ -9,7 +9,7 @@ import qualified NsfwWarning
import Control.Exception
import Control.Monad
import Data.List (sort, intersperse)
import Data.Maybe (fromMaybe, isNothing)
import Data.Maybe (fromMaybe)
import qualified Data.Text as Strict
import qualified Data.Text.Lazy as Lazy
import System.FilePath (joinPath, splitPath)
@ -71,10 +71,8 @@ make' root siteName prefix nsfw _dataDir dir
</figcaption>
|]
let defWarning = [b|
i forgot to add a cw, sorry! <br>
if you can let me know i'd appreciate it
|]
let defWarning = "oops i forgot to put one, sorry!<br>\
\if you can let me know i'd appreciate it" :: Text
let warning'
| Just w <- #warning image0 = makeWarning w
| #nsfw image0 = makeWarning defWarning
@ -99,16 +97,6 @@ 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
<meta property=og:image content="$url/$path0'">
<meta name=twitter:card content=summary_large_image>
<meta name=twitter:image content="$url/$path0'">
|] else [b|@0
<meta property=og:image content="$url/$thumb">
<meta name=twitter:card content=summary>
|]
pure [b|@0
<!DOCTYPE html>
<html lang=en>
@ -117,13 +105,14 @@ make' root siteName prefix nsfw _dataDir dir
<link rel=stylesheet href=/style/shiny/single.css>
<link rel=icon href=/style/niss.svg>
<meta property=og:type content=article>
<meta property=og:type content=og:website>
<meta property=og:title content="$title">
<meta property=og:site_name content="$siteName">
<meta property=og:description content="$desc">
<meta property=og:image content="$url/$thumb">
<meta property=og:url content="$url">
<meta name=twitter:site content=@2_gecs>
$imageMeta
<meta name=twitter:card content=summary>
<meta name=robots content='noai,noimageai'>