From cc8b48bfc2caef302c15a39fdcb4644c69f3969b Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Sun, 3 Nov 2024 05:44:27 +0200
Subject: [PATCH 1/2] Add greek-polytonic input method

---
 lisp/leim/quail/greek.el | 713 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 713 insertions(+)

diff --git a/lisp/leim/quail/greek.el b/lisp/leim/quail/greek.el
index 7cf839f2f58..f024280823a 100644
--- a/lisp/leim/quail/greek.el
+++ b/lisp/leim/quail/greek.el
@@ -1429,4 +1429,717 @@ "greek-ibycus4"
  (">>" ?»))
 
 
+(quail-define-package
+ "greek-polytonic" "Greek" "ῶ" t
+ "Ἑλληνικά: Greek input method, with support for polytonic & archaic
+Greek letters."
+ nil t t t t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("1" ?1)
+ ("2" ?2)
+ ("3" ?3)
+ ("4" ?4)
+ ("5" ?5)
+ ("6" ?6)
+ ("7" ?7)
+ ("8" ?8)
+ ("9" ?9)
+ ("0" ?0)
+ ("-" ?-)
+ ("=" ?=)
+ ("[" ?\[)
+ ("]" ?\])
+ ;; Changed punction from greek.el
+ ("`" ?·)
+ ("~" ?:)
+ ;; tonoi
+ (";" ?΄) ;; U+1FFD (oxia)
+ ("q" ?`) ;; U+1FEF (varia)
+ ("'" ?῀) ;; U+1FC0 (perispomeni)
+ ("\"" ?ι) ;; U+1FBE (ypogegrammeni)
+ ;; pneumata
+ (":" ?᾿) ;; U+1FBF (psili)
+ ("Q" ?῾) ;; U+1FFE (dasia)
+ ("W" ?¨) ;; U+00A8 (dialytika)
+ ;; apostrophe combinations
+ ("; " ["’ "]) ;; U+2019 (apostrophe)
+ (";g" ["’γ"])
+ (";d" ["’δ"])
+ (";z" ["’ζ"])
+ (";u" ["’θ"])
+ (";k" ["’κ"])
+ (";l" ["’λ"])
+ (";m" ["’μ"])
+ (";n" ["’ν"])
+ (";j" ["’ξ"])
+ (";p" ["’π"])
+ (";ρ" ["’r"])
+ (";s" ["’σ"])
+ (";t" ["’τ"])
+ (";f" ["’φ"])
+ (";x" ["’χ"])
+ (";c" ["’ψ"])
+ ;;
+ (";G" ["’Γ"])
+ (";D" ["’Δ"])
+ (";Z" ["’Ζ"])
+ (";U" ["’Θ"])
+ (";K" ["’Κ"])
+ (";L" ["’Λ"])
+ (";M" ["’Μ"])
+ (";N" ["’Ν"])
+ (";J" ["’Ξ"])
+ (";P" ["’Π"])
+ (";Ρ" ["’R"])
+ (";S" ["’Σ"])
+ (";T" ["’Τ"])
+ (";F" ["’Φ"])
+ (";X" ["’Χ"])
+ (";C" ["’Ψ"])
+ ;; Combinations
+ ("W;" ?΅) ;; U+1FEE
+ (";W" ?΅) ;; U+1FEE
+ ("Wq" ?῭) ;; U+1FED
+ ("qW" ?῭) ;; U+1FED
+ (":;" ?῎) ;; U+1FCE
+ (";:" ?῎) ;; U+1FCE
+ ("qQ" ?῝) ;; U+1FDD
+ ("Qq" ?῝) ;; U+1FDD
+ ("q:" ?῍) ;; U+1FCD
+ (":q" ?῍) ;; U+1FCD
+ ("Q;" ?῞) ;; U+1FDE
+ (";Q" ?῞) ;; U+1FDE
+ ("':" ?῏) ;; U+1FCF
+ (":'" ?῏) ;; U+1FCF
+ ("'Q" ?῟) ;; U+1FDF
+ ("Q'" ?῟) ;; U+1FDF
+ ("'W" ?῁) ;; U+1FC1
+ ("W'" ?῁) ;; U+1FC1
+ ;; perispomeni combinations, used for vrachy and macron
+ ("''" ["῀῀"])
+ ("'''" ["῀῀῀"])
+ ;; ypogegrammeni combinations
+ ("\"'" ["῀ι"])
+ ("'\"" ["῀ι"])
+ ("\";" ["΄ι"])
+ (";\"" ["ι΄"])
+ ("\":" ["ι᾿"])
+ (":\"" ["ι᾿"])
+ ("\"q" ["ι`"])
+ ("q\"" ["ι`"])
+ ("\"Q" ["ι῾"])
+ ("Q\"" ["ι῾"])
+ ("Q\"'" ["ι῟"])
+ ("\"Q'" ["ι῟"])
+
+ ("Q'\"" ["ι῟"])
+ ("'Q\"" ["ι῟"])
+ (":q\"" ["῍ι"])
+ ("q:\"" ["῍ι"])
+ ("\"q:" ["῍ι"])
+ ("\":q" ["῍ι"])
+
+ (":;\"" ["῎ι"])
+ (";:\"" ["῎ι"])
+ ("\";:" ["῎ι"])
+ ("\":;" ["῎ι"])
+ ("Qq\"" ["῝ι"])
+ ("qQ\"" ["῝ι"])
+ ("\"Qq" ["῝ι"])
+ ("\"qQ" ["῝ι"])
+
+ ("Q;\"" ["῞ι"])
+ (";Q\"" ["῞ι"])
+ ("\";Q" ["῞ι"])
+ ("\"Q;" ["῞ι"])
+
+ (":'\"" ["῏ι"])
+ ("':\"" ["῏ι"])
+ ("\"':" ["῏ι"])
+ ("\":'" ["῏ι"])
+ ;; Misc characters
+ ("~" ?:)
+ ("``" "~")
+ ;;
+ ("W" ?¨)
+ ("," ?,)
+ ("." ?.)
+ ("/" ?/)
+ ("!" ?!)
+ ("@" ?@)
+ ("#" ?#)
+ ("$" ?€)
+ ("%" ?%)
+ ("^" ?^)
+ ("&" ?&)
+ ("*" ?*)
+ ("(" ?\()
+ (")" ?\))
+ ("_" ?_)
+ ("+" ?+)
+ ("{" ?{)
+ ("}" ?})
+ (";;" "\"")
+ ("<" ?<)
+ (">" ?>)
+ ("?" ?;) ;; U+037E (Greek Question Mark)
+ (">>" ?») ;; U+00BB
+ ("<<" ?«) ;; U+00AB
+ ;; Alpha
+ ("A" ?Α)  ;; U+0391
+ (":A" ?Ἀ) ;; U+1F08
+ ("QA" ?Ἁ) ;; U+1F09
+ (":qA" ?Ἂ) ;; U+1F0A
+ ("q:A" ?Ἂ) ;; U+1F0A
+ ("qQA" ?Ἃ) ;; U+1F0B
+ ("QqA" ?Ἃ) ;; U+1F0B
+ (":;A" ?Ἄ) ;; U+1F0C
+ ("Q;A" ?Ἅ) ;; U+1F0D
+ (";QA" ?Ἅ) ;; U+1F0D
+ (":'A" ?Ἆ) ;; U+1F0E
+ ("':A" ?Ἆ) ;; U+1F0E
+ ("Q'A" ?Ἇ) ;; U+1F0F
+ ("'QA" ?Ἇ) ;; U+1F0F
+ (":\"A" ?ᾈ) ;; U+1F88
+ ("Q\"A" ?ᾉ) ;; U+1F89
+ (":q\"A" ?ᾊ) ;; U+1F8A
+ ("q:\"A" ?ᾊ) ;; U+1F8A
+ ("q\":A" ?ᾊ) ;; U+1F8A
+ ("\"q:A" ?ᾊ) ;; U+1F8A
+ ("Qq\"A" ?ᾋ) ;; U+1F8B
+ ("qQ\"A" ?ᾋ) ;; U+1F8B
+ ("q\"QA" ?ᾋ) ;; U+1F8B
+ ("\"qQA" ?ᾋ) ;; U+1F8B
+ (":;\"A" ?ᾌ) ;; U+1F8C
+ (";:\"A" ?ᾌ) ;; U+1F8C
+ (";\":A" ?ᾌ) ;; U+1F8C
+ ("\";:A" ?ᾌ) ;; U+1F8C
+ ("Q;\"A" ?ᾍ) ;; U+1F8D
+ ("Q\";A" ?ᾍ) ;; U+1F8D
+ ("\"Q;A" ?ᾍ) ;; U+1F8D
+ ("\";QA" ?ᾍ) ;; U+1F8D
+ (":'\"A" ?ᾎ) ;; U+1F8E
+ (":\"'A" ?ᾎ) ;; U+1F8E
+ ("\":'A" ?ᾎ) ;; U+1F8E
+ ("\"':A" ?ᾎ) ;; U+1F8E
+ ("Q'\"A" ?ᾏ) ;; U+1F8F
+ ("'Q\"A" ?ᾏ) ;; U+1F8F
+ ("'\"QA" ?ᾏ) ;; U+1F8F
+ ("\"'QA" ?ᾏ) ;; U+1F8F
+ ("''A" ?Ᾰ) ;; U+1FB8
+ ("'''A" ?Ᾱ) ;; U+1FB9
+ ("qA" ?Ὰ) ;; U+1FBA
+ (";A" ?Ά) ;; U+1FBB
+ ("\"A" ?ᾼ) ;; U+1FBC
+ ("a" ?α) ;; U+03B1
+ (":a" ?ἀ) ;; U+1F00
+ ("Qa" ?ἁ) ;; U+1F01
+ (":qa" ?ἂ) ;; U+1F02
+ ("q:a" ?ἂ) ;; U+1F02
+ ("Qqa" ?ἃ) ;; U+1F03
+ ("qQa" ?ἃ) ;; U+1F03
+ (":;a" ?ἄ) ;; U+1F04
+ (";:a" ?ἄ) ;; U+1F04
+ ("Q;a" ?ἅ) ;; U+1F05
+ (";Qa" ?ἅ) ;; U+1F05
+ (":'a" ?ἆ) ;; U+1F06
+ ("':a" ?ἆ) ;; U+1F06
+ ("Q'a" ?ἇ) ;; U+1F07
+ ("'Qa" ?ἇ) ;; U+1F07
+ ("qa" ?ὰ) ;; U+1F70
+ (";a" ?ά) ;; U+1F71
+ (":\"a" ?ᾀ) ;; U+1F80
+ ("\":a" ?ᾀ) ;; U+1F80
+ ("Q\"a" ?ᾁ) ;; U+1F81
+ (":q\"a" ?ᾂ) ;; U+1F82
+ (":\"qa" ?ᾂ) ;; U+1F82
+ ("\":qa" ?ᾂ) ;; U+1F82
+ ("\"q:a" ?ᾂ) ;; U+1F82
+ ("Qq\"a" ?ᾃ) ;; U+1F83
+ ("Q\"qa" ?ᾃ) ;; U+1F83
+ ("\"qQa" ?ᾃ) ;; U+1F83
+ ("\"Qqa" ?ᾃ) ;; U+1F83
+ (":;\"a" ?ᾄ) ;; U+1F84
+ (";\":a" ?ᾄ) ;; U+1F84
+ ("\";:a" ?ᾄ) ;; U+1F84
+ (";:\"a" ?ᾄ) ;; U+1F84
+ (":;\"a" ?ᾄ) ;; U+1F84
+ ("Q;\"a" ?ᾅ) ;; U+1F85
+ ("Q\";a" ?ᾅ) ;; U+1F85
+ ("\"Q;a" ?ᾅ) ;; U+1F85
+ ("\";Qa" ?ᾅ) ;; U+1F85
+ (";\"Qa" ?ᾅ) ;; U+1F85
+ (":'\"a" ?ᾆ) ;; U+1F86
+ ("':\"a" ?ᾆ) ;; U+1F86
+ ("'\":a" ?ᾆ) ;; U+1F86
+ ("\"':a" ?ᾆ) ;; U+1F86
+ ("\":'a" ?ᾆ) ;; U+1F86
+ ("Q'\"a" ?ᾇ) ;; U+1F87
+ ("'Q\"a" ?ᾇ) ;; U+1F87
+ ("'\"Qa" ?ᾇ) ;; U+1F87
+ ("\"'Qa" ?ᾇ) ;; U+1F87
+ ("\"Q'a" ?ᾇ) ;; U+1F87
+ ("''a" ?ᾰ) ;; U+1FB0
+ ("'''a" ?ᾱ) ;; U+1FB1
+ ("q\"a" ?ᾲ) ;;U+1FB2
+ ("\"qa" ?ᾲ) ;;U+1FB2
+ ("\"a" ?ᾳ) ;; U+1FB3
+ (";\"a" ?ᾴ) ;; U+1FB4
+ ("'a" ?ᾶ) ;; U+1FB6
+ ("'\"a" ?ᾷ) ;; U+1FB7
+ ("\"'a" ?ᾷ) ;; U+1FB7
+ ;; Beta
+ ("B" ?Β) ;; U+0392
+ ("b" ?β) ;; U+03B2
+ ;; Gamma
+ ("G" ?Γ) ;; U+0393
+ ("g" ?γ) ;; U+03B3
+ ;; Delta
+ ("D" ?Δ) ;; U+0394
+ ("d" ?δ) ;; U+03B4
+ ;; Epsilon
+ ("E" ?Ε) ;; U+0395
+ (":E" ?Ἐ) ;; U+1F18
+ ("QE" ?Ἑ) ;; U+1F19
+ (":qE" ?Ἒ) ;; U+1F1A
+ ("q:E" ?Ἒ) ;; U+1F1A
+ ("QqE" ?Ἓ) ;; U+1F1B
+ ("qQE" ?Ἓ) ;; U+1F1B
+ (":;E" ?Ἔ) ;; U+1F1C
+ (";:E" ?Ἔ) ;; U+1F1C
+ ("Q;E" ?Ἕ) ;; U+1F1D
+ (";QE" ?Ἕ) ;; U+1F1D
+ ("qE" ?Ὲ) ;; U+1FC8
+ (";E" ?Έ) ;; U+1FC9
+ ("e" ?ε) ;; U+03B5
+ ("qe" ?ὲ) ;; U+1F72
+ (";e" ?έ) ;; U+1F73
+ (":e" ?ἐ) ;; U+1F10
+ ("Qe" ?ἑ) ;; U+1F11
+ (":qe" ?ἒ) ;; U+1F12
+ ("q:e" ?ἒ) ;; U+1F12
+ ("Qqe" ?ἓ) ;; U+1F13
+ ("qQe" ?ἓ) ;; U+1F13
+ (":;e" ?ἔ) ;; U+1F14
+ (";:e" ?ἔ) ;; U+1F14
+ ("Q;e" ?ἕ) ;; U+1F15
+ (";Qe" ?ἕ) ;; U+1F15
+ ;; Zeta
+ ("Z" ?Ζ) ;; U+0396
+ ("z" ?ζ) ;; U+03B6
+ ;; Eta
+ ("H" ?Η) ;; U+0397
+ (":H" ?Ἠ) ;; U+1F28
+ ("QH" ?Ἡ) ;; U+1F29
+ (":qH" ?Ἢ) ;; U+1F2A
+ ("q:H" ?Ἢ) ;; U+1F2A
+ ("QqH" ?Ἣ) ;; U+1F2B
+ ("qQH" ?Ἣ) ;; U+1F2B
+ (":;H" ?Ἤ) ;; U+1F2C
+ (";:H" ?Ἤ) ;; U+1F2C
+ ("Q;H" ?Ἥ) ;; U+1F2D
+ (";QH" ?Ἥ) ;; U+1F2D
+ (":'H" ?Ἦ) ;; U+1F2E
+ ("':H" ?Ἦ) ;; U+1F2E
+ ("Q'H" ?Ἧ) ;; U+1F2F
+ ("'QH" ?Ἧ) ;; U+1F2F
+ (":\"H" ?ᾘ) ;; U+1F98
+ ("\":H" ?ᾘ) ;; U+1F98
+ ("Q\"H" ?ᾙ) ;; U+1F99
+ ("\"QH" ?ᾙ) ;; U+1F99
+ (":q\"H" ?ᾚ) ;; U+1F9A
+ (":\"qH" ?ᾚ) ;; U+1F9A
+ ("\":qH" ?ᾚ) ;; U+1F9A
+ ("\"q:H" ?ᾚ) ;; U+1F9A
+ ("q\":H" ?ᾚ) ;; U+1F9A
+ ("Qq\"H" ?ᾛ) ;; U+1F9B
+ ("Q\"qH" ?ᾛ) ;; U+1F9B
+ ("\"QqH" ?ᾛ) ;; U+1F9B
+ ("\"qQH" ?ᾛ) ;; U+1F9B
+ ("q\"QH" ?ᾛ) ;; U+1F9B
+ (":;\"H" ?ᾜ) ;; U+1F9C
+ (":\";H" ?ᾜ) ;; U+1F9C
+ ("\":;H" ?ᾜ) ;; U+1F9C
+ ("\";:H" ?ᾜ) ;; U+1F9C
+ (";\":H" ?ᾜ) ;; U+1F9C
+ ("Q;\"H" ?ᾝ) ;; U+1F9D
+ ("Q\";H" ?ᾝ) ;; U+1F9D
+ ("\"Q;H" ?ᾝ) ;; U+1F9D
+ ("\";QH" ?ᾝ) ;; U+1F9D
+ (";\"QH" ?ᾝ) ;; U+1F9D
+ (":'\"H" ?ᾞ) ;; U+1F9E
+ (":\"'H" ?ᾞ) ;; U+1F9E
+ ("\":'H" ?ᾞ) ;; U+1F9E
+ ("\"':H" ?ᾞ) ;; U+1F9E
+ ("'\":H" ?ᾞ) ;; U+1F9E
+ ("Q'\"H" ?ᾟ) ;; U+1F9F
+ ("Q\"'H" ?ᾟ) ;; U+1F9F
+ ("\"Q'H" ?ᾟ) ;; U+1F9F
+ ("\"'QH" ?ᾟ) ;; U+1F9F
+ ("'\"QH" ?ᾟ) ;; U+1F9F
+ ("qH" ?Ὴ) ;; U+1FCA
+ (";H" ?Ή) ;; U+1FCB
+ ("\"H" ?ῌ) ;; U+1FCC
+ ;;
+ ("h" ?η) ;; U+03B7
+ ("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
+ ("Q;h" ?ἥ) ;; U+1F25
+ (";Qh" ?ἥ) ;; U+1F25
+ (":'h" ?ἦ) ;; U+1F26
+ ("':h" ?ἦ) ;; U+1F26
+ ("Q'h" ?ἧ) ;; U+1F27
+ ("'Qh" ?ἧ) ;; U+1F27
+ (":\"h" ?ᾐ) ;; U+1F90
+ ("\":h" ?ᾐ) ;; U+1F90
+ ("Q\"h" ?ᾑ) ;; U+1F91
+ ("\"Qh" ?ᾑ) ;; U+1F91
+ (":q\"h" ?ᾒ) ;; U+1F92
+ (":\"qh" ?ᾒ) ;; U+1F92
+ ("\":qh" ?ᾒ) ;; U+1F92
+ ("\"q:h" ?ᾒ) ;; U+1F92
+ ("q\":h" ?ᾒ) ;; U+1F92
+ ("Qq\"h" ?ᾓ) ;; U+1F93
+ ("Q\"qh" ?ᾓ) ;; U+1F93
+ ("\"Qqh" ?ᾓ) ;; U+1F93
+ ("\"qQh" ?ᾓ) ;; U+1F93
+ ("q\"Qh" ?ᾓ) ;; U+1F93
+ (":;\"h" ?ᾔ) ;; U+1F94
+ (":\";h" ?ᾔ) ;; U+1F94
+ ("\":;h" ?ᾔ) ;; U+1F94
+ ("\";:h" ?ᾔ) ;; U+1F94
+ (";\":h" ?ᾔ) ;; U+1F94
+ ("Q;\"h" ?ᾕ) ;; U+1F95
+ ("Q\";h" ?ᾕ) ;; U+1F95
+ ("\"Q;h" ?ᾕ) ;; U+1F95
+ ("\";Qh" ?ᾕ) ;; U+1F95
+ (";\"Qh" ?ᾕ) ;; U+1F95
+ (":'\"h" ?ᾖ) ;; U+1F96
+ (":\"'h" ?ᾖ) ;; U+1F96
+ ("\":'h" ?ᾖ) ;; U+1F96
+ ("\"':h" ?ᾖ) ;; U+1F96
+ ("'\":h" ?ᾖ) ;; U+1F96
+ ("Q'\"h" ?ᾗ) ;; U+1F97
+ ("Q\"'h" ?ᾗ) ;; U+1F97
+ ("\"Q'h" ?ᾗ) ;; U+1F97
+ ("\"'Qh" ?ᾗ) ;; U+1F97
+ ("'\"Qh" ?ᾗ) ;; U+1F97
+ ("q\"h" ?ῂ) ;; U+1FC2
+ ("\"qh" ?ῂ) ;; U+1FC2
+ ("\"h" ?ῃ) ;; U+1FC3
+ (";\"h" ?ῄ) ;; U+1FC4
+ ("\";h" ?ῄ) ;; U+1FC4
+ ("'h" ?ῆ) ;; U+1FC6
+ ("\"'h" ?ῇ) ;; U+1FC7
+ ("'\"h" ?ῇ) ;; U+1FC7
+ ;; Theta
+ ("U" ?Θ) ;; U+0398
+ ("u" ?θ) ;; U+03B8
+ ;; Iota
+ ("I" ?Ι) ;; U+0399
+ ("WI" ?Ϊ) ;; U+03AA
+ (":I" ?Ἰ) ;; U+1F38
+ ("QI" ?Ἱ) ;; U+1F39
+ (":qI" ?Ἲ) ;; U+1F3A
+ ("q:I" ?Ἲ) ;; U+1F3A
+ ("QqI" ?Ἳ) ;; U+1F3B
+ ("qQI" ?Ἳ) ;; U+1F3B
+ (":;I" ?Ἴ) ;; U+1F3C
+ (";:I" ?Ἴ) ;; U+1F3C
+ ("Q;I" ?Ἵ) ;; U+1F3D
+ (";QI" ?Ἵ) ;; U+1F3D
+ (":'I" ?Ἶ) ;; U+1F3E
+ ("':I" ?Ἶ) ;; U+1F3E
+ ("Q'I" ?Ἷ) ;; U+1F3F
+ ("''I" ?Ῐ) ;; U+1FD8
+ ("'''I" ?Ῑ) ;; U+1FD9
+ ("qI" ?Ὶ) ;; U+1FDA
+ (";I" ?Ί) ;; U+1FDB
+ ("i" ?ι) ;; U+03B9
+ ("Wi" ?ϊ) ;; U+03CA
+ ("qi" ?ὶ) ;; U+1F76
+ (";i" ?ί) ;; U+1F77
+ (":i" ?ἰ) ;; U+1F30
+ ("Qi" ?ἱ) ;; U+1F31
+ (":qi" ?ἲ) ;; U+1F32
+ ("q:i" ?ἲ) ;; U+1F32
+ ("Qqi" ?ἳ) ;; U+1F33
+ ("qQi" ?ἳ) ;; U+1F33
+ (":;i" ?ἴ) ;; U+1F34
+ (";:i" ?ἴ) ;; U+1F34
+ ("Q;i" ?ἵ) ;; U+1F35
+ (";Qi" ?ἵ) ;; U+1F35
+ (":'i" ?ἶ) ;; U+1F36
+ ("':i" ?ἶ) ;; U+1F36
+ ("Q'i" ?ἷ) ;; U+1F37
+ ("'Qi" ?ἷ) ;; U+1F37
+ ("''i" ?ῐ) ;; U+1FD0
+ ("'''i" ?ῑ) ;; U+1FD1
+ ("Wqi" ?ῒ) ;; U+1FD2
+ ("qWi" ?ῒ) ;; U+1FD2
+ (";Wi" ?ΐ) ;; U+1FD3
+ ("W;i" ?ΐ) ;; U+1FD3
+ ("'i" ?ῖ) ;; U+1FD6
+ ("W'i" ?ῗ) ;; U+1FD7
+ ("'Wi" ?ῗ) ;; U+1FD7
+ ;; Kappa
+ ("K" ?Κ) ;; U+039A
+ ("k" ?κ) ;; U+03BA
+ ;; Lambda
+ ("L" ?Λ) ;; U+039B
+ ("l" ?λ) ;; U+03BB
+ ;; Mu
+ ("M" ?Μ) ;; U+039C
+ ("m" ?μ) ;; U+03BC
+ ;; Nu
+ ("N" ?Ν) ;; U+039D
+ ("n" ?ν) ;; U+03BD
+ ;; Xi
+ ("J" ?Ξ) ;; U+039E
+ ("j" ?ξ) ;; U+03BE
+ ;; Omicron
+ ("O" ?Ο) ;; U+039F
+ (":O" ?Ὀ) ;; U+1F48
+ ("QO" ?Ὁ) ;; U+1F49
+ (":qO" ?Ὂ) ;; U+1F4A
+ ("q:O" ?Ὂ) ;; U+1F4A
+ ("QqO" ?Ὃ) ;; U+1F4B
+ (":;O" ?Ὄ) ;; U+1F4C
+ ("Q;O" ?Ὅ) ;; U+1F4D
+ ("qO" ?Ὸ) ;; U+1FF8
+ (";O" ?Ό) ;; U+1FF9
+ ("o" ?ο) ;; U+03BF
+ ("qo" ?ὸ) ;; U+1F78
+ (";o" ?ό) ;; U+1F79
+ (":o" ?ὀ) ;; U+1F40
+ ("Qo" ?ὁ) ;; U+1F41
+ (":qo" ?ὂ) ;; U+1F42
+ ("q:o" ?ὂ) ;; U+1F42
+ ("Qqo" ?ὃ) ;; U+1F43
+ ("qQo" ?ὃ) ;; U+1F43
+ (":;o" ?ὄ) ;; U+1F44
+ (";:o" ?ὄ) ;; U+1F44
+ ("Q;o" ?ὅ) ;; U+1F45
+ ;; Pi
+ ("P" ?Π) ;; U+03A0
+ ("p" ?π) ;; U+03C0
+ ;; Rho
+ ("R" ?Ρ) ;; U+03A1
+ ("QR" ?Ῥ) ;; U+1FEC
+ ("r" ?ρ) ;; U+03C1
+ (":r" ?ῤ) ;; U+1FE4
+ ("Qr" ?ῥ) ;; U+1FE5
+ ;; Sigma
+ ("S" ?Σ) ;; U+03A3
+ ("s" ?σ) ;; U+03C3
+ ("w" ?ς) ;; U+03C2
+ ;; Tau
+ ("T" ?Τ) ;; U+03A4
+ ("t" ?τ) ;; U+03C4
+ ;; Upsilon
+ ("Y" ?Υ) ;; U+03A5
+ ("WY" ?Ϋ) ;; U+03AB
+ ("QY" ?Ὑ) ;; U+1F59
+ ("QqY" ?Ὓ) ;; U+1F5B
+ ("qQY" ?Ὓ) ;; U+1F5B
+ ("Q;Y" ?Ὕ) ;; U+1F5D
+ (";QY" ?Ὕ) ;; U+1F5D
+ ("Q'Y" ?Ὗ) ;; U+1F5F
+ ("'QY" ?Ὗ) ;; U+1F5F
+ ("y" ?υ) ;; U+03C5
+ ("Wy" ?ϋ) ;; U+03CB
+ ("qy" ?ὺ) ;; U+1F7A
+ (";y" ?ύ) ;; U+1F7B
+ (":y" ?ὐ) ;; U+1F50
+ ("Qy" ?ὑ) ;; U+1F51
+ (":qy" ?ὒ) ;; U+1F52
+ ("q:y" ?ὒ) ;; U+1F52
+ ("Qqy" ?ὓ) ;; U+1F53
+ ("qQy" ?ὓ) ;; U+1F53
+ (":;y" ?ὔ) ;; U+1F54
+ (";:y" ?ὔ) ;; U+1F54
+ ("Q;y" ?ὕ) ;; U+1F55
+ (";Qy" ?ὕ) ;; U+1F55
+ (":'y" ?ὖ) ;; U+1F56
+ ("':y" ?ὖ) ;; U+1F56
+ ("Q'y" ?ὗ) ;; U+1F57
+ ("'Qy" ?ὗ) ;; U+1F57
+ ("''y" ?ῠ) ;; U+1FE0
+ ("'''y" ?ῡ) ;; U+1FE1
+ ("Wqy" ?ῢ) ;; U+1FE2
+ ("qWy" ?ῢ) ;; U+1FE2
+ ("W;y" ?ΰ) ;; U+1FE3
+ (";Wy" ?ΰ) ;; U+1FE3
+ ("'y" ?ῦ) ;; U+1FE6
+ ("W'y" ?ῧ) ;; U+1FE7
+ ("'Wy" ?ῧ) ;; U+1FE7
+ ("''Y" ?Ῠ) ;; U+1FE8
+ ("'''Y" ?Ῡ) ;; U+1FE8
+ ("qY" ?Ὺ) ;; U+1FEA
+ (";Y" ?Ύ) ;; U+1FEB
+ ;; Phi
+ ("F" ?Φ) ;; U+03A6
+ ("f" ?φ) ;; U+03C6
+ ;; Chi
+ ("X" ?Χ) ;; U+03A7
+ ("x" ?χ) ;; U+03C7
+ ;; Chi
+ ("C" ?Ψ) ;; U+03A8
+ ("c" ?ψ) ;; U+03C8
+ ;; Omega
+ ("V" ?Ω) ;; U+03A9
+ (":V" ?Ὠ) ;; U+1F68
+ ("QV" ?Ὡ) ;; U+1F69
+ (":qV" ?Ὢ) ;; U+1F6A
+ ("q:V" ?Ὢ) ;; U+1F6A
+ ("QqV" ?Ὣ) ;; U+1F6B
+ ("qQV" ?Ὣ) ;; U+1F6B
+ (":;V" ?Ὤ) ;; U+1F6C
+ (";:V" ?Ὤ) ;; U+1F6C
+ ("Q;V" ?Ὥ) ;; U+1F6D
+ (";QV" ?Ὥ) ;; U+1F6D
+ (":'V" ?Ὦ) ;; U+1F6E
+ ("':V" ?Ὦ) ;; U+1F6E
+ ("Q'V" ?Ὧ) ;; U+1F6F
+ (":\"V" ?ᾨ) ;; U+1FA8
+ ("\":V" ?ᾨ) ;; U+1FA8
+ ("Q\"V" ?ᾩ) ;; U+1FA9
+ ("\"QV" ?ᾩ) ;; U+1FA9
+
+ (":q\"V" ?ᾪ) ;; U+1FAA
+ (":\"qV" ?ᾪ) ;; U+1FAA
+ ("\":qV" ?ᾪ) ;; U+1FAA
+ ("\"q:V" ?ᾪ) ;; U+1FAA
+ ("q\":V" ?ᾪ) ;; U+1FAA
+ ("q:\"V" ?ᾪ) ;; U+1FAA
+
+ ("Qq\"V" ?ᾫ) ;; U+1FAB
+ ("qQ\"V" ?ᾫ) ;; U+1FAB
+ ("q\"QV" ?ᾫ) ;; U+1FAB
+ ("\"qQV" ?ᾫ) ;; U+1FAB
+ ("\"QqV" ?ᾫ) ;; U+1FAB
+
+ (":\"qV" ?ᾫ) ;; U+1FAB
+ (":;\"V" ?ᾬ) ;; U+1FAC
+ (":\";V" ?ᾬ) ;; U+1FAC
+ ("\":;V" ?ᾬ) ;; U+1FAC
+ ("\";:V" ?ᾬ) ;; U+1FAC
+ (";\":V" ?ᾬ) ;; U+1FAC
+ ("Q;\"V" ?ᾭ) ;; U+1FAD
+ ("Q\";V" ?ᾭ) ;; U+1FAD
+ ("\"Q;V" ?ᾭ) ;; U+1FAD
+ ("\";QV" ?ᾭ) ;; U+1FAD
+ (";\"QV" ?ᾭ) ;; U+1FAD
+ (":'\"V" ?ᾮ) ;; U+1FAE
+ (":\"'V" ?ᾮ) ;; U+1FAE
+ ("\":'V" ?ᾮ) ;; U+1FAE
+ ("\"':V" ?ᾮ) ;; U+1FAE
+ ("'\":V" ?ᾮ) ;; U+1FAE
+
+ ("Q'\"V" ?ᾯ) ;; U+1FAF
+ ("'Q\"V" ?ᾯ) ;; U+1FAF
+ ("Q\"'V" ?ᾯ) ;; U+1FAF
+ ("\"Q'V" ?ᾯ) ;; U+1FAF
+ ("\"'QV" ?ᾯ) ;; U+1FAF
+ ("'\"QV" ?ᾯ) ;; U+1FAF
+
+ ("qV" ?Ὼ) ;; U+1FFA
+ (";V" ?Ώ) ;; U+1FFB
+ ("\"V" ?ῼ) ;; U+1FFC
+ ("v" ?ω) ;; U+03C9
+ ("qv" ?ὼ) ;; U+1F7C
+ (";v" ?ώ) ;; U+1F7D
+ (":v" ?ὠ) ;; U+1F60
+ ("Qv" ?ὡ) ;; U+1F61
+ (":qv" ?ὢ) ;; U+1F62
+ ("q:v" ?ὢ) ;; U+1F62
+ ("Qqv" ?ὣ) ;; U+1F63
+ ("qQv" ?ὣ) ;; U+1F63
+ (":;v" ?ὤ) ;; U+1F64
+ (";:v" ?ὤ) ;; U+1F64
+ ("Q;v" ?ὥ) ;; U+1F65
+ (";Qv" ?ὥ) ;; U+1F65
+ (":'v" ?ὦ) ;; U+1F66
+ ("':v" ?ὦ) ;; U+1F66
+ ("Q'v" ?ὧ) ;; U+1F67
+ ("'Qv" ?ὧ) ;; U+1F67
+ (":\"v" ?ᾠ) ;; U+1FA0
+ ("\":v" ?ᾠ) ;; U+1FA0
+ ("Q\"v" ?ᾡ) ;; U+1FA1
+ ("\"Qv" ?ᾡ) ;; U+1FA1
+ (":q\"v" ?ᾢ) ;; U+1FA2
+ (":\"qv" ?ᾢ) ;; U+1FA2
+ ("\":qv" ?ᾢ) ;; U+1FA2
+ ("\"q:v" ?ᾢ) ;; U+1FA2
+ ("q\":v" ?ᾢ) ;; U+1FA2
+
+ ("Qq\"v" ?ᾣ) ;; U+1FA3
+ ("q\"Qv" ?ᾣ) ;; U+1FA3
+ ("\"qQv" ?ᾣ) ;; U+1FA3
+ ("\"Qqv" ?ᾣ) ;; U+1FA3
+ ("Q\"qv" ?ᾣ) ;; U+1FA3
+
+ (":;\"v" ?ᾤ) ;; U+1FA4
+ (":\";v" ?ᾤ) ;; U+1FA4
+ ("\":;v" ?ᾤ) ;; U+1FA4
+ ("\";:v" ?ᾤ) ;; U+1FA4
+ (";\":v" ?ᾤ) ;; U+1FA4
+ (";:\"v" ?ᾤ) ;; U+1FA4
+
+ ("Q;\"v" ?ᾥ) ;; U+1FA5
+ ("Q\";v" ?ᾥ) ;; U+1FA5
+ ("\"Q;v" ?ᾥ) ;; U+1FA5
+ ("\";Qv" ?ᾥ) ;; U+1FA5
+ (";\"Qv" ?ᾥ) ;; U+1FA5
+ (";Q\"v" ?ᾥ) ;; U+1FA5
+
+ (":'\"v" ?ᾦ) ;; U+1FA6
+ (":\"'v" ?ᾦ) ;; U+1FA6
+ ("\":'v" ?ᾦ) ;; U+1FA6
+ ("\"':v" ?ᾦ) ;; U+1FA6
+ ("'\":v" ?ᾦ) ;; U+1FA6
+ ("':\"v" ?ᾦ) ;; U+1FA6
+
+ ("Q'\"v" ?ᾧ) ;; U+1FA7
+ ("Q\"'v" ?ᾧ) ;; U+1FA7
+ ("\"Q'v" ?ᾧ) ;; U+1FA7
+ ("\"'Qv" ?ᾧ) ;; U+1FA7
+ ("'\"Qv" ?ᾧ) ;; U+1FA7
+ ("'Q\"v" ?ᾧ) ;; U+1FA7
+
+ ("q\"v" ?ῲ) ;; U+1FF2
+ ("\"qv" ?ῲ) ;; U+1FF2
+ ("\"v" ?ῳ) ;; U+1FF3
+ (";\"v" ?ῴ) ;; U+1FF4
+ ("'v" ?ῶ) ;; U+1FF6
+ ("'\"v" ?ῷ) ;; U+1FF7
+ ("\"'v" ?ῷ) ;; U+1FF7
+ ;;; Archaic Letters ;;;
+ ;; Stigma
+ ("ww" ?ϛ) ;; U+03DB Note that capital stigma (U+03DA) is an invalid letter.
+ ;; Digamma
+ ("wF" ?Ϝ) ;; U+03DC
+ ("wf" ?ϝ) ;; U+03DD
+ ;; Koppa
+ ("wK" ?Ϟ) ;; U+03DE
+ ("wk" ?ϟ) ;; U+03DF
+ ;; Sampi
+ ("wP" ?Ϡ) ;; U+03E0
+ ("wp" ?ϡ) ;; U+03E1
+ ;; Koppa
+ ("wO" ?Ϙ) ;; U+03D8
+ ("wo" ?ϙ) ;; U+03D9
+ )
+
+(provide 'greek-polytonic)
+
 ;;; greek.el ends here
-- 
2.46.0