diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-06-30 22:43:14 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-06-30 22:43:14 +0000 |
commit | a669f641b51e29254bce139cd2f045f4b9b1038c (patch) | |
tree | 7a565d77c9979dd67f06af2ec525cd6195e308dd | |
parent | c726e83ce98193a3881001f23bd1ad7de8f11ac6 (diff) | |
download | pandoc-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.cabal | 1 | ||||
-rw-r--r-- | src/Main.hs | 3 |
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 |