From a01573692af91f54b5fe6670e4a07fb6a3935181 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Fri, 2 Mar 2018 12:52:39 +0300 Subject: Muse reader: enable tags even if amuse extension is enabled Amusewiki disables tags for security reasons. If user wants similar behavior in pandoc, RawBlocks and RawInlines can be removed or replaced with filters. --- src/Text/Pandoc/Readers/Muse.hs | 2 -- test/Tests/Readers/Muse.hs | 9 --------- 2 files changed, 11 deletions(-) diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index aaa54e65b..c083933ff 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -402,7 +402,6 @@ exampleTag = try $ do literalTag :: PandocMonad m => MuseParser m (F Blocks) literalTag = do - guardDisabled Ext_amuse -- Text::Amuse does not support (return . rawBlock) <$> htmlBlock "literal" where -- FIXME: Emacs Muse inserts without style into all output formats, but we assume HTML @@ -880,7 +879,6 @@ codeTag = do inlineLiteralTag :: PandocMonad m => MuseParser m (F Inlines) inlineLiteralTag = do - guardDisabled Ext_amuse -- Text::Amuse does not support (return . rawInline) <$> htmlElement "literal" where -- FIXME: Emacs Muse inserts without style into all output formats, but we assume HTML diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index f326b39d4..4528ac4b1 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -207,9 +207,6 @@ tests = [ test emacsMuse "Inline literal" ("Foolitbar" =?> para (text "Foo" <> rawInline "html" "lit" <> text "bar")) - , "No literal in Text::Amuse" =: - "Foolitbar" =?> - para "Foolitbar" ] ] @@ -475,12 +472,6 @@ tests = , "" ] =?> rawBlock "latex" "\\newpage") - , "No literal blocks in Text::Amuse" =: - T.unlines [ "" - , "\\newpage" - , "" - ] =?> - para "\n\\newpage\n" ] , "Center" =: T.unlines [ "
" -- cgit v1.2.3