Generate gemini files

Shakefile.hs

@@ -154,10 +154,11 @@ buildRules = do
             then copyFileChanged (srcDir </> asset) out
             else genPdfAction getPost out
         ".txt" -> do
-          txtExists <- doesFileExist (srcDir </> asset)
-          if txtExists
+          fileExists <- doesFileExist (srcDir </> asset)
+          if fileExists
             then copyFileChanged (srcDir </> asset) out
             else genAsciiAction getPost out
+        ".gmi" -> genGeminiAction getPost out
         ".jpg" -> compressImage asset
         ".jpeg" -> compressImage asset
         ".gif" -> compressImage asset
@@ -353,6 +354,28 @@ genPdfAction _getPost out = do
     , "-V", "monofontoptions:Scale=0.7"
     , "-o", out ]
 
+
+genGemini :: (MonadIO m, MonadFail m) => BlogPost -> m Text
+genGemini bp = do
+  eitherAscii <- liftIO $ Pandoc.runIO $ Writers.writePlain def (postBody bp)
+  case eitherAscii of
+    Left _ -> fail "BAD"
+    Right innerAscii -> return innerAscii
+
+genGeminiAction
+  :: (FilePath -> Action BlogPost)
+     -> [Char] -> Action ()
+genGeminiAction getPost out = do
+  let srcFile = srcDir </> (dropDirectory1 (dropDirectory1 (out -<.> "org")))
+  need [srcFile]
+  bp <- getPost srcFile
+  innerGemini <- genGemini bp
+  let preamble = "# " <> postTitle bp <> "\n"
+                 <> postAuthor bp <> "\n"
+                 <> postDate bp <> "\n"
+                 <> toS origin <> toS (postUrl bp) <> "\n\n"
+  writeFile' out (toS  (preamble <> toS innerGemini))
+
 allHtmlAction :: Action ()
 allHtmlAction = do
     allOrgFiles <- getDirectoryFiles srcDir ["//*.org"]
@@ -371,6 +394,12 @@ allAsciiAction = do
     let allAsciiFiles = map (-<.> "txt") allOrgFiles
     need (map build allAsciiFiles)
 
+allGeminiAction :: Action ()
+allGeminiAction = do
+    allOrgFiles <- getDirectoryFiles srcDir ["//*.org"]
+    let allGeminiFiles = map (("gemini" </>) . (-<.> "gmi")) allOrgFiles
+    need (map build allGeminiFiles)
+
 compressImage :: FilePath -> Action ()
 compressImage img = do
   let src = srcDir </> img
@@ -408,6 +437,7 @@ needAll = do
   needFast
   allAsciiAction
   allPdfAction
+  allGeminiAction
 
 allRule :: Rules ()
 allRule =