diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-22 16:02:04 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-22 16:02:04 -0700 |
| commit | 0c7ac0c862dada9250fb2ad3fbc749b9daddb5b0 (patch) | |
| tree | d36ce1daf8fca35f2a531a5e74342ec608a5364b /src/Text/Pandoc | |
| parent | 87fa837569a9f50b44f59a7a7a3a8c50c561f9af (diff) | |
| download | pandoc-0c7ac0c862dada9250fb2ad3fbc749b9daddb5b0.tar.gz | |
GroffChar: Proper combining characters for combining accents.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/GroffChar.hs | 27 |
1 files changed, 21 insertions, 6 deletions
diff --git a/src/Text/Pandoc/GroffChar.hs b/src/Text/Pandoc/GroffChar.hs index 97ff0b100..6d7991e5d 100644 --- a/src/Text/Pandoc/GroffChar.hs +++ b/src/Text/Pandoc/GroffChar.hs @@ -396,12 +396,7 @@ characterCodes = , ('♠', "SP") , ('♥', "HE") , ('♦', "DI") - ] - --- use like: \\[E a^ aa] -combiningAccents :: [(Char, String)] -combiningAccents = - [ ('˝' , "a\"") + , ('˝' , "a\"") , ('¯', "a-") , ('˙', "a.") , ('^', "a^") @@ -417,3 +412,23 @@ combiningAccents = , ('^', "ha") , ('~', "ti") ] + +-- use like: \\[E a^ aa] +combiningAccents :: [(Char, String)] +combiningAccents = + [ ('\779' , "a\"") + , ('\772', "a-") + , ('\775', "a.") + , ('\770', "a^") + , ('\769', "aa") + , ('\768', "ga") + , ('\774', "ab") + , ('\807', "ac") + , ('\776', "ad") + , ('\780', "ah") + , ('\778', "ao") + , ('\771', "a~") + , ('\808', "ho") + , ('\770', "ha") + , ('\771', "ti") + ] |