diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-21 18:29:29 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-21 19:01:53 +0300 |
| commit | 91d67334263058fa884793cb71d5ba9e7fcc4eb3 (patch) | |
| tree | 6b583994827533b8d713cccc024c5c8329057e7a /src/Text/Pandoc | |
| parent | 1b970cca13ec6f5ace72dedd1df81fdaf1b9ad8b (diff) | |
| download | pandoc-91d67334263058fa884793cb71d5ba9e7fcc4eb3.tar.gz | |
Muse reader: <literal> has "style" attribute, not "format"
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 <literal> 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 |