diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-09-05 13:54:44 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-09-05 13:54:44 -0700 |
| commit | 0b05222a9c915d2062e416d177d36af4b474e0c2 (patch) | |
| tree | 99bbc670964fe1e93e78d9c34d9736f2bdc722e3 /src/Text | |
| parent | bc5624dac2da7674f42838db8672520e8949c9db (diff) | |
LaTeX reader: Better support for ogonek accents.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index b6b53e1fc..d0e95bd85 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -965,6 +965,15 @@ hacek c = [c] ogonek :: Char -> String ogonek 'a' = "ą" +ogonek 'e' = "ę" +ogonek 'o' = "ǫ" +ogonek 'i' = "į" +ogonek 'u' = "ų" +ogonek 'A' = "Ą" +ogonek 'E' = "Ę" +ogonek 'I' = "Į" +ogonek 'O' = "Ǫ" +ogonek 'U' = "Ų" ogonek c = [c] breve :: Char -> String @@ -1293,6 +1302,7 @@ inlineCommands = M.fromList $ , ("v", accent 'ˇ' hacek) , ("u", accent '\774' breve) , ("k", accent '\808' ogonek) + , ("textogonekcentered", accent '\808' ogonek) , ("i", lit "i") , ("\\", linebreak <$ (do inTableCell <- sInTableCell <$> getState guard $ not inTableCell |