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