From 0c7ac0c862dada9250fb2ad3fbc749b9daddb5b0 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 22 Oct 2018 16:02:04 -0700
Subject: GroffChar: Proper combining characters for combining accents.

---
 src/Text/Pandoc/GroffChar.hs | 27 +++++++++++++++++++++------
 1 file changed, 21 insertions(+), 6 deletions(-)

(limited to 'src/Text/Pandoc')

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")
+  ]
-- 
cgit v1.2.3