From a669f641b51e29254bce139cd2f045f4b9b1038c Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sat, 30 Jun 2007 22:43:14 +0000
Subject: [PATCH] Modified Main.hs and Pandoc.cabal to add man page writer.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@607 788f1e2b-df1e-0410-8736-df70ead52e1b
---
Pandoc.cabal | 1 +
src/Main.hs | 3 +++
2 files changed, 4 insertions(+)
diff --git a/Pandoc.cabal b/Pandoc.cabal
index d5fe0acab..c473ff8e8 100644
--- a/Pandoc.cabal
+++ b/Pandoc.cabal
@@ -23,6 +23,7 @@ Exposed-Modules: Text.ParserCombinators.Pandoc,
Text.Pandoc.Writers.DefaultHeaders,
Text.Pandoc.Writers.Docbook,
Text.Pandoc.Writers.HTML,
+ Text.Pandoc.Writers.Man,
Text.Pandoc.Writers.Markdown,
Text.Pandoc.Writers.LaTeX,
Text.Pandoc.Writers.RST,
diff --git a/src/Main.hs b/src/Main.hs
index 7e8ea829a..95b4420c1 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -41,6 +41,7 @@ import Text.Pandoc.Writers.Docbook ( writeDocbook )
import Text.Pandoc.Writers.LaTeX ( writeLaTeX )
import Text.Pandoc.Readers.LaTeX ( readLaTeX )
import Text.Pandoc.Writers.RTF ( writeRTF )
+import Text.Pandoc.Writers.Man ( writeMan )
import Text.Pandoc.Writers.Markdown ( writeMarkdown )
import Text.Pandoc.Writers.DefaultHeaders ( defaultRTFHeader,
defaultS5Header,
@@ -87,6 +88,7 @@ writers = [("native" , (writeDoc, ""))
,("s5" , (writeS5String, defaultS5Header))
,("docbook" , (writeDocbook, defaultDocbookHeader))
,("latex" , (writeLaTeX, defaultLaTeXHeader))
+ ,("man" , (writeMan, ""))
,("markdown" , (writeMarkdown, ""))
,("rst" , (writeRST, ""))
,("rtf" , (writeRTF, defaultRTFHeader))
@@ -355,6 +357,7 @@ defaultWriterName x =
Just ["db"] -> "docbook"
Just ["xml"] -> "docbook"
Just ["sgml"] -> "docbook"
+ Just ["1"] -> "man"
Just _ -> "html"
main = do