From 91d67334263058fa884793cb71d5ba9e7fcc4eb3 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Tue, 21 Nov 2017 18:29:29 +0300 Subject: Muse reader: has "style" attribute, not "format" --- src/Text/Pandoc/Readers/Muse.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index d54019777..89b23f5a3 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -243,7 +243,8 @@ exampleTag = do literal :: PandocMonad m => MuseParser m (F Blocks) literal = (return . rawBlock) <$> htmlElement "literal" where - format (_, _, kvs) = fromMaybe "html" $ lookup "format" kvs + -- FIXME: Emacs Muse inserts without style into all output formats, but we assume HTML + format (_, _, kvs) = fromMaybe "html" $ lookup "style" kvs rawBlock (attrs, content) = B.rawBlock (format attrs) content blockTag :: PandocMonad m -- cgit v1.2.3