diff options
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc.hs | 3 | ||||
| -rw-r--r-- | src/Text/Pandoc/Options.hs | 20 |
2 files changed, 21 insertions, 2 deletions
diff --git a/src/Text/Pandoc.hs b/src/Text/Pandoc.hs index 66401c674..be9c8f573 100644 --- a/src/Text/Pandoc.hs +++ b/src/Text/Pandoc.hs @@ -188,6 +188,7 @@ readers = [("native" , \_ s -> return $ readNative s) ,("markdown" , markdown) ,("markdown_strict" , markdown) ,("markdown_phpextra" , markdown) + ,("markdown_mmd", markdown) ,("rst" , \o s -> return $ readRST o s) ,("mediawiki" , \o s -> return $ readMediaWiki o s) ,("docbook" , \o s -> return $ readDocBook o s) @@ -237,6 +238,7 @@ writers = [ ,("markdown_strict" , PureStringWriter writeMarkdown) ,("markdown_phpextra" , PureStringWriter writeMarkdown) ,("markdown_github" , PureStringWriter writeMarkdown) + ,("markdown_mmd" , PureStringWriter writeMarkdown) ,("plain" , PureStringWriter writePlain) ,("rst" , PureStringWriter writeRST) ,("mediawiki" , PureStringWriter writeMediaWiki) @@ -249,6 +251,7 @@ writers = [ getDefaultExtensions :: String -> Set Extension getDefaultExtensions "markdown_strict" = strictExtensions getDefaultExtensions "markdown_phpextra" = phpMarkdownExtraExtensions +getDefaultExtensions "markdown_mmd" = multimarkdownExtensions getDefaultExtensions "markdown_github" = githubMarkdownExtensions getDefaultExtensions _ = pandocExtensions diff --git a/src/Text/Pandoc/Options.hs b/src/Text/Pandoc/Options.hs index c659b652d..f64926f67 100644 --- a/src/Text/Pandoc/Options.hs +++ b/src/Text/Pandoc/Options.hs @@ -33,6 +33,7 @@ module Text.Pandoc.Options ( Extension(..) , strictExtensions , phpMarkdownExtraExtensions , githubMarkdownExtensions + , multimarkdownExtensions , ReaderOptions(..) , HTMLMathMethod (..) , CiteMethod (..) @@ -85,7 +86,6 @@ data Extension = | Ext_intraword_underscores -- ^ Treat underscore inside word as literal | Ext_blank_before_blockquote -- ^ Require blank line before a blockquote | Ext_blank_before_header -- ^ Require blank line before a header - -- | Ext_significant_bullets | Ext_strikeout -- ^ Strikeout using ~~this~~ syntax | Ext_superscript -- ^ Superscript using ^this^ syntax | Ext_subscript -- ^ Subscript using ~this~ syntax @@ -94,6 +94,7 @@ data Extension = | Ext_abbreviations -- ^ PHP markdown extra abbreviation definitions | Ext_auto_identifiers -- ^ Automatic identifiers for headers | Ext_header_attributes -- ^ Explicit header attributes {#id .class k=v} + | Ext_mmd_header_identifiers -- ^ Multimarkdown style header identifiers [myid] | Ext_implicit_header_references -- ^ Implicit reference links for headers | Ext_line_blocks -- ^ RST style line blocks deriving (Show, Read, Enum, Eq, Ord, Bounded) @@ -128,7 +129,6 @@ pandocExtensions = Set.fromList , Ext_intraword_underscores , Ext_blank_before_blockquote , Ext_blank_before_header - -- , Ext_significant_bullets , Ext_strikeout , Ext_superscript , Ext_subscript @@ -165,6 +165,22 @@ githubMarkdownExtensions = Set.fromList , Ext_hard_line_breaks ] +multimarkdownExtensions :: Set Extension +multimarkdownExtensions = Set.fromList + [ Ext_pipe_tables + , Ext_raw_html + , Ext_raw_tex + , Ext_tex_math_double_backslash + , Ext_intraword_underscores + , Ext_mmd_title_block + , Ext_footnotes + , Ext_definition_lists + , Ext_all_symbols_escapable + , Ext_implicit_header_references + , Ext_auto_identifiers + , Ext_mmd_header_identifiers + ] + strictExtensions :: Set Extension strictExtensions = Set.fromList [ Ext_raw_html ] |