add rss [fixes #1]

make-pages/Main.hs

@@ -9,7 +9,7 @@ import Data.Text.Lazy (Text)
 import Data.Text.Lazy.Builder (toLazyText)
 import qualified Data.Text.Lazy.IO as Text
 import qualified Data.YAML as YAML
-import System.FilePath (makeRelative, takeDirectory)
+import System.FilePath (makeRelative, takeDirectory, takeFileName)
 import System.FilePath.Find (find, always, fileName, (==?))
 import System.IO (hPrint, stderr)
 
@@ -19,6 +19,7 @@ import Options
 import qualified SinglePage
 import qualified GalleryPage
 import qualified IndexPage
+import qualified RSS
 
 #ifdef PRETTY_VERBOSE
 import qualified Text.PrettyPrint as PP
@@ -61,6 +62,13 @@ main2 (IndexPage {file, output}) = do
   let page = IndexPage.make info
   writeOutput output page
 
+main2 (RSS {files, title, description, root, prefix, output, dataDir}) = do
+  infos <- mapM (infoYAML dataDir) files
+  printV $ "infos" := infos
+  let output' = takeFileName <$> output
+  let rss = RSS.make root title description prefix output' infos
+  writeOutput output rss
+
 main2 (DependSingle {file, nsfw, output, prefix, buildDir, dataDir}) = do
   info <- readYAML file
   printV $ "contents" := info