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