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