From 21bdb28c656c24fa558cf15231468246c959d580 Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Sat, 25 Jul 2020 13:59:04 +0200
Subject: [PATCH] add image prefetches

---
 make-pages/SinglePage.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/make-pages/SinglePage.hs b/make-pages/SinglePage.hs
index 61da17d..923215b 100644
--- a/make-pages/SinglePage.hs
+++ b/make-pages/SinglePage.hs
@@ -39,6 +39,8 @@ make' nsfw dir (Info {date, title, artist, tags, nsfwTags,
     <link rel=stylesheet href=/style/shiny/single.css title=shiny>
     <link rel='alternate stylesheet' href=/style/tum/single.css title=tummy>
 
+    $0.prefetches
+
     <title>$*title</title>
 
     <header>
@@ -91,6 +93,9 @@ make' nsfw dir (Info {date, title, artist, tags, nsfwTags,
     tagsList    = makeTags nsfw tags nsfwTags
     linksList   = extLinks nsfw links
 
+    prefetches = map makePrefetch $ tail images
+    makePrefetch (Image {path}) = [b|<link rel=prefetch href=$@path>|]
+
     warning' = ifJust (#warning image0) \w -> [b|@4
       <figcaption id=cw>
         <span id=cw-text>cw: <b>$*w</b></span>