aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-06-30 22:43:14 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-06-30 22:43:14 +0000
commita669f641b51e29254bce139cd2f045f4b9b1038c (patch)
tree7a565d77c9979dd67f06af2ec525cd6195e308dd
parentc726e83ce98193a3881001f23bd1ad7de8f11ac6 (diff)
downloadpandoc-a669f641b51e29254bce139cd2f045f4b9b1038c.tar.gz
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
-rw-r--r--Pandoc.cabal1
-rw-r--r--src/Main.hs3
2 files changed, 4 insertions, 0 deletions
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