git.iko.soy/typeable/pandoc
on master help sign in
Modified Main.hs and Pandoc.cabal to add man page
a669f64fiddlosopher
Pandoc.cabal+1
@@ -23,6 +23,7 @@ Exposed-Modules: Text.ParserCombinators.Pandoc,
23 Text.Pandoc.Writers.DefaultHeaders,
23 Text.Pandoc.Writers.DefaultHeaders,
24 Text.Pandoc.Writers.Docbook,
24 Text.Pandoc.Writers.Docbook,
25 Text.Pandoc.Writers.HTML,
25 Text.Pandoc.Writers.HTML,
26+ Text.Pandoc.Writers.Man,
26 Text.Pandoc.Writers.Markdown,
27 Text.Pandoc.Writers.Markdown,
27 Text.Pandoc.Writers.LaTeX,
28 Text.Pandoc.Writers.LaTeX,
28 Text.Pandoc.Writers.RST,
29 Text.Pandoc.Writers.RST,
src/Main.hs+3
@@ -41,6 +41,7 @@ import Text.Pandoc.Writers.Docbook ( writeDocbook )
41import Text.Pandoc.Writers.LaTeX ( writeLaTeX )
41import Text.Pandoc.Writers.LaTeX ( writeLaTeX )
42import Text.Pandoc.Readers.LaTeX ( readLaTeX )
42import Text.Pandoc.Readers.LaTeX ( readLaTeX )
43import Text.Pandoc.Writers.RTF ( writeRTF )
43import Text.Pandoc.Writers.RTF ( writeRTF )
44+import Text.Pandoc.Writers.Man ( writeMan )
44import Text.Pandoc.Writers.Markdown ( writeMarkdown )
45import Text.Pandoc.Writers.Markdown ( writeMarkdown )
45import Text.Pandoc.Writers.DefaultHeaders ( defaultRTFHeader,
46import Text.Pandoc.Writers.DefaultHeaders ( defaultRTFHeader,
46 defaultS5Header,
47 defaultS5Header,
@@ -87,6 +88,7 @@ writers = [("native" , (writeDoc, ""))
87 ,("s5" , (writeS5String, defaultS5Header))
88 ,("s5" , (writeS5String, defaultS5Header))
88 ,("docbook" , (writeDocbook, defaultDocbookHeader))
89 ,("docbook" , (writeDocbook, defaultDocbookHeader))
89 ,("latex" , (writeLaTeX, defaultLaTeXHeader))
90 ,("latex" , (writeLaTeX, defaultLaTeXHeader))
91+ ,("man" , (writeMan, ""))
90 ,("markdown" , (writeMarkdown, ""))
92 ,("markdown" , (writeMarkdown, ""))
91 ,("rst" , (writeRST, ""))
93 ,("rst" , (writeRST, ""))
92 ,("rtf" , (writeRTF, defaultRTFHeader))
94 ,("rtf" , (writeRTF, defaultRTFHeader))
@@ -355,6 +357,7 @@ defaultWriterName x =
355 Just ["db"] -> "docbook"
357 Just ["db"] -> "docbook"
356 Just ["xml"] -> "docbook"
358 Just ["xml"] -> "docbook"
357 Just ["sgml"] -> "docbook"
359 Just ["sgml"] -> "docbook"
360+ Just ["1"] -> "man"
358 Just _ -> "html"
361 Just _ -> "html"
359
362
360main = do
363main = do