allow extra images etc

make-pages/Depend.hs

@@ -29,11 +29,12 @@ dependSingle' yamlDir info prefix build nsfw =
 
   paths  = map #path images
   dls    = mapMaybe #download images
+  extras = #extras info
 
   dir  = build </> prefix </> yamlDir
   page = dir </> "index.html"
   deps = unwords $ map (dir </>) $
-    thumbFile (thumbnail info) : map pageFile paths ++ paths ++ dls
+    thumbFile (thumbnail info) : map pageFile paths ++ paths ++ dls ++ extras
 
 dependGallery :: GalleryInfo
               -> FilePath -- ^ index file

make-pages/Info.hs

@@ -40,7 +40,8 @@ data Info =
     nsfwDesc :: !(Maybe Text),
     images   :: ![Image],
     thumb'   :: !(Maybe FilePath),
-    links    :: ![Link]
+    links    :: ![Link],
+    extras   :: ![FilePath]
   }
   deriving (Eq, Show)
 
@@ -127,6 +128,7 @@ instance FromYAML Info where
          <*> (m .:  "images" >>= imageList)
          <*>  m .:? "thumb"
          <*>  m .:? "links"  .!= []
+         <*>  m .:? "extras" .!= []
 
 instance FromYAML Artist where
   parseYAML y = justName y <|> withUrl y where