add download field for svgs etc

make-pages/SinglePage.hs

@@ -6,6 +6,7 @@ import BuilderQQ
 import Records ()
 
 import Control.Exception
+import Data.Maybe (fromMaybe)
 import qualified Data.Text as Strict
 import qualified Data.Text.Lazy as Lazy
 import Data.Time (formatTime, defaultTimeLocale)
@@ -51,7 +52,7 @@ make' nsfw dir (Info {date, title, artist, tags, nsfwTags,
     <main>
       <figure id=mainfig>
         $warning'
-        <a id=mainlink href="$@path0">
+        <a id=mainlink href="$@download0">
           <img id=mainimg src="$@path0'">
         </a>
       </figure>
@@ -79,6 +80,7 @@ make' nsfw dir (Info {date, title, artist, tags, nsfwTags,
     buttonBar = makeButtonBar title nsfw images
     image0    = head images
     path0     = #path image0
+    download0 = fromMaybe path0 (#download image0)
     path0'    = pageFile path0
 
     descSection = ifJust description makeDesc