git.iko.soy/typeable/pandoc
on master help sign in
Muse reader: parse "~~" as non-breaking space in Text::Amuse mode
9986ccbAlexander Krotov
src/Text/Pandoc/Readers/Muse.hs+1−2
compare with master
unifiedsplit
@@ -714,8 +714,7 @@ verbatimTag = do
714 return $ return $ B.text content
714 return $ return $ B.text content
715
715
716nbsp :: PandocMonad m => MuseParser m (F Inlines)
716nbsp :: PandocMonad m => MuseParser m (F Inlines)
717−nbsp = do
717+nbsp = try $ do
718− guardDisabled Ext_amuse -- Supported only by Emacs Muse
719 string "~~"
718 string "~~"
720 return $ return $ B.str "\160"
719 return $ return $ B.str "\160"
721
720
test/Tests/Readers/Muse.hs+2−2
@@ -114,8 +114,8 @@ tests =
114
114
115 , "Linebreak" =: "Line <br> break" =?> para ("Line" <> linebreak <> "break")
115 , "Linebreak" =: "Line <br> break" =?> para ("Line" <> linebreak <> "break")
116
116
117− , test emacsMuse "Non-breaking space"
118− ("Foo~~bar" =?> para "Foo\160bar")
117+ , "Non-breaking space" =: "Foo~~bar" =?> para "Foo\160bar"
118+ , "Single ~" =: "Foo~bar" =?> para "Foo~bar"
119
119
120 , testGroup "Code markup"
120 , testGroup "Code markup"
121 [ "Code" =: "=foo(bar)=" =?> para (code "foo(bar)")
121 [ "Code" =: "=foo(bar)=" =?> para (code "foo(bar)")