@@ -48,9 +48,16 @@ writeMarkdown options (Pandoc meta blocks) =
4848 else empty in
4949 render $ head <> body
5050
51+-- | Escape nonbreaking space as entity
52+escapeNbsp "" = ""
53+escapeNbsp ('\160':xs) = " " ++ escapeNbsp xs
54+escapeNbsp str =
55+ let (a,b) = break (=='\160') str in
56+ a ++ escapeNbsp b
57+
5158-- | Escape special characters for Markdown.
5259escapeString :: String -> String
53−escapeString = backslashEscape "`<\\*_^"
60+escapeString = backslashEscape "`<\\*_^" . escapeNbsp
5461
5562-- | Take list of inline elements and return wrapped doc.
5663wrappedMarkdown :: [Inline] -> Doc