1 files changed, 40 insertions, 0 deletions
diff --git a/MakeManPage.hs b/MakeManPage.hs
new file mode 100644
index 000000000..3d01ca61f
--- /dev/null
+++ b/MakeManPage.hs
@@ -0,0 +1,40 @@
+-- Create pandoc.1 man page from README
+import Text.Pandoc
+import Data.ByteString.UTF8 (toString, fromString)
+import Data.Char (toUpper)
+import qualified Data.ByteString as B
+import Control.Monad
+import System.FilePath
+
+main = do
+  rmContents <- liftM toString $ B.readFile "README"
+  let (Pandoc meta blocks) = readMarkdown defaultParserState rmContents
+  let newBlocks = removeWrapperSect blocks
+  manTemplate <- liftM toString $ B.readFile "manpage.template"
+  let opts = defaultWriterOptions{ writerStandalone = True
+                                 , writerTemplate = manTemplate }
+  let manPage = writeMan opts $
+                processWith (concatMap removeLinks) $
+                processWith capitalizeHeaders $
+                Pandoc meta newBlocks
+  B.writeFile ("man" </> "man1" </> "pandoc.1") $ fromString manPage
+
+removeLinks :: Inline -> [Inline]
+removeLinks (Link l _) = l
+removeLinks x = [x]
+
+capitalizeHeaders :: Block -> Block
+capitalizeHeaders (Header 1 xs) = Header 1 $ processWith capitalize xs
+capitalizeHeaders x = x
+
+capitalize :: Inline -> Inline
+capitalize (Str xs) = Str $ map toUpper xs
+capitalize x = x
+
+removeWrapperSect :: [Block] -> [Block]
+removeWrapperSect (Header 1 [Str "Wrappers"]:xs) =
+  dropWhile notLevelOneHeader xs
+    where notLevelOneHeader (Header 1 _) = False
+          notLevelOneHeader _ = True
+removeWrapperSect (x:xs) = x : removeWrapperSect xs
+removeWrapperSect [] = []