git.iko.soy/typeable/pandoc
on master help sign in
Muse reader: parse "~~" as non-breaking space in Text::Amuse mode

Latest Text::Amuse supports "~~"

commit9986ccb3330847963532311e00f137dfb4a004e1 authorAlexander Krotov <ilabdsf@gmail.com> dateThu 18 Jan 2018, 02:46 (9 years ago) parentab85143
2 files changed+3−4
compare with master
unifiedsplit
src/Text/Pandoc/Readers/Muse.hs+1−2 test/Tests/Readers/Muse.hs+2−2
src/Text/Pandoc/Readers/Muse.hs+1−2
@@ -714,8 +714,7 @@ verbatimTag = do
714714 return $ return $ B.text content
715715
716716nbsp :: PandocMonad m => MuseParser m (F Inlines)
717−nbsp = do
718− guardDisabled Ext_amuse -- Supported only by Emacs Muse
717+nbsp = try $ do
719718 string "~~"
720719 return $ return $ B.str "\160"
721720
test/Tests/Readers/Muse.hs+2−2
@@ -114,8 +114,8 @@ tests =
114114
115115 , "Linebreak" =: "Line <br> break" =?> para ("Line" <> linebreak <> "break")
116116
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"
119119
120120 , testGroup "Code markup"
121121 [ "Code" =: "=foo(bar)=" =?> para (code "foo(bar)")