summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-10-10 21:47:17 +0300
committerThanos Apollo <[email protected]>2024-10-10 21:47:17 +0300
commitd0ce863b202aefaeb21053b42ad0bf18fa712c8b (patch)
tree11df8364e35e59e48a7ec2be8a9246e6a9849b88
parent70ed3f7662acd5a1dbc40b6800eb41e7591c8010 (diff)
Ολοκήρωση γραμμάτος Η
-rw-r--r--greek-polytonic.el61
1 files 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" ?θ)