@@ -105,16 +105,10 @@ wrappedMarkdown opts sect = do
105105 chunks' <- mapM (inlineListToMarkdown opts) chunks
106106 return $ fsep chunks'
107107
108−-- | Escape nonbreaking space as entity
109−escapeNbsp "" = ""
110−escapeNbsp ('\160':xs) = " " ++ escapeNbsp xs
111−escapeNbsp str =
112− let (a,b) = break (=='\160') str in
113− a ++ escapeNbsp b
114−
115108-- | Escape special characters for Markdown.
116109escapeString :: String -> String
117−escapeString = backslashEscape "`<\\*_^" . escapeNbsp
110+escapeString = backslashEscape "`<\\*_^" .
111+ escapeCharAsString '\160' " "
118112
119113-- | Convert bibliographic information into Markdown header.
120114metaToMarkdown :: WriterOptions -> Meta -> State WriterState Doc