git.iko.soy/typeable/pandoc
on master help sign in
Muse reader: add <math> tag support
commit23808452061defedd3c73defcbf0e73e2e73bb2f authorAlexander Krotov <ilabdsf@gmail.com> dateMon 2 Apr 2018, 17:19 (9 years ago) parentdfbae03
2 files changed+7
compare with master
unifiedsplit
src/Text/Pandoc/Readers/Muse.hs+5 test/Tests/Readers/Muse.hs+2
src/Text/Pandoc/Readers/Muse.hs+5
@@ -761,6 +761,7 @@ inlineList = [ whitespace
761761 , link
762762 , code
763763 , codeTag
764+ , mathTag
764765 , inlineLiteralTag
765766 , str
766767 , symbol
@@ -882,6 +883,10 @@ code = try $ do
882883codeTag :: PandocMonad m => MuseParser m (F Inlines)
883884codeTag = return . uncurry B.codeWith <$> htmlElement "code"
884885
886+-- <math> tag is an Emacs Muse extension enabled by (require 'muse-latex2png)
887+mathTag :: PandocMonad m => MuseParser m (F Inlines)
888+mathTag = return . B.math . snd <$> htmlElement "math"
889+
885890inlineLiteralTag :: PandocMonad m => MuseParser m (F Inlines)
886891inlineLiteralTag =
887892 (return . rawInline) <$> htmlElement "literal"
test/Tests/Readers/Muse.hs+2
@@ -167,6 +167,8 @@ tests =
167167
168168 , "Code tag" =: "<code>foo(bar)</code>" =?> para (code "foo(bar)")
169169
170+ , "Math tag" =: "<math>\\sum_{i=0}^n i^2</math>" =?> para (math "\\sum_{i=0}^n i^2")
171+
170172 , "Verbatim tag" =: "*<verbatim>*</verbatim>*" =?> para (emph "*")
171173
172174 , "Verbatim inside code" =: "<code><verbatim>foo</verbatim></code>" =?> para (code "<verbatim>foo</verbatim>")