diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 4f9e9697d..794ca7385 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -581,6 +581,7 @@ inlineList = [ endline , subscriptTag , strikeoutTag , verbatimTag + , nbsp , link , code , codeTag @@ -682,6 +683,12 @@ verbatimTag = do content <- parseHtmlContent "verbatim" anyChar return $ return $ B.text content +nbsp :: PandocMonad m => MuseParser m (F Inlines) +nbsp = do + guardDisabled Ext_amuse -- Supported only by Emacs Muse + string "~~" + return $ return $ B.str "\160" + code :: PandocMonad m => MuseParser m (F Inlines) code = try $ do pos <- getPosition |