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

consistency with entity escaping

Browse source
This commit is contained in:
rhiannon morris 2024-10-21 14:36:11 +02:00
parent 18629cb220
commit 645424a7d8
3 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
make-pages/SinglePage.hs
View file

@ -95,7 +95,7 @@ make' root siteName prefix nsfw _dataDir dir
Just (Artist {name}) -> [b|by $name|]
Nothing -> "by niss"
let alt = image0.desc
let alt = escAttr image0.desc
let updateDate = ifJust (last' updates) \(d, _) ->
let updated = formatLong d in
@ -117,6 +117,8 @@ make' root siteName prefix nsfw _dataDir dir
|]
Nothing -> throw $ NoThumb dir
let escTitle = escAttr title
pure [b|
<!DOCTYPE html>
<html lang=en>
@ -140,13 +142,13 @@ make' root siteName prefix nsfw _dataDir dir
$prefetches
<title>$title</title>
<title>$escTitle</title>
$nsfwDialog
<div class=page>
<header>
<h1>$title</h1>
<h1>$escTitle</h1>
<h2 id=date class="right corner">
$formattedDate $updateDate
</h2>