From b1e355ff2aebb2083269d2a2628cf7e4b914afce Mon Sep 17 00:00:00 2001 From: nora Date: Thu, 10 May 2007 06:15:09 +0000 Subject: neo20.ods: Mittenpunkt(tot) und Punkt drunter(tot) eingefügt; Autohotkey: Sicherung Zwischenablage, DeadKeys erweitert MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://svn.neo-layout.org@101 b9310e46-f624-0410-8ea1-cfbb3a30dc96 --- grafik/neo20.ods | Bin 30857 -> 19721 bytes windows/XP/autohotkey/README.txt | 17 +- windows/XP/autohotkey/neo20.ahk | 1576 +++++++++++--------------------------- 3 files changed, 473 insertions(+), 1120 deletions(-) diff --git a/grafik/neo20.ods b/grafik/neo20.ods index 981f376..ce79d1d 100644 Binary files a/grafik/neo20.ods and b/grafik/neo20.ods differ diff --git a/windows/XP/autohotkey/README.txt b/windows/XP/autohotkey/README.txt index 164066d..65e1bd8 100644 --- a/windows/XP/autohotkey/README.txt +++ b/windows/XP/autohotkey/README.txt @@ -1,6 +1,7 @@ -Version 03.05.2007 +Version 09.05.2007 == Installation == + Hierfr braucht man keine Administratorrechte, es muss jedoch zuerst das Programm namens autohotkey (http://www.autohotkey.com/download/AutohotkeyInstall.exe) @@ -9,6 +10,7 @@ Dazu ben beispielsweise in das Verzeichnis Eigene Dateien/NEO installiert. === ahk-Dateien === + Danach kann man die .ahk-Skripte (neo20.ahk und neo20-remap.ahk) mit einem Doppelklick starten. Man erhlt dann ein Systray-Icon, mit dem man das Skript vorbergehend @@ -17,11 +19,13 @@ Wenn das auswhlen -> Immer mit diesem Programm ffnen. === Automatischer Start === + Bei Bedarf kann man sich Verknpfungen mit neo20.ahk und neo20-remap.ahk in den Autostart-Ordner legen, dann hat man das Layout direkt bei der Anmeldung. == Wie es funktioniert == + Das Programm kann alle Tastendrucke abfangen und statt dessen andere Tasten simulieren. Die Zeile a::send b @@ -30,6 +34,7 @@ Die ahk-Dateien lassen sich mit einem Texteditor bearbeiten, man muss dann nur das Skript neu starten um die nderungen zu bernehmen. == Bekannte Fehler == + Das Umbelegen der Funktionstasten ist etwas buggy (siehe http://www.autohotkey.com/forum/topic10169.html) und wurde deshalb in eine Extradatei ausgelagert (neo20-remap.ahk). @@ -38,6 +43,7 @@ Einfach beide Skripte starten. Problem: Manchmal kommt nur Control Down an, aber nicht das Up, dann bleibt Control aktiv. Lsung ist dann, einmal die normale Controltaste zu drcken. +--> taucht bei mir inzwischen nicht mehr auf *auf Holz klopf* Ohne die Remap-Datei knnen die 3. Ebene mit Ctrl+Win @@ -46,10 +52,8 @@ die 5. mit AltGr die 6. mit AltGr+Shift erreicht werden. -Alle Nicht-ASCII-Zeichen werden ber die Zwischenablage eingefgt. -Der Dateiinhalt der Zwischenablage geht dabei verloren. - == Nummernblock == + Der Nummernblock auf der 2. Ebene ist wahlweise - bei AUSgeschaltetem Numlock - bei EINgeschaltetem Numlock mit Shift @@ -70,10 +74,9 @@ AltGr + Ende = Computer ausschalten --> diese Kombinationen treten auf bei AUSgeschaltetem Numlock mit Mod5 == To Do == -Dead Keys: Die Deadkeys, die auf der zweiten Seite der .ods aufgefhrt sind und die meisten von http://unicode.e-workers.de -funktionieren inzwischen es fehlen noch die mit Punkt drber. Lsst sich die neo20-remap.ahk in die Hauptdatei integrieren? Ist mir bislang noch nicht gelungen. -Dateiinhalt der Zwischenablage sichern? \ No newline at end of file +Geschtztes Leerzeichen und schmales Leerzeichen auf 4./6. Ebene ber +Leertaste, finde ich keine ANSI-Darstellung fr. \ No newline at end of file diff --git a/windows/XP/autohotkey/neo20.ahk b/windows/XP/autohotkey/neo20.ahk index e902ec7..9b4aedd 100644 --- a/windows/XP/autohotkey/neo20.ahk +++ b/windows/XP/autohotkey/neo20.ahk @@ -1,5 +1,5 @@ /* - NEO-Layout - Version vom 04.05.2007 + NEO-Layout - Version vom 08.05.2007 Mod3 (3./4. Ebene) funktioniert ber Win+Ctrl, Mod5 (5./6. Ebene) ber AltGr. Zur Umbelegung von Mod3 auf CapsLock und # @@ -20,16 +20,19 @@ name = NEO-Layout 2.0 enable = Aktiviere %name% disable = Deaktiviere %name% +; ToDo +; -------- +; nobreakspace und schmales Leerzeichen -/* - Um die ANSI-Darstellung von beliebigen Unicode-Zeichen - zu finden (bentigt fr MyUTF_String): - - die untenstehende Definition auskommentieren - - gewnschtes Zeichen in die Zwischenablage befrdern - - ^!u (Control+Alt+U) drcken - - die ANSI-Darstellung aus der Zwischenablage an die - gewnschte Stelle ins Skript einfgen -*/ + +; ANSI-Darstellung von beliebigen Unicode-Zeichen +; ----------------------------------------------- +; (bentigt fr MyUTF_String): +; - die untenstehende Definition auskommentieren +; - gewnschtes Zeichen in die Zwischenablage befrdern +; - ^!u (Control+Alt+U) drcken +; - die ANSI-Darstellung aus der Zwischenablage an die +; gewnschte Stelle ins Skript einfgen /* ^!u:: MsgBox, @@ -122,133 +125,91 @@ menu, tray, tip, %name% ::send {} ; akut, tot q::send x -w::send v + +w:: + If A_PriorHotkey = <^>!+^ ; punkt darunter + BSUnicode("ṿ") + Else + send v +Return e:: If A_PriorHotkey = <^>!+ ; Schrgstrich - { - Send {bs} - MyUTF_String = ł - Gosub Unicode - } + BSUnicode("ł") Else If A_PriorHotkey = ; akut - { - Send {bs} - MyUTF_String = ĺ - Gosub Unicode - } + BSUnicode("ĺ") Else If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = ľ - Gosub Unicode - } + BSUnicode("ľ") Else If A_PriorHotkey = #^ ; cedilla - { - Send {bs} - MyUTF_String = ļ - Gosub Unicode - } + BSUnicode("ļ") + Else If A_PriorHotkey = <^>!^ ; Mittenpunkt + BSUnicode("ŀ") + Else If A_PriorHotkey = <^>!+^ ; punkt darunter + BSUnicode("ḷ") Else send l Return r:: If A_PriorHotkey = ^ ; circumflex - { - Send {bs} - MyUTF_String = ĉ - Gosub Unicode - } + BSUnicode("ĉ") Else If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = č - Gosub Unicode - } + BSUnicode("č") Else If A_PriorHotkey = ; akut - { - Send {bs} - MyUTF_String = ć - Gosub Unicode - } + BSUnicode("ć") Else If A_PriorHotkey = #^ ; cedilla - { - Send {bs} - MyUTF_String = ç - Gosub Unicode - } + BSUnicode("ç") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("ċ") Else Send c Return t:: If A_PriorHotkey = ^ ; circumflex - { - Send {bs} - MyUTF_String = ŵ - Gosub Unicode - } + BSUnicode("ŵ") Else send w Return z:: If A_PriorHotkey = #^ ; cedilla - { - Send {bs} - MyUTF_String = ķ - Gosub Unicode - } + BSUnicode("ķ") + Else If A_PriorHotkey = <^>!+^ ; punkt darunter + BSUnicode("ḳ") Else send k Return u:: - If A_PriorHotkey = ^ ; circumflex - { - Send {bs} - MyUTF_String = ĥ - Gosub Unicode - } - Else If A_PriorHotkey = #^+^ ; Querstrich - { - Send {bs} - MyUTF_String = ħ - Gosub Unicode - } + If A_PriorHotkey = ^ ; circumflex + BSUnicode("ĥ") + Else If A_PriorHotkey = #^+^ ; Querstrich + BSUnicode("ħ") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("ḣ") + Else If A_PriorHotkey = <^>!+^ ; punkt darunter + BSUnicode("ḥ") Else send h Return i:: - If A_PriorHotkey = ^ ; circumflex - { - Send {bs} - MyUTF_String = ĝ - Gosub Unicode - } - Else If A_PriorHotkey = #^^ ; brevis - { - Send {bs} - MyUTF_String = ğ - Gosub Unicode - } - Else If A_PriorHotkey = #^ ; cedilla - { - Send {bs} - MyUTF_String = ģ - Gosub Unicode - } + If A_PriorHotkey = ^ ; circumflex + BSUnicode("ĝ") + Else If A_PriorHotkey = #^^ ; brevis + BSUnicode("ğ") + Else If A_PriorHotkey = #^ ; cedilla + BSUnicode("ģ") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("ġ") Else send g Return o:: - If A_PriorHotkey = <^>!+ ; durchgestrichen - { - Send {bs} - MyUTF_String = ƒ - Gosub Unicode - } + If A_PriorHotkey = <^>!+ ; durchgestrichen + BSUnicode("ƒ") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("ḟ") Else send f Return @@ -257,316 +218,172 @@ p::send q +::send ~ ; tilde, soll tot a:: - If A_PriorHotkey = #^+ ; Diaerese + If A_PriorHotkey = #^+ ; Diaerese Send, {bs} - Else If A_PriorHotkey = #^++ ; doppelakut - { - Send {bs} - MyUTF_String = ű - Gosub Unicode - } -; Else If A_PriorHotkey = +^ ; caron -; { -; Send {bs} -; MyUTF_String = -; Gosub Unicode -; } - Else If A_PriorHotkey = #^^ ; brevis - { - Send {bs} - MyUTF_String = ŭ - Gosub Unicode - } - Else If A_PriorHotkey = ++ ; macron - { - Send {bs} - MyUTF_String = ū - Gosub Unicode - } - Else If A_PriorHotkey = #^+ ; ogonek - { - Send {bs} - MyUTF_String = ų - Gosub Unicode - } + Else If A_PriorHotkey = #^++ ; doppelakut + BSUnicode("ű") + Else If A_PriorHotkey = #^^ ; brevis + BSUnicode("ŭ") + Else If A_PriorHotkey = ++ ; macron + BSUnicode("ū") + Else If A_PriorHotkey = #^+ ; ogonek + BSUnicode("ų") Else If A_PriorHotkey = <^>!+ ; Ring - { - Send {bs} - MyUTF_String = ů - Gosub Unicode - } - Else If A_PriorHotkey = + ; tilde - { - Send {bs} - MyUTF_String = ũ - Gosub Unicode - } + BSUnicode("ů") + Else If A_PriorHotkey = + ; tilde + BSUnicode("ũ") Else send u Return s:: - If A_PriorHotkey = #^+ ; Diaerese + If A_PriorHotkey = #^+ ; Diaerese Send, {bs} - Else If A_PriorHotkey = ++ ; macron - { - Send {bs} - MyUTF_String = ī - Gosub Unicode - } - Else If A_PriorHotkey = #^^ ; brevis - { - Send {bs} - MyUTF_String = ĭ - Gosub Unicode - } - Else If A_PriorHotkey = #^+ ; ogonek - { - Send {bs} - MyUTF_String = į - Gosub Unicode - } - Else If A_PriorHotkey = + ; tilde - { - Send {bs} - MyUTF_String = ĩ - Gosub Unicode - } + Else If A_PriorHotkey = ++ ; macron + BSUnicode("ī") + Else If A_PriorHotkey = #^^ ; brevis + BSUnicode("ĭ") + Else If A_PriorHotkey = #^+ ; ogonek + BSUnicode("į") + Else If A_PriorHotkey = + ; tilde + BSUnicode("ĩ") + Else If A_PriorHotkey = <^>! ; (ohne) punkt darber + BSUnicode("ı") Else Send i Return d:: - If A_PriorHotkey = #^+ ; Diaerese + If A_PriorHotkey = #^+ ; Diaerese Send {bs} Else If A_PriorHotkey = <^>!+ ; Ring Send {bs} - Else If A_PriorHotkey = + ; tilde - { - Send {bs} - MyUTF_String = ã - Gosub Unicode - } - Else If A_PriorHotkey = #^+ ; ogonek - { - Send {bs} - MyUTF_String = ą - Gosub Unicode - } - Else If A_PriorHotkey = ++ ; macron - { - Send {bs} - MyUTF_String = ā - Gosub Unicode - } - Else If A_PriorHotkey = #^^ ; brevis - { - Send {bs} - MyUTF_String = ă - Gosub Unicode - } + Else If A_PriorHotkey = + ; tilde + BSUnicode("ã") + Else If A_PriorHotkey = #^+ ; ogonek + BSUnicode("ą") + Else If A_PriorHotkey = ++ ; macron + BSUnicode("ā") + Else If A_PriorHotkey = #^^ ; brevis + BSUnicode("ă") Else Send a Return f:: - If A_PriorHotkey = #^+ ; Diaerese + If A_PriorHotkey = #^+ ; Diaerese Send, {bs} - Else If A_PriorHotkey = #^+ ; ogonek - { - Send {bs} - MyUTF_String = ę - Gosub Unicode - } - Else If A_PriorHotkey = ++ ; macron - { - Send {bs} - MyUTF_String = ē - Gosub Unicode - } - Else If A_PriorHotkey = #^^ ; brevis - { - Send {bs} - MyUTF_String = ĕ - Gosub Unicode - } - Else If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = ě - Gosub Unicode - } + Else If A_PriorHotkey = #^+ ; ogonek + BSUnicode("ę") + Else If A_PriorHotkey = ++ ; macron + BSUnicode("ē") + Else If A_PriorHotkey = #^^ ; brevis + BSUnicode("ĕ") + Else If A_PriorHotkey = +^ ; caron + BSUnicode("ě") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("ė") Else Send e Return g:: - If A_PriorHotkey = #^+ ; Diaerese + If A_PriorHotkey = #^+ ; Diaerese Send, {bs} - Else If A_PriorHotkey = + ; tilde - { - Send {bs} - MyUTF_String = õ - Gosub Unicode - } - Else If A_PriorHotkey = #^++ ; doppelakut - { - Send {bs} - MyUTF_String = ő - Gosub Unicode - } - Else If A_PriorHotkey = <^>!+ ; Schrgstrich - { - Send {bs} - MyUTF_String = ø - Gosub Unicode - } - Else If A_PriorHotkey = ++ ; macron - { - Send {bs} - MyUTF_String = ō - Gosub Unicode - } - Else If A_PriorHotkey = #^^ ; brevis - { - Send {bs} - MyUTF_String = ŏ - Gosub Unicode - } + Else If A_PriorHotkey = + ; tilde + BSUnicode("õ") + Else If A_PriorHotkey = #^++ ; doppelakut + BSUnicode("ő") + Else If A_PriorHotkey = <^>!+ ; Schrgstrich + BSUnicode("ø") + Else If A_PriorHotkey = ++ ; macron + BSUnicode("ō") + Else If A_PriorHotkey = #^^ ; brevis + BSUnicode("ŏ") Else send o Return h:: - If A_PriorHotkey = ^ ; circumflex - { - Send {bs} - MyUTF_String = ŝ - Gosub Unicode - } - Else If A_PriorHotkey = ; akut - { - Send {bs} - MyUTF_String = ś - Gosub Unicode - } - Else If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = š - Gosub Unicode - } - Else If A_PriorHotkey = #^ ; cedilla - { - Send {bs} - MyUTF_String = ş - Gosub Unicode - } + If A_PriorHotkey = ^ ; circumflex + BSUnicode("ŝ") + Else If A_PriorHotkey = ; akut + BSUnicode("ś") + Else If A_PriorHotkey = +^ ; caron + BSUnicode("š") + Else If A_PriorHotkey = #^ ; cedilla + BSUnicode("ş") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("ṡ") + Else If A_PriorHotkey = <^>!+^ ; punkt darunter + BSUnicode("ṣ") Else send s Return j:: - If A_PriorHotkey = ; akut - { - Send {bs} - MyUTF_String = ń - Gosub Unicode - } - Else If A_PriorHotkey = + ; tilde - { - Send {bs} - MyUTF_String = ñ - Gosub Unicode - } - Else If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = ň - Gosub Unicode - } - Else If A_PriorHotkey = #^ ; cedilla - { - Send {bs} - MyUTF_String = ņ - Gosub Unicode - } + If A_PriorHotkey = ; akut + BSUnicode("ń") + Else If A_PriorHotkey = + ; tilde + BSUnicode("ñ") + Else If A_PriorHotkey = +^ ; caron + BSUnicode("ň") + Else If A_PriorHotkey = #^ ; cedilla + BSUnicode("ņ") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("ṅ") Else send n Return k:: - If A_PriorHotkey = ; akut - { - Send {bs} - MyUTF_String = ŕ - Gosub Unicode - } - Else If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = ř - Gosub Unicode - } - Else If A_PriorHotkey = #^ ; cedilla - { - Send {bs} - MyUTF_String = ŗ - Gosub Unicode - } + If A_PriorHotkey = ; akut + BSUnicode("ŕ") + Else If A_PriorHotkey = +^ ; caron + BSUnicode("ř") + Else If A_PriorHotkey = #^ ; cedilla + BSUnicode("ŗ") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("ṙ") + Else If A_PriorHotkey = <^>!+^ ; punkt darunter + BSUnicode("ṛ") Else send r Return l:: - If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = ť - Gosub Unicode - } - Else If A_PriorHotkey = #^ ; cedilla - { - Send {bs} - MyUTF_String = ţ - Gosub Unicode - } - Else If A_PriorHotkey = #^+^ ; Querstrich - { - Send {bs} - MyUTF_String = ŧ - Gosub Unicode - } + If A_PriorHotkey = +^ ; caron + BSUnicode("ť") + Else If A_PriorHotkey = #^ ; cedilla + BSUnicode("ţ") + Else If A_PriorHotkey = #^+^ ; Querstrich + BSUnicode("ŧ") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("ṫ") + Else If A_PriorHotkey = <^>!+^ ; punkt darunter + BSUnicode("ṭ") Else send t Return :: - If A_PriorHotkey = #^+^ ; Querstrich - { - Send {bs} - MyUTF_String = ð - Gosub Unicode - } - Else If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = ď - Gosub Unicode - } + If A_PriorHotkey = #^+^ ; Querstrich + BSUnicode("đ") + Else If A_PriorHotkey = +^ ; caron + BSUnicode("ď") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("ḋ") + Else If A_PriorHotkey = <^>!+^ ; punkt darunter + BSUnicode("ḍ") Else send d Return :: - If A_PriorHotkey = #^+ ; Diaerese + If A_PriorHotkey = #^+ ; Diaerese Send {bs} - Else If A_PriorHotkey = ^ ; circumflex - { - Send {bs} - MyUTF_String = ŷ - Gosub Unicode - } + Else If A_PriorHotkey = ^ ; circumflex + BSUnicode("ŷ") Else send y Return @@ -577,72 +394,69 @@ Return y::send x::send c::send -v::send p +v:: + If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("ṗ") + Else + send p +Return b:: - If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = ž - Gosub Unicode - } - Else If A_PriorHotkey = ; akut - { - Send {bs} - MyUTF_String = ź - Gosub Unicode - } + If A_PriorHotkey = +^ ; caron + BSUnicode("ž") + Else If A_PriorHotkey = ; akut + BSUnicode("ź") Else If A_PriorHotkey = <^>! ; punkt drber - { - Send {bs} - MyUTF_String = ż - Gosub Unicode - } + BSUnicode("ż") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("ż") Else Send z Return -n::send b -m::send m +n:: + If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("ḃ") + Else + send b +Return + +m:: + If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("ṁ") + Else If A_PriorHotkey = <^>!+^ ; punkt darunter + BSUnicode("ṃ") + Else + send m +Return + ,::send `, .::send . -:: - If A_PriorHotkey = ^ ; circumflex - { - Send {bs} - MyUTF_String = ĵ - Gosub Unicode - } + If A_PriorHotkey = ^ ; circumflex + BSUnicode("ĵ") Else send j Return Space:: - If A_PriorHotkey = ^ ; circumflex - { - Send {bs} - MyUTF_String = ˆ - Gosub Unicode - } - Else If A_PriorHotkey = + ; tilde - { - Send {bs} - MyUTF_String = ˜ - Gosub Unicode - } + If A_PriorHotkey = ^ ; circumflex + BSUnicode("ˆ") + Else If A_PriorHotkey = + ; tilde + BSUnicode("˜") Else Send {Space} Return +Enter::Send {Enter} +Esc::Send {Esc} + + ;2. Ebene (Shift) ;--------- -+^:: ; caron, soll tot - MyUTF_String = ˇ - Gosub Unicode - return - ++^::Unicode("ˇ") ; caron, tot +1::send +2::send +3::send @@ -653,203 +467,121 @@ Return +8::send +9::send +0::send - -+:: ; Ged - MyUTF_String = – - Gosub Unicode - return - -+::send `` ; gravis, tot ++::Unicode("–") ; Ged ++::send `` +q::send X -+w::send V ++w:: + If A_PriorHotkey = <^>!+^ ; punkt darunter + BSUnicode("Ṿ") + Else + send V +Return + +e:: - If A_PriorHotkey = ; akut - { - Send {bs} - MyUTF_String = Ĺ - Gosub Unicode - } - Else If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = Ľ - Gosub Unicode - } - Else If A_PriorHotkey = #^ ; cedilla - { - Send {bs} - MyUTF_String = Ļ - Gosub Unicode - } - Else If A_PriorHotkey = <^>!+ ; Schrgstrich - { - Send {bs} - MyUTF_String = Ł - Gosub Unicode - } + If A_PriorHotkey = ; akut + BSUnicode("Ĺ") + Else If A_PriorHotkey = +^ ; caron + BSUnicode("Ľ") + Else If A_PriorHotkey = #^ ; cedilla + BSUnicode("Ļ") + Else If A_PriorHotkey = <^>!+ ; Schrgstrich + BSUnicode("Ł") + Else If A_PriorHotkey = <^>!^ ; Mittenpunkt + BSUnicode("Ŀ") + Else If A_PriorHotkey = <^>!+^ ; punkt darunter + BSUnicode("Ḷ") Else send L return +r:: - If A_PriorHotkey = ^ ; circumflex - { - Send {bs} - MyUTF_String = Ĉ - Gosub Unicode - } - Else If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = Č - Gosub Unicode - } - Else If A_PriorHotkey = ; akut - { - Send {bs} - MyUTF_String = Ć - Gosub Unicode - } - Else If A_PriorHotkey = #^ ; cedilla - { - Send {bs} - MyUTF_String = Ç - Gosub Unicode - } + If A_PriorHotkey = ^ ; circumflex + BSUnicode("Ĉ") + Else If A_PriorHotkey = +^ ; caron + BSUnicode("Č") + Else If A_PriorHotkey = ; akut + BSUnicode("Ć") + Else If A_PriorHotkey = #^ ; cedilla + BSUnicode("Ç") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("Ċ") Else Send C Return +t:: - If A_PriorHotkey = ^ ; circumflex - { - Send {bs} - MyUTF_String = Ŵ - Gosub Unicode - } + If A_PriorHotkey = ^ ; circumflex + BSUnicode("Ŵ") Else send W Return +z:: - If A_PriorHotkey = #^ ; cedilla - { - Send {bs} - MyUTF_String = Ķ - Gosub Unicode - } + If A_PriorHotkey = #^ ; cedilla + BSUnicode("Ķ") + Else If A_PriorHotkey = <^>!+^ ; punkt darunter + BSUnicode("Ḳ") Else send K Return +u:: - If A_PriorHotkey = ^ ; circumflex - { - Send {bs} - MyUTF_String = Ĥ - Gosub Unicode - } - Else If A_PriorHotkey = #^+^ ; Querstrich - { - Send {bs} - MyUTF_String = Ħ - Gosub Unicode - } + If A_PriorHotkey = ^ ; circumflex + BSUnicode("Ĥ") + Else If A_PriorHotkey = #^+^ ; Querstrich + BSUnicode("Ħ") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("Ḣ") + Else If A_PriorHotkey = <^>!+^ ; punkt darunter + BSUnicode("Ḥ") Else send H Return +i:: - If A_PriorHotkey = ^ ; circumflex - { - Send {bs} - MyUTF_String = Ĝ - Gosub Unicode - } - Else If A_PriorHotkey = #^^ ; brevis - { - Send {bs} - MyUTF_String = Ğ - Gosub Unicode - } - Else If A_PriorHotkey = #^ ; cedilla - { - Send {bs} - MyUTF_String = Ģ - Gosub Unicode - } + If A_PriorHotkey = ^ ; circumflex + BSUnicode("Ĝ") + Else If A_PriorHotkey = #^^ ; brevis + BSUnicode("Ğ") + Else If A_PriorHotkey = #^ ; cedilla + BSUnicode("Ģ") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("Ġ") Else send G Return +o:: - If A_PriorHotkey = <^>!+ ; durchgestrichen - { - Send {bs} - MyUTF_String = ₣ - Gosub Unicode - } + If A_PriorHotkey = <^>!+ ; durchgestrichen + BSUnicode("₣") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("Ḟ") Else send F Return +p::send Q +::send -++:: ; macron, soll tot -MyUTF_String = ˉ -Gosub Unicode -return +++::Unicode("ˉ") ; macron, tot +a:: - If A_PriorHotkey = #^+ ; Diaerese + If A_PriorHotkey = #^+ ; Diaerese Send, {bs} Else If A_PriorHotkey = <^>!+ ; Ring - { - Send {bs} - MyUTF_String = Ů - Gosub Unicode - } - Else If A_PriorHotkey = #^^ ; brevis - { - Send {bs} - MyUTF_String = Ŭ - Gosub Unicode - } - Else If A_PriorHotkey = #^++ ; doppelakut - { - Send {bs} - MyUTF_String = Ű - Gosub Unicode - } - Else If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = Ů - Gosub Unicode - } - Else If A_PriorHotkey = ++ ; macron - { - Send {bs} - MyUTF_String = Ū - Gosub Unicode - } - Else If A_PriorHotkey = #^^ ; brevis - { - Send {bs} - MyUTF_String = Ŭ - Gosub Unicode - } - Else If A_PriorHotkey = #^+ ; ogonek - { - Send {bs} - MyUTF_String = Ų - Gosub Unicode - } - Else If A_PriorHotkey = + ; tilde - { - Send {bs} - MyUTF_String = Ũ - Gosub Unicode - } + BSUnicode("Ů") + Else If A_PriorHotkey = #^^ ; brevis + BSUnicode("Ŭ") + Else If A_PriorHotkey = #^++ ; doppelakut + BSUnicode("Ű") + Else If A_PriorHotkey = +^ ; caron + BSUnicode("Ů") + Else If A_PriorHotkey = ++ ; macron + BSUnicode("Ū") + Else If A_PriorHotkey = #^^ ; brevis + BSUnicode("Ŭ") + Else If A_PriorHotkey = #^+ ; ogonek + BSUnicode("Ų") + Else If A_PriorHotkey = + ; tilde + BSUnicode("Ũ") Else send U Return @@ -858,29 +590,15 @@ Return If A_PriorHotkey = #^+ ; Diaerese Send, {bs} Else If A_PriorHotkey = ++ ; macron - { - Send {bs} - MyUTF_String = Ī - Gosub Unicode - } + BSUnicode("Ī") Else If A_PriorHotkey = #^^ ; brevis - { - Send {bs} - MyUTF_String = Ĭ - Gosub Unicode - } + BSUnicode("Ĭ") Else If A_PriorHotkey = #^+ ; ogonek - { - Send {bs} - MyUTF_String = Į - Gosub Unicode - } + BSUnicode("Į") Else If A_PriorHotkey = + ; tilde - { - Send {bs} - MyUTF_String = Ĩ - Gosub Unicode - } + BSUnicode("Ĩ") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("İ") Else Send I Return @@ -889,31 +607,15 @@ Return If A_PriorHotkey = #^+ ; Diaerese Send {bs} Else If A_PriorHotkey = + ; tilde - { - Send {bs} - MyUTF_String = Ã - Gosub Unicode - } + BSUnicode("Ã") Else If A_PriorHotkey = <^>!+ ; Ring Send {bs} Else If A_PriorHotkey = ++ ; macron - { - Send {bs} - MyUTF_String = Ā - Gosub Unicode - } + BSUnicode("Ā") Else If A_PriorHotkey = #^^ ; brevis - { - Send {bs} - MyUTF_String = Ă - Gosub Unicode - } + BSUnicode("Ă") Else If A_PriorHotkey = #^+ ; ogonek - { - Send {bs} - MyUTF_String = Ą - Gosub Unicode - } + BSUnicode("Ą") Else Send A Return @@ -922,170 +624,94 @@ Return If A_PriorHotkey = #^+ ; Diaerese Send, {bs} Else If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = Ě - Gosub Unicode - } + BSUnicode("Ě") Else If A_PriorHotkey = ++ ; macron - { - Send {bs} - MyUTF_String = Ē - Gosub Unicode - } + BSUnicode("Ē") Else If A_PriorHotkey = #^^ ; brevis - { - Send {bs} - MyUTF_String = Ĕ - Gosub Unicode - } + BSUnicode("Ĕ") Else If A_PriorHotkey = #^+ ; ogonek - { - Send {bs} - MyUTF_String = Ę - Gosub Unicode - } + BSUnicode("Ę") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("Ė") Else Send E Return +g:: If A_PriorHotkey = <^>!+ ; Schrgstrich - { - Send {bs} - MyUTF_String = Ø - Gosub Unicode - } + BSUnicode("Ø") Else If A_PriorHotkey = + ; tilde - { - Send {bs} - MyUTF_String = Õ - Gosub Unicode - } + BSUnicode("Õ") Else If A_PriorHotkey = #^++ ; doppelakut - { - Send {bs} - MyUTF_String = Ő - Gosub Unicode - } + BSUnicode("Ő") Else If A_PriorHotkey = #^+ ; Diaerese Send {bs} Else If A_PriorHotkey = ++ ; macron - { - Send {bs} - MyUTF_String = Ō - Gosub Unicode - } + BSUnicode("Ō") Else If A_PriorHotkey = #^^ ; brevis - { - Send {bs} - MyUTF_String = Ŏ - Gosub Unicode - } + BSUnicode("Ŏ") Else send O Return +h:: If A_PriorHotkey = ^ ; circumflex - { - Send {bs} - MyUTF_String = Ŝ - Gosub Unicode - } + BSUnicode("Ŝ") Else If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = Š - Gosub Unicode - } + BSUnicode("Š") Else If A_PriorHotkey = ; akut - { - Send {bs} - MyUTF_String = Ś - Gosub Unicode - } + BSUnicode("Ś") Else If A_PriorHotkey = #^ ; cedilla - { - Send {bs} - MyUTF_String = Ş - Gosub Unicode - } + BSUnicode("Ş") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("") + Else If A_PriorHotkey = <^>!+^ ; punkt darunter + BSUnicode("Ṣ") Else send S Return +j:: If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = Ň - Gosub Unicode - } + BSUnicode("Ň") Else If A_PriorHotkey = + ; tilde - { - Send {bs} - MyUTF_String = Ñ - Gosub Unicode - } + BSUnicode("Ñ") Else If A_PriorHotkey = ; akut - { - Send {bs} - MyUTF_String = Ń - Gosub Unicode - } + BSUnicode("Ń") Else If A_PriorHotkey = #^ ; cedilla - { - Send {bs} - MyUTF_String = Ņ - Gosub Unicode - } + BSUnicode("Ņ") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("Ṅ") Else send N Return +k:: If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = Ř - Gosub Unicode - } + BSUnicode("Ř") Else If A_PriorHotkey = ; akut - { - Send {bs} - MyUTF_String = Ŕ - Gosub Unicode - } + BSUnicode("Ŕ") Else If A_PriorHotkey = #^ ; cedilla - { - Send {bs} - MyUTF_String = Ŗ - Gosub Unicode - } + BSUnicode("Ŗ") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("Ṙ") + Else If A_PriorHotkey = <^>!+^ ; punkt darunter + BSUnicode("Ṛ") Else send R Return +l:: If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = Ť - Gosub Unicode - } + BSUnicode("Ť") Else If A_PriorHotkey = #^ ; cedilla - { - Send {bs} - MyUTF_String = Ţ - Gosub Unicode - } + BSUnicode("Ţ") Else If A_PriorHotkey = #^+^ ; Querstrich - { - Send {bs} - MyUTF_String = Ŧ - Gosub Unicode - } + BSUnicode("Ŧ") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("Ṫ") + Else If A_PriorHotkey = <^>!+^ ; punkt darunter + BSUnicode("Ṭ") Else send T Return @@ -1093,17 +719,13 @@ Return +:: If A_PriorHotkey = #^+^ ; Querstrich - { - Send {bs} - MyUTF_String = Đ - Gosub Unicode - } + BSUnicode("Đ") Else If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = Ď - Gosub Unicode - } + BSUnicode("Ď") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("Ḋ") + Else If A_PriorHotkey = <^>!+^ ; punkt darunter + BSUnicode("Ḍ") Else send D Return @@ -1111,11 +733,7 @@ Return If A_PriorHotkey = #^+ ; Diaerese Send {bs} Else If A_PriorHotkey = ^ ; circumflex - { - Send {bs} - MyUTF_String = Ŷ - Gosub Unicode - } + BSUnicode("Ŷ") Else send Y Return @@ -1123,55 +741,58 @@ Return +y::send +x::send +c::send -+v::send P + ++v:: + If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("Ṗ") + Else + send P +Return +b:: If A_PriorHotkey = +^ ; caron - { - Send {bs} - MyUTF_String = Ž - Gosub Unicode - } + BSUnicode("Ž") Else If A_PriorHotkey = ; akut - { - Send {bs} - MyUTF_String = Ź - Gosub Unicode - } + BSUnicode("Ź") + Else If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("Ż") Else send Z Return -+n::send B -+m::send M ++n:: + If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("Ḃ") + Else + send B +Return + ++m:: + If A_PriorHotkey = <^>! ; punkt darber + BSUnicode("Ṁ") + Else If A_PriorHotkey = <^>!+^ ; punkt darunter + BSUnicode("Ṃ") + Else + send M +Return + +,::send `; +.::send : +-:: If A_PriorHotkey = ^ ; circumflex - { - Send {bs} - MyUTF_String = Ĵ - Gosub Unicode - } + BSUnicode("Ĵ") Else send J Return + ;3. Ebene: Mod3 ;(Win+Ctrl) ;---------------- -#^^:: ; brevis, soll tot -MyUTF_String = ˘ -Gosub Unicode -return - -#^1:: -MyUTF_String = ¬ -Gosub Unicode -return - +#^^::Unicode("˘") ; brevis, soll tot +#^1::Unicode("¬") #^2::send {^}{space} #^3::send 3 #^4::send @@ -1181,12 +802,7 @@ return #^8::send #^9::send #^0::send - -#^:: -MyUTF_String = — -Gosub Unicode -return - +#^::Unicode("—") #^::send ; cedilla, soll tot #^q::send @ @@ -1199,17 +815,8 @@ return #^i::send > #^o::send `= #^p::send `; - -#^:: ;ij -MyUTF_String = ij -Gosub Unicode -return - -#^+:: ; Diaerese, soll tot -MyUTF_String = ¨ -Gosub Unicode -return - +#^::Unicode("ij") ;ij +#^+::Unicode("¨") ; Diaerese, soll tot #^a::send \ #^s::send `/ @@ -1223,7 +830,6 @@ return #^::send : #^::send y - #^y::sendraw ~ #^x::send $ #^c::send | @@ -1253,154 +859,46 @@ return #^+9::send #^+0::send #^+::send +#^+::Unicode("˛") ; ogonek, soll tot -#^+:: ; ogonek, soll tot -MyUTF_String = ˛ -Gosub Unicode -return - - -#^+q:: ;xi -MyUTF_String = ξ -Gosub Unicode -return - +#^+q::Unicode("ξ") ;xi #^+w::send v - -#^+e:: ;lambda -MyUTF_String = λ -Gosub Unicode -return - -#^+r:: ;chi -MyUTF_String = χ -Gosub Unicode -return - +#^+e::Unicode("λ") ;lambda +#^+r::Unicode("χ") ;chi #^+t::send w - -#^+z:: ;kappa -MyUTF_String = κ -Gosub Unicode -return - -#^+u:: ;psi -MyUTF_String = ψ -Gosub Unicode -return - -#^+i:: ;gamma -MyUTF_String = γ -Gosub Unicode -return - -#^+o:: ;phi -MyUTF_String = φ -Gosub Unicode -return - +#^+z::Unicode("κ") ;kappa +#^+u::Unicode("ψ") ;psi +#^+i::Unicode("γ") ;gamma +#^+o::Unicode("φ") ;phi #^+p::send q - -#^+:: ;IJ -MyUTF_String = IJ -Gosub Unicode -return - +#^+::Unicode("IJ") ;IJ #^++::send " ;doppelakut, soll tot #^+a::send u - -#^+s:: ;iota -MyUTF_String = ι -Gosub Unicode -return - -#^+d:: ;alpha -MyUTF_String = α -Gosub Unicode -return - -#^+f:: ;epsilon -MyUTF_String = ε -Gosub Unicode -return - -#^+g:: ;omega -MyUTF_String = ω -Gosub Unicode -return - -#^+h:: ;sigma -MyUTF_String = σ -Gosub Unicode -return - -#^+j:: ;nu -MyUTF_String = ν -Gosub Unicode -return - -#^+k:: ;rho -MyUTF_String = ρ -Gosub Unicode -return - -#^+l:: ;tau -MyUTF_String = τ -Gosub Unicode -return - -#^+:: ;delta -MyUTF_String = δ -Gosub Unicode -return - -#^+:: ;upsilon -MyUTF_String = υ -Gosub Unicode -return - - +#^+s::Unicode("ι") ;iota +#^+d::Unicode("α") ;alpha +#^+f::Unicode("ε") ;epsilon +#^+g::Unicode("ω") ;omega +#^+h::Unicode("σ") ;sigma +#^+j::Unicode("ν") ;nu +#^+k::Unicode("ρ") ;rho +#^+l::Unicode("τ") ;tau +#^+::Unicode("δ") ;delta +#^+::Unicode("υ") ;upsilon #^+y::send #^+x::send +#^+c::Unicode("η") ;eta +#^+v::Unicode("π") ;pi +#^+b::Unicode("ζ") ;zeta +#^+n::Unicode("β") ;beta +#^+m::Unicode("μ") ;mu +#^+,::Unicode("ϑ") ;vartheta? +#^+.::Unicode("θ") ;theta +#^+-::send j -#^+c:: ;eta -MyUTF_String = η -Gosub Unicode -return - -#^+v:: ;pi -MyUTF_String = π -Gosub Unicode -return - -#^+b:: ;zeta -MyUTF_String = ζ -Gosub Unicode -return - -#^+n:: ;beta -MyUTF_String = β -Gosub Unicode -return - -#^+m:: ;mu -MyUTF_String = μ -Gosub Unicode -return - -#^+,:: ;vartheta? -MyUTF_String = ϑ -Gosub Unicode -return - -#^+.:: ;theta -MyUTF_String = θ -Gosub Unicode -return +;#^+space:: ; geschtztes Leerzeichen -#^+-::send j @@ -1408,21 +906,13 @@ return ;(AltGr) ;----------------- +<^>!^::Unicode("·") ; Mittenpunkt, tot mit l und L <^>!4::Send {PgUp} ;Prev <^>!8::Send / <^>!9::Send * <^>!0::Send - - -<^>!:: ; eth -MyUTF_String = ð -Gosub Unicode -return - -<^>!:: ; punkt oben drber, soll tot -MyUTF_String = ˙ -Gosub Unicode -return - +<^>!::Unicode("ð") ; eth +<^>!::Unicode("˙") ; punkt oben drber, soll tot <^>!q::Send {Esc} <^>!w::Send {Backspace} @@ -1433,16 +923,8 @@ return <^>!i::Send 8 <^>!o::Send 9 <^>!p::Send {+} - -<^>!:: -MyUTF_String = ə -Gosub Unicode -return - -<^>!+:: ; Schrgstrich, soll tot -MyUTF_String = / -Gosub Unicode -return +<^>!::Unicode("ə") ; ? +<^>!+::Unicode("/") ; Schrgstrich, soll tot <^>!a::Send {Home} <^>!s::Send {Left} @@ -1454,11 +936,7 @@ return <^>!k::Send 5 <^>!l::Send 6 <^>!::Send `, - <^>!::Send ; thorn -;MyUTF_String = þ -;Gosub Unicode -;return <^>!y::Send {Tab} @@ -1480,111 +958,39 @@ return ;(AltGr+Shift) ;----------------------- +<^>!+^::Send . ; punkt darunter <^>!+4::Send +{Prev} +<^>!+::Unicode("Ð") ; Eth +<^>!+::Unicode("˚") ; ring obendrauf -<^>!+:: ; Eth -MyUTF_String = Ð -Gosub Unicode -return - -<^>!+:: ; ring obendrauf, soll tot -MyUTF_String = ˚ -Gosub Unicode -return - -<^>!+q:: ; Xi? -MyUTF_String = Ξ -Gosub Unicode -return - -<^>!+w:: ; Lambda -MyUTF_String = Λ -Gosub Unicode -return - +<^>!+q::Unicode("Ξ") ; Xi +<^>!+w::Unicode("Λ") ; Lambda <^>!+e::Send +{Up} <^>!+r::Send <^>!+t::Send +{Insert} - -<^>!+u:: ; Phi -MyUTF_String = Ψ -Gosub Unicode -return - -<^>!+i:: ; Gamma -MyUTF_String = Γ -Gosub Unicode -return - -<^>!+o:: ; Psi -MyUTF_String = Φ -Gosub Unicode -return - -<^>!+:: ; ? -MyUTF_String = Ə -Gosub Unicode -return - -<^>!++:: ; komma drunter, soll tot -MyUTF_String = ˏ -Gosub Unicode -return +<^>!+u::Unicode("Ψ") ; Phi +<^>!+i::Unicode("Γ") ; Gamma +<^>!+o::Unicode("Φ") ; Psi +<^>!+::Unicode("Ə") ; ? +<^>!++::Unicode("ˏ") ; komma drunter, soll tot <^>!+a::Send +{Home} <^>!+s::Send +{Left} <^>!+d::Send +{Down} <^>!+f::Send +{Right} <^>!+g::Send +{End} -<^>!+h:: ; Sigma -MyUTF_String = Σ -Gosub Unicode -return - -<^>!+j:: ; No -MyUTF_String = № -Gosub Unicode -return - -<^>!+k:: ; (R) -MyUTF_String = ® -Gosub Unicode -return - -<^>!+l:: ; TM -MyUTF_String = ™ -Gosub Unicode -return - -<^>!+:: ; Delta -MyUTF_String = Δ -Gosub Unicode -return - -<^>!+::Send ; Thorn -;MyUTF_String = Þ -;Gosub Unicode -;return - +<^>!+h::Unicode("Σ") ; Sigma +<^>!+j::Unicode("№") ; No +<^>!+k::Unicode("®") ; (R) +<^>!+l::Unicode("™") ; TM +<^>!+::Unicode("Δ") ; Delta +<^>!+::Send ; Thorn <^>!+y::Send +{Tab} - <^>!+c::Send +{PgDn} - -<^>!+v:: ; Pi -MyUTF_String = Π -Gosub Unicode -return - -<^>!+b:: ; Omega -MyUTF_String = Ω -Gosub Unicode -return - -<^>!+.:: ; Theta -MyUTF_String = Θ -Gosub Unicode -return +<^>!+v::Unicode("Π") ; Pi +<^>!+b::Unicode("Ω") ; Omega +<^>!+.::Unicode("Θ") ; Theta @@ -1602,8 +1008,6 @@ return ^9::send ^9 ^0::send ^0 - - ^q::send ^x ^w::send ^v ^e::send ^l @@ -1706,10 +1110,10 @@ return #w::send #v #e:: - ; #e::send #l funktioniert nicht, Computer wird nicht gesperrt - ; http://www.autohotkey.com/forum/viewtopic.php?p=66937#66937 Run,%A_WinDir%\System32\Rundll32.exe User32.dll`,LockWorkStation return + ; #e::send #l funktioniert nicht, Computer wird nicht gesperrt + ; http://www.autohotkey.com/forum/viewtopic.php?p=66937#66937 #r::send #c #t::send #w @@ -1814,37 +1218,16 @@ return #^NumpadMult::send #^NumpadSub::send - #^NumpadAdd::send -#^NumpadEnter:: ; neq - MyUTF_String = ≠ - Gosub Unicode - return +#^NumpadEnter::Unicode("") ; neq -#^Numpad7:: ;7/8 - MyUTF_String = ⅞ - Gosub Unicode - return -#^Numpad8:: ; uparrow - MyUTF_String = ↑ - Gosub Unicode - return -#^Numpad9:: ; 3/8 - MyUTF_String = ⅜ - Gosub Unicode - return -#^Numpad4:: ; leftarrow - MyUTF_String = ← - Gosub Unicode - return +#^Numpad7::Unicode("⅞") ; 7/8 +#^Numpad8::Unicode("↑") ; uparrow +#^Numpad9::Unicode("⅜") ; 3/8 +#^Numpad4::Unicode("?") ; leftarrow #^Numpad5::send -#^Numpad6:: ; rightarrow - MyUTF_String = → - Gosub Unicode - return +#^Numpad6::Unicode("→") ; rightarrow #^Numpad1::send -#^Numpad2:: ; downarrow - MyUTF_String = ↓ - Gosub Unicode - return +#^Numpad2::Unicode("↓") ; downarrow #^Numpad3::send #^Numpad0::send `% #^NumPadDot::send . @@ -1858,37 +1241,15 @@ return ; --> Brche ; --------------------------- -#^+NumpadDiv:: ; slash - MyUTF_String = ∕ - Gosub Unicode - return -#^+NumpadMult:: ; cdot - MyUTF_String = ⋅ - Gosub Unicode - return -#^+NumpadSub::send - ; eig. unbelegt -#^+NumpadAdd:: ; -+ - MyUTF_String = ∓ - Gosub Unicode - return -#^+NumpadEnter:: ; approx - MyUTF_String = ≈ - Gosub Unicode - return - - -#^+NumpadHome:: ; 1/8 - MyUTF_String = ⅛ - Gosub Unicode - return -#^+NumpadUp:: ; 5/8 - MyUTF_String = ⅝ - Gosub Unicode - return -#^+NumpadPgUp:: ; 3/8 - MyUTF_String = ⅜ - Gosub Unicode - return +#^+NumpadDiv::Unicode("∕") ; slash +#^+NumpadMult::Unicode("⋅") ; cdot +#^+NumpadSub::send - ; eig. unbelegt +#^+NumpadAdd::Unicode("∓") ; -+ +#^+NumpadEnter::Unicode("≈") ; approx + +#^+NumpadHome::Unicode("⅛") ; 1/8 +#^+NumpadUp::Unicode("?") ; 5/8 +#^+NumpadPgUp::Unicode("⅜") ; 3/8 #^+NumpadLeft::send #^+NumpadClear::send #^+NumpadRight::send @@ -1908,33 +1269,15 @@ return <^>!NumpadDiv::send / -<^>!NumpadMult:: ; cdot - MyUTF_String = ⋅ - Gosub Unicode - return -<^>!NumpadSub::send - ; eig. unbelegt -<^>!NumpadAdd:: ; -+ - MyUTF_String = ∓ - Gosub Unicode - return -<^>!NumpadEnter:: ; approx - MyUTF_String = ≈ - Gosub Unicode - return - - -<^>!Numpad7:: ; 1/8 - MyUTF_String = ⅛ - Gosub Unicode - return -<^>!Numpad8:: ; 5/8 - MyUTF_String = ⅝ - Gosub Unicode - return -<^>!Numpad9:: ; 3/8 - MyUTF_String = ⅜ - Gosub Unicode - return +<^>!NumpadMult::Unicode("⋅") ; cdot +<^>!NumpadSub::send - ; eig. unbelegt +<^>!NumpadAdd::Unicode("∓") ; -+ +<^>!NumpadEnter::Unicode("≈") ; approx + + +<^>!Numpad7::Unicode("⅛") ; 1/8 +<^>!Numpad8::Unicode("?") ; 5/8 +<^>!Numpad9::Unicode("⅜") ; 3/8 <^>!Numpad4::send <^>!Numpad5::send <^>!Numpad6::send @@ -1947,14 +1290,22 @@ return ; ------------------------------------ +Unicode(code) + { + saved_clipboard := ClipboardAll + Transform, Clipboard, Unicode, %code% + send ^v + Clipboard := saved_clipboard + } +BSUnicode(code) + { + saved_clipboard := ClipboardAll + Transform, Clipboard, Unicode, %code% + send {bs}^v + Clipboard := saved_clipboard + } -Unicode: - Transform, Clipboard, Unicode, %MyUTF_String% - ; Place Unicode text onto the clipboard - send ^v - ; Paste the clipboard's Unicode text -return toggleneo: if state <> @@ -1973,7 +1324,6 @@ toggleneo: return - help: Run, %A_WinDir%\hh mk:@MSITStore:autohotkey.chm return @@ -2023,4 +1373,4 @@ return exitprogram: exitapp -return +return \ No newline at end of file -- cgit v1.2.3