@@ -243,7 +243,8 @@ exampleTag = do
243literal :: PandocMonad m => MuseParser m (F Blocks)
243literal :: PandocMonad m => MuseParser m (F Blocks)
244literal = (return . rawBlock) <$> htmlElement "literal"
244literal = (return . rawBlock) <$> htmlElement "literal"
246+ -- FIXME: Emacs Muse inserts <literal> without style into all output formats, but we assume HTML
246− format (_, _, kvs) = fromMaybe "html" $ lookup "format" kvs
247+ format (_, _, kvs) = fromMaybe "html" $ lookup "style" kvs
247 rawBlock (attrs, content) = B.rawBlock (format attrs) content
248 rawBlock (attrs, content) = B.rawBlock (format attrs) content
249blockTag :: PandocMonad m
250blockTag :: PandocMonad m