Start of complete rewrite to switch to hakyll

1 files changed, 0 insertions, 25 deletions

diff --git a/build/extract-title.hs b/build/extract-title.hs
deleted file mode 100755
index 6964d26..0000000
--- a/build/extract-title.hs
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/usr/bin/env runhaskell
-
--- import Text.Pandoc.Pretty
--- import Text.Pandoc.JSON
-import Text.Pandoc.Pretty
-import Text.Pandoc.JSON
-import qualified Text.Pandoc.Walk as W
-import System.IO
-import qualified Data.Aeson as A
-import qualified Data.ByteString.Lazy as BL
-
-extract_title :: Pandoc -> String
-extract_title (Pandoc m _) = do
-  title <- render Nothing $ cat $ map pretty (docTitle m)
-  return title
-    where pretty :: Inline -> Doc
-          pretty (Str s) = text s
-          pretty Space = space
-          pretty _ = empty
-
-main :: IO ()
-main = do
-  input <- BL.getContents
-  let title = (W.query extract_title :: Pandoc -> String) . either error id . A.eitherDecode' $ input
-  putStrLn title