1 files changed, 16 insertions, 0 deletions

diff --git a/build/extract-title.hs b/build/extract-title.hs
new file mode 100755
index 0000000..f3ca1ba
--- /dev/null
+++ b/build/extract-title.hs
@@ -0,0 +1,16 @@
+#!/usr/bin/env runhaskell
+
+import Text.Pandoc.Pretty
+import Text.Pandoc.JSON
+import System.IO
+
+extract_title :: Pandoc -> IO Pandoc
+extract_title d@(Pandoc m _) = do hPutStrLn stderr $ render Nothing $ cat $ map pretty (docTitle m)
+                                  return d
+  where pretty :: Inline -> Doc
+        pretty (Str s) = text s
+        pretty Space = space
+        pretty _ = empty
+
+main :: IO ()
+main = toJSONFilter extract_title