diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/pandoc.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/pandoc.hs b/src/pandoc.hs index 3aa9a4ba8..e8220de34 100644 --- a/src/pandoc.hs +++ b/src/pandoc.hs @@ -29,6 +29,7 @@ Parses command-line options and calls the appropriate readers and writers. -} module Main where +import Text.JSON.Generic (encodeJSON, decodeJSON) import Text.Pandoc import Text.Pandoc.S5 (s5HeaderIncludes) import Text.Pandoc.Shared ( tabFilter, ObfuscationMethod (..), readDataFile, @@ -83,6 +84,7 @@ wrapWords c = wrap' c c where -- | Association list of formats and readers. readers :: [(String, ParserState -> String -> Pandoc)] readers = [("native" , readPandoc) + ,("json" , readJSON) ,("markdown" , readMarkdown) ,("markdown+lhs" , readMarkdown) ,("rst" , readRST) @@ -97,9 +99,18 @@ readers = [("native" , readPandoc) readPandoc :: ParserState -> String -> Pandoc readPandoc _ = read +-- | Reader for JSON version of Pandoc AST. +readJSON :: ParserState -> String -> Pandoc +readJSON _ = decodeJSON + +-- | Writer for JSON version of Pandoc AST. +writeJSON :: WriterOptions -> Pandoc -> String +writeJSON _ = encodeJSON + -- | Association list of formats and writers. writers :: [ ( String, WriterOptions -> Pandoc -> String ) ] writers = [("native" , writeNative) + ,("json" , writeJSON) ,("html" , writeHtmlString) ,("html+lhs" , writeHtmlString) ,("s5" , writeHtmlString) |