From 23808452061defedd3c73defcbf0e73e2e73bb2f Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Mon, 2 Apr 2018 17:19:26 +0300
Subject: Muse reader: add <math> tag support

---
 src/Text/Pandoc/Readers/Muse.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src')

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"
-- 
cgit v1.2.3