diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-29 13:39:03 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-29 13:39:03 -0800 |
| commit | cdb01e6d54aace50ead88964a7182c5b9e1126a4 (patch) | |
| tree | 73ec27bacc11d243a11c73f3db92e6864b66e0f6 /src/Text/Pandoc.hs | |
| parent | ea39a607eda7ea45906db44ccab4dc36bd43be89 (diff) | |
Made `html5` and `html5+lhs` output formats.
Deprecated the `--html5`/`-5` flag. Use the output format
instead.
Diffstat (limited to 'src/Text/Pandoc.hs')
| -rw-r--r-- | src/Text/Pandoc.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Text/Pandoc.hs b/src/Text/Pandoc.hs index ee5a951eb..e3c029992 100644 --- a/src/Text/Pandoc.hs +++ b/src/Text/Pandoc.hs @@ -171,8 +171,13 @@ writers :: [ ( String, WriterOptions -> Pandoc -> String ) ] writers = [("native" , writeNative) ,("json" , \_ -> encodeJSON) ,("html" , writeHtmlString) + ,("html5" , \o -> + writeHtmlString o{ writerHtml5 = True }) ,("html+lhs" , \o -> writeHtmlString o{ writerLiterateHaskell = True }) + ,("html5+lhs" , \o -> + writeHtmlString o{ writerLiterateHaskell = True, + writerHtml5 = True }) ,("s5" , writeHtmlString) ,("slidy" , writeHtmlString) ,("dzslides" , writeHtmlString) |