Added ConTeXt export.

jgm · Nov 11, 2008 · 2b90654 · 2b90654
1 parent 221bf66
commit 2b90654
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/Gitit.hs b/Gitit.hs
@@ -899,9 +899,13 @@ respondLaTeX :: Pandoc -> Response
 respondLaTeX = setContentType "text/latex" . toResponse .
                writeLaTeX (defaultRespOptions {writerHeader = defaultLaTeXHeader})
 
+respondConTeXt :: Pandoc -> Response
+respondConTeXt = setContentType "text/context" . toResponse .
+                 writeLaTeX (defaultRespOptions {writerHeader = defaultConTeXtHeader})
+
 exportFormats :: [(String, Pandoc -> Response)]   -- (description, mime type, writer)
 exportFormats = [ ("LaTeX",     respondLaTeX)
-                ]
+                , ("ConTeXt",   respondConTeXt) ]
 
 exportBox :: String -> Html
 exportBox page =