diff options
author | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-02 17:19:26 +0300 |
---|---|---|
committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-02 17:19:26 +0300 |
commit | 23808452061defedd3c73defcbf0e73e2e73bb2f (patch) | |
tree | 3dca892d24d807aa56b1f17277eafd6ac5c891fe /src/Text | |
parent | dfbae03810b168dc8af3127318918fb13ecbdc55 (diff) | |
download | pandoc-23808452061defedd3c73defcbf0e73e2e73bb2f.tar.gz |
Muse reader: add <math> tag support
Diffstat (limited to 'src/Text')
-rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 9e2ec310d..c3ae0de4e 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -761,6 +761,7 @@ inlineList = [ whitespace , link , code , codeTag + , mathTag , inlineLiteralTag , str , symbol @@ -882,6 +883,10 @@ code = try $ do codeTag :: PandocMonad m => MuseParser m (F Inlines) codeTag = return . uncurry B.codeWith <$> htmlElement "code" +-- <math> tag is an Emacs Muse extension enabled by (require 'muse-latex2png) +mathTag :: PandocMonad m => MuseParser m (F Inlines) +mathTag = return . B.math . snd <$> htmlElement "math" + inlineLiteralTag :: PandocMonad m => MuseParser m (F Inlines) inlineLiteralTag = (return . rawInline) <$> htmlElement "literal" |