-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathchar🠿.ahk
183 lines (176 loc) · 11.4 KB
/
char🠿.ahk
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
#Requires AutoHotKey 2.1-alpha.4
; v1.1@23-10
; PressH_ChPick function located in /lib, TimerHold defined in AES section of aCommon.ahk
#MaxThreadsPerHotkey 2 ; 2 Allows A₁BA₂ fast typing, otherwise A₂ doesn't register
#InputLevel 1 ; Set the level for the following hotkeys so that they can activate lower-level hotstrings (autohotkey.com/docs/commands/SendLevel.htm)
; Use SendEvent for SpecialChars-Alt to recognize keys
setChar🠿()
setChar🠿() { ; hold key to select a symbol from a popup menu
static k := keyConstant._map ; various key name constants, gets vk code to avoid issues with another layout
, s := helperString
, pre := '$~' ; use $kbd hook and don't ~block input to avoid typing lag
; , lbl🖰hide := ''
; , cfg🖰h := cfg🖰convert()
; getKeys🖰hide(&lbl🖰hide) ; these hdotkeys override '🖰hide on 🖮', so we need to invoke pointer hiding here
HotIfWinActive("ahk_group PressnHold")
loop parse "abce/nosuyz'" { ; ⇧🠿a⇧🠿b⇧🠿c⇧🠿e⇧🠿/⇧🠿n⇧🠿o⇧🠿s⇧🠿u⇧🠿y⇧🠿z⇧🠿'
HotKey(pre s.key→ahk( k[A_LoopField]), hkChar🠿, "T2")
HotKey(pre s.key→ahk('⇧' k[A_LoopField]), hkChar🠿, "T2")
}
loop parse "qwpxtvg-r" { ; 🠿q🠿w🠿p🠿x🠿t🠿v🠿g🠿-🠿r f used for home row mod h for exit insert mode
HotKey(pre s.key→ahk( k[A_LoopField]), hkChar🠿, "T2")
}
loop parse "``45" { ; ⇧🠿`⇧🠿4⇧🠿5⇧🠿f
HotKey(pre s.key→ahk('⇧' k[A_LoopField]), hkChar🠿, "T2")
}
HotIf
WinActive_Not(active, not_active*) { ; = #Hotif WinActive("ahk_group PressnHold") and !WinActive("ahk_group Browser")
if WinActive(active) {
for i in not_active {
if WinActive(i) {
return false
}
}
return true
} else {
return false
}
}
HotIf (*) => WinActive_Not("ahk_group PressnHold", "ahk_group Browser") ; exclude Vivaldi to allow using vimium jkl;
loop parse "l" { ; ⇧🠿l
HotKey(pre s.key→ahk( k[A_LoopField]), hkChar🠿, "T2")
HotKey(pre s.key→ahk('⇧' k[A_LoopField]), hkChar🠿, "T2")
}
HotIf
HotIf (*) => WinActive_Not("ahk_group PressnHold", "ahk_group Browser") ; exclude Vivaldi to allow using vimium jkl;
loop parse "i" { ; ⇧🠿i
HotKey(pre s.key→ahk('⇧' k[A_LoopField]), hkChar🠿, "T2")
}
HotIf
HotIf (*) => WinActive_Not("ahk_group PressnHold", "ahk_group Browser","ahk_exe sublime_text.exe") ; exclude Vivaldi to allow using vimium jkl; and Sublime to allow 'i' to exit Insert
loop parse "i" { ; 🠿i
HotKey(pre s.key→ahk( k[A_LoopField]), hkChar🠿, "T2")
}
HotIf
; blind_ := false
hkChar🠿(hk_dirty) {
hk := StrReplace(StrReplace(hk_dirty,'~'),'$') ; other hotkeys may register first without ＄ ˜
(dbg<5)?'':dbgTT(0,hk_dirty ' → ' hk,t:=1)
; flag := s.getKeyPrefixFlag(hk)
; is∗ := flag & f∗ ; any modifier allowed, so match both ‘a’ and ‘⇧a’
; is∗ := cfg🖰h['modiHide'] ; any modifier allowed, so match both ‘a’ and ‘⇧a’a
Switch hk, 0 {
default : return ; msgbox('nothing matched setChar🠿 hk=' . hk)
; Hotkey created → key name and ordering of its modifier symbols gets fixed
; —————————— Diacritic hk c key_list lblMap lblKey 🖰hide
case a⃣ : char→sym(hk,'a',Dia['a' ],unset,unset,false) ;InStr(lbl🖰hide,'a'))
case ⇧a : char→sym(hk,'a',Dia['A' ],unset,unset,false) ;InStr(lbl🖰hide,'a') & is∗)
case c⃣ : char→sym(hk,'c',Dia['c' ],unset,unset,false) ;InStr(lbl🖰hide,'c'))
case ⇧c : char→sym(hk,'c',Dia['C' ],unset,unset,false) ;InStr(lbl🖰hide,'c') & is∗)
case e⃣ : char→sym(hk,'e',Dia['e' ],unset,unset,false) ;InStr(lbl🖰hide,'e'))
case ⇧e : char→sym(hk,'e',Dia['E' ],unset,unset,false) ;InStr(lbl🖰hide,'e') & is∗)
case i⃣ : char→sym(hk,'i',Dia['i' ],unset,unset,false) ;InStr(lbl🖰hide,'i'))
case ⇧i : char→sym(hk,'i',Dia['I' ],unset,unset,false) ;InStr(lbl🖰hide,'i') & is∗)
case l⃣ : char→sym(hk,'l',Dia['l' ],unset,unset,false) ;InStr(lbl🖰hide,'l'))
case ⇧l : char→sym(hk,'l',Dia['L' ],unset,unset,false) ;InStr(lbl🖰hide,'l') & is∗)
case n⃣ : char→sym(hk,'n',Dia['n' ],unset,unset,false) ;InStr(lbl🖰hide,'n'))
case ⇧n : char→sym(hk,'n',Dia['N' ],unset,unset,false) ;InStr(lbl🖰hide,'n') & is∗)
case o⃣ : char→sym(hk,'o',Dia['o' ],unset,unset,false) ;InStr(lbl🖰hide,'o'))
case ⇧o : char→sym(hk,'o',Dia['O' ],unset,unset,false) ;InStr(lbl🖰hide,'o') & is∗)
case s⃣ : char→sym(hk,'s',Dia['s' ],unset,unset,false) ;InStr(lbl🖰hide,'s'))
case ⇧s : char→sym(hk,'s',Dia['S' ],unset,unset,false) ;InStr(lbl🖰hide,'s') & is∗)
case u⃣ : char→sym(hk,'u',Dia['u' ],unset,unset,false) ;InStr(lbl🖰hide,'u'))
case ⇧u : char→sym(hk,'u',Dia['U' ],unset,unset,false) ;InStr(lbl🖰hide,'u') & is∗)
case y⃣ : char→sym(hk,'y',Dia['y' ],unset,unset,false) ;InStr(lbl🖰hide,'y'))
case ⇧y : char→sym(hk,'y',Dia['Y' ],unset,unset,false) ;InStr(lbl🖰hide,'y') & is∗)
case z⃣ : char→sym(hk,'z',Dia['z' ],unset,unset,false) ;InStr(lbl🖰hide,'z'))
case ⇧z : char→sym(hk,'z',Dia['Z' ],unset,unset,false) ;InStr(lbl🖰hide,'z') & is∗)
; —————————— Alt symbols (math, currency etc.)
case b⃣ : char→sym(hk,'b',Ch['Bullet' ],unset,unset,false) ;InStr(lbl🖰hide,'b'))
case ⇧b : char→sym(hk,'b',Ch['Misc' ],unset,unset,false) ;InStr(lbl🖰hide,'b') & is∗)
case d⃣ : char→sym(hk,'d',Ch['WinFile' ],'Ch','WinFileLab')
case ⇧d : char→sym(hk,'d',Ch['WinFile' ],'Ch','WinFileLab',false) ;InStr(lbl🖰hide,'d') & is∗)
case v⁄ : char→sym(hk,'/',Ch['WinFile' ],'Ch','WinFileLab')
case ⇧⁄ : char→sym(hk,'/',Ch['WinFile' ],'Ch','WinFileLab',false) ;InStr(lbl🖰hide,'/') & is∗)
case q⃣ : char→sym(hk,'q',Ch['XSymbols' ],'Ch','XSymbolsLab',false) ;InStr(lbl🖰hide,'q'))
case p⃣ : char→sym(hk,'p',Ch['Currency' ],'Ch','CurrLab',false) ;InStr(lbl🖰hide,'p'))
case x⃣ : char→sym(hk,'x',Ch['Tech' ],'Ch','TechLab',false) ;InStr(lbl🖰hide,'x'))
case t⃣ : char→sym(hk,'t',Ch['Math' ],'Ch','MathLab',false) ;InStr(lbl🖰hide,'t'))
case ⇧f : char→sym(hk,'f',Ch['Fractions' ],unset,unset,false) ;InStr(lbl🖰hide,'f'))
case f⃣ : char→sym(hk,'f',Ch['Fractions' ],unset,unset,false) ;InStr(lbl🖰hide,'f'))
case v⃣ : char→sym(hk,'v',Ch['Subscript' ],'Ch','SubLab',false) ;InStr(lbl🖰hide,'v'))
case g⃣ : char→sym(hk,'g',Ch['Superscript' ],'Ch','SupLab',false) ;InStr(lbl🖰hide,'g'))
;case m⃣ : char→sym(hk,'m',Ch['Dash' ],Ch['DashLab'],'-',false) ;InStr(lbl🖰hide,''))
case v‐ : char→sym(hk,'-',Ch['Dash' ],'Ch','DashLab')
;case p⃣ : char→sym(hk,'p',Ch['XSymbols' ],'Ch','XSymbolsLab',false) ;InStr(lbl🖰hide,''))
case r⃣ : char→sym(hk,'r',Ch['Checks' ],'Ch','ChecksLab',false) ;InStr(lbl🖰hide,'r'))
case w⃣ : char→sym(hk,'w',Ch['Arrows' ],'Ch','ArrowsLab',false) ;InStr(lbl🖰hide,'w'))
case v‘ : char→sym(hk, "'",Ch['QuotesS' ],unset,unset)
case ⇧‘ : char→sym(hk, "'",Ch['QuotesD' ],unset,unset,false) ;InStr(lbl🖰hide,'`'') & is∗)
case ⇧ˋ : char→sym(hk,'``',Ch['Para' ],unset,unset,false) ;InStr(lbl🖰hide,'``') & is∗)
case ⇧5 : char→sym(hk,'5',Ch['Percent' ],unset,unset,false) ;InStr(lbl🖰hide,'5') & is∗)
case ⇧4 : char→sym(hk,'4',Ch['Currency' ],unset,unset,false) ;InStr(lbl🖰hide,'4') & is∗)
}
}
}
global keyOnHold := ''
char→sym(hk,c,key_list,lblMap:=unset,lblKey:=unset,🖰hide:=0,blind_:=true) { ;
global keyOnHold ; store info on which key is being held to avoid repeating it
static k := keyConstant._map, lbl := keyConstant._labels ; various key name constants, gets vk code to avoid issues with another layout
, get⎀ := win.get⎀.Bind(win), get⎀GUI := win.get⎀GUI.Bind(win), get⎀Acc := win.get⎀Acc.Bind(win)
, s := helperString
; if 🖰hide { ; hide a pointer if the same key is registered twice since only this function will be called
; hk🖰PointerHide('') ; use hk function instead of 🖰PointerHide due to a bug in '🖰hide on 🖮'?
; }
static lbl_translit := Map()
if lbl_translit.Count = 0 { ; can set case only on empty maps
lbl_translit.CaseSense := 0
}
vkC := s.key→ahk(c) ; vkC := Format("vk{:X}",GetKeyVK(c)) bugs with locale
; dbgTT(0,' hk=`t' hk '`nhkThis=`t' A_ThisHotkey '`nhkPrior=`t' A_PriorHotkey '`n kPrior=`t' A_PriorKey,t:=1)
if keyOnHold == hk { ; previous key was the same, so we're KeyWaiting, don't repeat
return
}
; SendEvent((blind_ ? '{blind}' : '') '{' . vkC . ' down}{' . vkC . ' up}') ; (~ does this) type the char right away to avoid delays (to be deleted later on match), use {blind} to retain ⇧◆⎇⎈ positions)
keyOnHold := hk
lyt_from := 'en'
if (KeyWait(vkC,TimerHold) = 0) {
if keyOnHold == hk { ; (likely) no other key was pressed while this key was on hold
if get⎀(&⎀←,&⎀↑) { ; editable text (no point in showing a picker if the picked char can't be inserted
if IsSet(lblMap) ; Ch
and IsSet(lblKey) ; 'ArrowsLab'
and %lblMap%.Has(lblKey) { ; 1a arguments are set and map has labels
local curlayout := lyt.GetCurLayout(&lytPhys, &idLang)
sLng := lyt.getLocaleInfo('en',idLang) ; en/ru/... format
if lbl.Has(sLng)
and not sLng = 'en' { ; 2a keyboard non-en labels (qwerty...) exist for the target layout
c_lbl_pos := InStr(lbl[lyt_from],c) ; c=w, pos=2
c_to := c_lbl_pos ? SubStr(lbl[sLng],c_lbl_pos,1) : c
dbgTT(2,'c=' c ' c_to =‘' c_to '’ c_lbl_pos' c_lbl_pos, t:=2) ;
if %lblMap%.Has(lblKey sLng) { ; 3a map has labels for the target layout, use them
PressH_ChPick(key_list,%lblMap%[lblKey sLng],c_to,'',[⎀←,⎀↑]) ; Ch['ArrowsLab' 'Ru'] := [ф,ц,в
} else { ; 3b no user labels, transliterate english ones and store in a static map for later retrieval
if lbl_translit.Has(sLng) { ; 4a map contains cache of transliterated labels, use them
PressH_ChPick(key_list,lbl_translit[sLng] ,c_to,'',[⎀←,⎀↑])
} else { ; 4b
arrout := s.convert_lyt_arr(%lblMap%[lblKey],sLng,&ℯ:="") ;
lbl_translit[sLng] := arrout
PressH_ChPick(key_list,arrout ,c_to,'',[⎀←,⎀↑])
}
}
} else { ; 2b return the original (en) labels
PressH_ChPick(key_list,%lblMap%[lblKey ],c,'',[⎀←,⎀↑]) ; Ch['ArrowsLab'] := [a,w,d
}
} else { ; 1b arguments not set or no labels in the map, return the original
PressH_ChPick(key_list,unset ,c)
}
} else { ;no ⎀
}
} else { ; keyOnHold ≠ hk
}
} else { ; else SendEvent('{' . vkC . ' up}')
}
keyOnHold := ''
}
#MaxThreadsPerHotkey 1
#InputLevel 0