From 31266d63142c1d0ae2b188732b96fb38ccfeb045 Mon Sep 17 00:00:00 2001 From: martin_r Date: Fri, 17 Oct 2008 17:00:59 +0000 Subject: weitere Modularisierung und Anpassung an die neuen toten Tasten git-svn-id: https://svn.neo-layout.org@1009 b9310e46-f624-0410-8ea1-cfbb3a30dc96 --- windows/autohotkey/Source/Keys-Numbers.ahk | 164 +++++++++++++++++++++++++++++ 1 file changed, 164 insertions(+) create mode 100644 windows/autohotkey/Source/Keys-Numbers.ahk (limited to 'windows/autohotkey/Source/Keys-Numbers.ahk') diff --git a/windows/autohotkey/Source/Keys-Numbers.ahk b/windows/autohotkey/Source/Keys-Numbers.ahk new file mode 100644 index 0000000..26f70f6 --- /dev/null +++ b/windows/autohotkey/Source/Keys-Numbers.ahk @@ -0,0 +1,164 @@ +neo_0: + noCaps = 1 + EbeneAktualisieren() + if Ebene12 and !(CheckDeadUni("c1",0x2070) ; Hochgestellte 0 + or CheckDeadUni("c5",0x2080)) ; Tiefgestellte 0 + OutputChar12(0,"”",0,"rightdoublequotemark") + else if (Ebene = 3) + OutputChar("’", "rightsingleqoutemark") + else if (Ebene = 4) + OutputChar("{NumpadSub}", "minus") ; s. Mail vom Sun, 14 Sep 2008 00:33:47 +0200 + else if (Ebene = 6) + SendUnicodeChar(0x2205, "emptyset") ; leere Menge +return + +neo_1: + noCaps=1 + EbeneAktualisieren() + if Ebene12 and !(CheckDeadUni("c1",0x00B9) ; Hochgestellte 1 + or CheckDeadUni("c5",0x2081)) ; Tiefgestellte 1 + OutputChar12(1,"°",1,"degree") + else if (Ebene = 3) + SendUnicodeChar(0x00B9, "onesuperior") ; Hochgestellte 1 + else if (Ebene = 4) + SendUnicodeChar(0x2022, "enfilledcircbullet") ; Bullet + else if (Ebene = 5) + SendUnicodeChar(0x2081, "U2081") ; Tiefgestellte 1 + else if (Ebene = 6) + SendUnicodeChar(0x00AC, "notsign") ; Nicht-Symbol +return + +neo_2: + noCaps = 1 + EbeneAktualisieren() + if (Ebene = 1 and !(CheckDeadUni("c1",0x00B2) ; Hochgestellte 2 + or CheckDeadUni("c5",0x2082))) ; Tiefgestellte 2 + OutputChar(2,2) + else if (Ebene = 2) + SendUnicodeChar(0x2116, "numerosign") ; Numero + else if (Ebene = 3) + SendUnicodeChar(0x00B2, "twosuperior") ; Hochgestellte 2 + else if (Ebene = 4) + SendUnicodeChar(0x2023, "U2023") ; Aufzählungspfeil + else if (Ebene = 5) + SendUnicodeChar(0x2082, "U2082") ; Tiefgestellte 2 + else if (Ebene = 6) + SendUnicodeChar(0x2228, "logicalor") ; Logisches Oder +return + +neo_3: + noCaps = 1 + EbeneAktualisieren() + if Ebene12 and !(CheckDeadUni("c1",0x00B3) ; Hochgestellte 3 + or CheckDeadUni("c5",0x2083)) ; Tiefgestellte 3 + OutputChar12(3,"§",3,"section") + else if (Ebene = 3) + SendUnicodeChar(0x00B3, "threesuperior") ; Hochgestellte 3 + else if (Ebene = 4) + SendUnicodeChar(0x266B, "U226B") ; 2 Achtelnoten + else if (Ebene = 5) + SendUnicodeChar(0x2083, "U2083") ; Tiefgestellte 3 + else if (Ebene = 6) + SendUnicodeChar(0x2227, "logicaland") ; Logisches Und +return + +neo_4: + noCaps = 1 + EbeneAktualisieren() + if (Ebene = 1) and !(CheckDeadUni("c1",0x2074) ; Hochgestellte 4 + or CheckDeadUni("c5",0x2084)) ; Tiefgestellte 4 + OutputChar(4,4) + else if (Ebene = 2) + SendUnicodeChar(0x00BB, "guillemotright") ; Double guillemot right + else if (Ebene = 3) + OutputChar("›", "U230A") ; Single guillemot right + else if (Ebene = 4) + OutputChar("{PgUp}", "Prior") ; Bild auf + else if (Ebene = 5) + SendUnicodeChar(0x2113, "U2213") ; Script small L + else if (Ebene = 6) + SendUnicodeChar(0x22A5, "uptack") ; Senkrecht +return + +neo_5: + noCaps = 1 + EbeneAktualisieren() + if (Ebene = 1) and !(CheckDeadUni("c1",0x2075) ; Hochgestellte 5 + or CheckDeadUni("c5",0x2085)) ; Tiefgestellte 5 + OutputChar(5,5) + else if (Ebene = 2) + SendUnicodeChar(0x00AB, "guillemotleft") ; Double guillemot left + else if (Ebene = 3) + OutputChar("‹", "U2039") ; Single guillemot left + else if (Ebene = 5) + SendUnicodeChar(0x0AF8, "femalesymbol") ; Kreuz (Dagger) + else if (Ebene = 6) + SendUnicodeChar(0x2221, "U2221") ; Winkel +return + +neo_6: + noCaps = 1 + EbeneAktualisieren() + if (Ebene = 1) and !(CheckDeadUni("c1",0x2076) ; Hochgestellte 6 + or CheckDeadUni("c5",0x2086)) ; Tiefgestellte 6 + OutputChar(6,6) + else if (Ebene = 2) + SendUnicodeChar(0x20AC, "EuroSign") + else if (Ebene = 3) + OutputChar("¢", "cent") + else if (Ebene = 4) + OutputChar("£", "sterling") + else if (Ebene = 5) + SendUnicodeChar(0x0AF7, "malesymbol") + else if (Ebene = 6) + SendUnicodeChar(0x2225, "U2225") ; parallel +return + +neo_7: + noCaps = 1 + EbeneAktualisieren() + if Ebene12 and !(CheckDeadUni("c1",0x2077) ; Hochgestellte 7 + or CheckDeadUni("c5",0x2087)) ; Tiefgestellte 7 + OutputChar12(7,"$",7,"dollar") + else if (Ebene = 3) + OutputChar("¥", "yen") + else if (Ebene = 4) + OutputChar("¤", "currency") + else if (Ebene = 5) + SendUnicodeChar(0x03BA, "Greek_kappa") ; greek small letter kappa + else if (Ebene = 6) + SendUnicodeChar(0x2209, "notelementof") ; nicht Element von +return + +neo_8: + noCaps = 1 + EbeneAktualisieren() + if Ebene12 and !(CheckDeadUni("c1",0x2078) ; Hochgestellte 8 + or CheckDeadUni("c5",0x2088)) ; Tiefgestellte 8 + OutputChar12(8,"„",8,"doublelowquotemark") + else if (Ebene = 3) + OutputChar("‚", "singlelowquotemark") + else if (Ebene = 4) + OutputChar("{NumpadDiv}", "KP_Divide") + else if (Ebene = 5) + SendUnicodeChar(0x27E8, "U27E8") ; bra (öffnende spitze Klammer) + else if (Ebene = 6) + SendUnicodeChar(0x2204, "U2204") ; es existiert nicht +return + +neo_9: + noCaps = 1 + EbeneAktualisieren() + if Ebene12 and !(CheckDeadUni("c1",0x2079) ; Hochgestellte 9 + or CheckDeadUni("c5",0x2089)) ; Tiefgestellte 9 + OutputChar12(9,"“",9,"leftdoublequotemark") + else if (Ebene = 3) + OutputChar("‘", "leftsinglequotemark") + else if (Ebene = 4) + OutputChar("{NumpadMult}", "KP_Multiply") + else if (Ebene = 5) + SendUnicodeChar(0x27E9, "U27E9") ; ket (schließende spitze Klammer) + else if (Ebene = 6) + SendUnicodeChar(0x2226, "U2226") ; nicht parallel +return + -- cgit v1.2.3