Altgriechisch schreiben mit AutoHotkey-Skript.

Das Forum für professionelle Gräzisten und Studenten der Griechischen Philologie

Moderatoren: Zythophilus, marcus03, Tiberis, ille ego qui, consus, e-latein: Team

Altgriechisch schreiben mit AutoHotkey-Skript.

Beitragvon Laptop » Mo 30. Nov 2020, 10:22

Meine Altgriechisch-Bildung ist minimal, aber hin und wieder kommt es vor, daß ich es brauche. Habe deshalb ein AutoHotkey-Skript geschustert, womit man schnell mal altgriechische Lettern abrufen kann und habe da die Transliterationsweise von typegreek.com übernommen, d. h. man tippt "Foi=bos_", markiert es, und drückt F2, und erhält Φοῖβος. Einzig das Endungs-s wird abweichend von typegreek durch angehängten Unterstrich erreicht. Das ganze ist primitiv, aber der Vorteil davon ist genau das, nämlich daß es primitiv ist, und keine aufgeblasene Software.

F2::
StringCaseSense, On
bak := Clipboard ; back up clipboard content
Clipboard := "" ; clears the clipboard
Send, ^c ; copies currently selected text to clipboard
ClipWait, 0.1 ; waits 0.1 seconds for any data to appear in the clipboard, else it gives an error …
str := Clipboard
; first loop
replace := {"a/":"ά","a\":"ὰ","a=":"ᾶ","a)":"ἀ","a(":"ἁ","a|":"ᾳ","e/":"έ","e\":"ὲ","e)":"ἐ","e(":"ἑ","i/":"ί","i\":"ὶ","i=":"ῖ","i)":"ἰ","i(":"ἱ","i+":"ϊ","o/":"ό","o\":"ὸ","o)":"ὀ","o(":"ὁ","u/":"ύ","u\":"ὺ","u=":"ῦ","u)":"ὐ","u(":"ὑ","s_":"ς"}
For what, with in replace
StringReplace, str, str, %what%, %with%, All
; second loop
replace := {"a":"α","b":"β","g":"γ","d":"δ","e":"ε","z":"ζ","h":"η","q":"θ","i":"ι","k":"κ","l":"λ","m":"μ","n":"ν","c":"ξ","o":"ο","p":"π","r":"ρ","s":"σ","t":"τ","u":"υ","f":"φ","x":"χ","y":"ψ","w":"ω"}
For what, with in replace
StringReplace, str, str, %what%, %with%, All
; third loop
replace := {"A/":"Ά","A\":"Ὰ","A=":"Α͂","A)":"Ἀ","A(":"Ἁ","A|":"ΑΙ","E/":"Έ","E\":"Ὲ","E)":"Ἐ","E(":"Ἑ","I/":"Ί","I\":"Ὶ","I=":"Ι͂","I)":"Ἰ","I(":"Ἱ","I+":"Ϊ","O/":"Ό","O\":"Ὸ","O)":"Ὀ","O(":"Ὁ","U/":"Ύ","U\":"Ὺ","U=":"Υ͂","U)":"Υ̓","U(":"Ὑ"}
For what, with in replace
StringReplace, str, str, %what%, %with%, All
; fourth loop
replace := {"A":"Α","B":"Β","G":"Γ","D":"Δ","E":"Ε","Z":"Ζ","H":"Η","Q":"Θ","I":"Ι","K":"Κ","L":"Λ","M":"Μ","N":"Ν","C":"Ξ","O":"Ο","P":"Π","R":"Ρ","S":"Σ","T":"Τ","U":"Υ","F":"Φ","X":"Χ","Y":"Ψ","W":"Ω"}
For what, with in replace
StringReplace, str, str, %what%, %with%, All
Send, %str%
Clipboard := bak ; restore clipboard
return
SI·CICERONEM·ÆMVLARIS·VERE·NON·VIVAS (get a life!) OBITER·DICTVM·BREVITAS·DELECTAT (keep it short and simple = kiss)
Benutzeravatar
Laptop
Augustus
 
Beiträge: 5726
Registriert: Sa 12. Mai 2007, 03:38

Zurück zu Griechische Philologie



Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste