diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 6a3347c0f..ebfc7414c 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -342,6 +342,7 @@ inlineCommands = M.fromList , ("^", option (str "^") $ try $ tok >>= accent hat) , ("~", option (str "~") $ try $ tok >>= accent circ) , ("\"", option (str "\"") $ try $ tok >>= accent umlaut) + , (".", option (str ".") $ try $ tok >>= accent dot) , ("i", lit "i") , ("\\", linebreak <$ optional (bracketed inline *> optional sp)) , (",", pure mempty) @@ -500,6 +501,18 @@ umlaut 'o' = 'ö' umlaut 'u' = 'ü' umlaut c = c +dot :: Char -> Char +dot 'C' = 'Ċ' +dot 'c' = 'ċ' +dot 'E' = 'Ė' +dot 'e' = 'ė' +dot 'G' = 'Ġ' +dot 'g' = 'ġ' +dot 'I' = 'İ' +dot 'Z' = 'Ż' +dot 'z' = 'ż' +dot c = c + tok :: LP Inlines tok = try $ grouped inline <|> inlineCommand <|> str <$> (count 1 $ inlineChar) |