git.iko.soy/typeable/pandoc
on master help sign in
Muse reader: enable <literal> tags even if amuse extension is enabled
a015736Alexander Krotov
src/Text/Pandoc/Readers/Muse.hs−2
compare with master
unifiedsplit
@@ -402,7 +402,6 @@ exampleTag = try $ do
402
402
403literalTag :: PandocMonad m => MuseParser m (F Blocks)
403literalTag :: PandocMonad m => MuseParser m (F Blocks)
404literalTag = do
404literalTag = do
405− guardDisabled Ext_amuse -- Text::Amuse does not support <literal>
406 (return . rawBlock) <$> htmlBlock "literal"
405 (return . rawBlock) <$> htmlBlock "literal"
407 where
406 where
408 -- FIXME: Emacs Muse inserts <literal> without style into all output formats, but we assume HTML
407 -- FIXME: Emacs Muse inserts <literal> without style into all output formats, but we assume HTML
@@ -880,7 +879,6 @@ codeTag = do
880
879
881inlineLiteralTag :: PandocMonad m => MuseParser m (F Inlines)
880inlineLiteralTag :: PandocMonad m => MuseParser m (F Inlines)
882inlineLiteralTag = do
881inlineLiteralTag = do
883− guardDisabled Ext_amuse -- Text::Amuse does not support <literal>
884 (return . rawInline) <$> htmlElement "literal"
882 (return . rawInline) <$> htmlElement "literal"
885 where
883 where
886 -- FIXME: Emacs Muse inserts <literal> without style into all output formats, but we assume HTML
884 -- FIXME: Emacs Muse inserts <literal> without style into all output formats, but we assume HTML
test/Tests/Readers/Muse.hs−9
@@ -207,9 +207,6 @@ tests =
207 [ test emacsMuse "Inline literal"
207 [ test emacsMuse "Inline literal"
208 ("Foo<literal style=\"html\">lit</literal>bar" =?>
208 ("Foo<literal style=\"html\">lit</literal>bar" =?>
209 para (text "Foo" <> rawInline "html" "lit" <> text "bar"))
209 para (text "Foo" <> rawInline "html" "lit" <> text "bar"))
210− , "No literal in Text::Amuse" =:
211− "Foo<literal style=\"html\">lit</literal>bar" =?>
212− para "Foo<literal style=\"html\">lit</literal>bar"
213 ]
210 ]
214 ]
211 ]
215
212
@@ -475,12 +472,6 @@ tests =
475 , "</literal>"
472 , "</literal>"
476 ] =?>
473 ] =?>
477 rawBlock "latex" "\\newpage")
474 rawBlock "latex" "\\newpage")
478− , "No literal blocks in Text::Amuse" =:
479− T.unlines [ "<literal style=\"latex\">"
480− , "\\newpage"
481− , "</literal>"
482− ] =?>
483− para "<literal style=\"latex\">\n\\newpage\n</literal>"
484 ]
475 ]
485 , "Center" =:
476 , "Center" =:
486 T.unlines [ "<center>"
477 T.unlines [ "<center>"