From 159863e8dad24e98be3478867d0f8ea63b2a764b Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 17 Aug 2018 22:11:31 -0700 Subject: LaTeX reader: use combining characters when needed for accents. For example, there is no unicode code point corresponding to \"{X}, so we use a combining accent. --- src/Text/Pandoc/Readers/LaTeX.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 44b93439d..cafa55f57 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -1073,7 +1073,10 @@ accent :: PandocMonad m => Char -> (Char -> String) -> LP m Inlines accent c f = try $ do ils <- tok case toList ils of - (Str (x:xs) : ys) -> return $ fromList (Str (f x ++ xs) : ys) + (Str (x:xs) : ys) -> return $ fromList $ + case f x of + [z] | z == x -> Str ([z,c] ++ xs) : ys -- combining accent + zs -> Str (zs ++ xs) : ys [Space] -> return $ str [c] [] -> return $ str [c] _ -> return ils -- cgit v1.2.3