From d0ce863b202aefaeb21053b42ad0bf18fa712c8b Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Thu, 10 Oct 2024 21:47:17 +0300
Subject: Ολοκήρωση γραμμάτος Η
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 greek-polytonic.el | 61 +++++++++++++++++++++++++++++++++++++++++++-----------
 1 file changed, 49 insertions(+), 12 deletions(-)

diff --git a/greek-polytonic.el b/greek-polytonic.el
index d5f6248..7844212 100644
--- a/greek-polytonic.el
+++ b/greek-polytonic.el
@@ -204,18 +204,55 @@
  ("W:h" ?ᾐ) ;; U+1F90
  ("QWh" ?ᾑ) ;; U+1F91
  ("WQh" ?ᾑ) ;; U+1F91
- ;; TODO: The rest, diregard the following etas
- (":h" ?ἠ)
- ("qh" ?ὴ)
- ("Qh" ?ἡ)
- (":;h" ?ἤ)
- (";:h" ?ἤ)
- ("wh" ?ῆ)
- ("Wh" ?ῃ)
- ("Wwh" ?ῇ)
- ("wWh" ?ῇ)
- ("w:h" ?ἦ)
- (":wh" ?ἦ)
+ (":qWh" ?ᾑ) ;; U+1F92
+ ("q:Wh" ?ᾑ) ;; U+1F92
+ ("qW:h" ?ᾑ) ;; U+1F92
+ ("Wq:h" ?ᾑ) ;; U+1F92
+ ("QqWh" ?ᾓ) ;; U+1F93
+ ("qQWh" ?ᾓ) ;; U+1F93
+ ("QWqh" ?ᾓ) ;; U+1F93
+ ("WqQh" ?ᾓ) ;; U+1F93
+ (":;Wh" ?ᾔ) ;; U+1F94
+ (";:Wh" ?ᾔ) ;; U+1F94
+ (":W;h" ?ᾔ) ;; U+1F94
+ ("W:;h" ?ᾔ) ;; U+1F94
+ ("W;:h" ?ᾔ) ;; U+1F94
+ ("Q;Wh" ?ᾕ) ;; U+1F95
+ (";QWh" ?ᾕ) ;; U+1F95
+ (";WQh" ?ᾕ) ;; U+1F95
+ ("W;Qh" ?ᾕ) ;; U+1F95
+ ("WQ;h" ?ᾕ) ;; U+1F95
+ (":wW" ?ᾖ) ;; U+1F96
+ ("w:W" ?ᾖ) ;; U+1F96
+ ("wW:" ?ᾖ) ;; U+1F96
+ ("Ww:" ?ᾖ) ;; U+1F96
+ ("W:w" ?ᾖ) ;; U+1F96
+ ("QwW" ?ᾗ) ;; U+1F97
+ ("wQW" ?ᾗ) ;; U+1F97
+ ("QwW" ?ᾗ) ;; U+1F97
+ ("QWw" ?ᾗ) ;; U+1F97
+ ("WwQ" ?ᾗ) ;; U+1F97
+ ("qh" ?ὴ) ;; U+1F74
+ (";h" ?ή) ;; U+1F75
+ (":h" ?ἠ) ;; U+1F20
+ ("Qh" ?ἡ) ;; U+1F21
+ (":qh" ?ἢ) ;; U+1F22
+ ("q:h" ?ἢ) ;; U+1F22
+ ("Qqh" ?ἣ) ;; U+1F23
+ ("qQh" ?ἣ) ;; U+1F23
+ (":;h" ?ἤ) ;; U+1F24
+ (";:h" ?ἤ) ;; U+1F24
+ ("wh" ?ῆ) ;; U+1FC6
+ ("Wh" ?ῃ) ;; U+1FC3
+ ("Wwh" ?ῇ) ;; U+1FC7
+ ("wWh" ?ῇ) ;; U+1FC7
+ ("qWh" ?ῂ) ;; U+1FC2
+ ("Wqh" ?ῂ) ;; U+1FC2
+ (";Wh" ?ῄ) ;; U+1FC4
+ ("W;h" ?ῄ) ;; U+1FC4
+ (":wh" ?ἦ) ;; U+1F26
+ ("w:h" ?ἦ) ;; U+1F26
+ ("Qwh" ?ἧ) ;; U+1F27
  ;; Theta
  ("U" ?Θ)
  ("u" ?θ)
-- 
cgit v1.2.3