allow extra images etc

make-pages/Depend.hs

@@ -27,13 +27,14 @@ dependSingle' yamlDir info prefix build nsfw =
  where
   images = if nsfw then #images info else #sfwImages info
 
-  paths = map #path images
+  paths  = map #path images
-  dls   = mapMaybe #download 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)
 
@@ -117,16 +118,17 @@ instance Ord Info where
 
 instance FromYAML Info where
   parseYAML = YAML.withMap "info" \m ->
-    Info <$> m .:  "date"
+    Info <$>  m .:  "date"
-         <*> m .:  "title"
+         <*>  m .:  "title"
-         <*> m .:? "artist"
+         <*>  m .:? "artist"
-         <*> m .:? "tags" .!= []
+         <*>  m .:? "tags"      .!= []
-         <*> m .:? "nsfw-tags" .!= []
+         <*>  m .:? "nsfw-tags" .!= []
-         <*> m .:? "desc"
+         <*>  m .:? "desc"
-         <*> m .:? "nsfw-desc"
+         <*>  m .:? "nsfw-desc"
          <*> (m .:  "images" >>= imageList)
-         <*> m .:? "thumb"
+         <*>  m .:? "thumb"
-         <*> m .:? "links" .!= []
+         <*>  m .:? "links"  .!= []
+         <*>  m .:? "extras" .!= []
 
 instance FromYAML Artist where
   parseYAML y = justName y <|> withUrl y where