diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 4d3f844b5..13e5aca89 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -48,9 +48,16 @@ writeMarkdown options (Pandoc meta blocks) = else empty in render $ head <> body +-- | Escape nonbreaking space as entity +escapeNbsp "" = "" +escapeNbsp ('\160':xs) = " " ++ escapeNbsp xs +escapeNbsp str = + let (a,b) = break (=='\160') str in + a ++ escapeNbsp b + -- | Escape special characters for Markdown. escapeString :: String -> String -escapeString = backslashEscape "`<\\*_^" +escapeString = backslashEscape "`<\\*_^" . escapeNbsp -- | Take list of inline elements and return wrapped doc. wrappedMarkdown :: [Inline] -> Doc |