| … | |
… | |
| 244 | } |
244 | } |
| 245 | |
245 | |
| 246 | sub find_default($) { |
246 | sub find_default($) { |
| 247 | my ($ev) = @_; |
247 | my ($ev) = @_; |
| 248 | |
248 | |
| 249 | if (my $cmd = $DEFAULT_KEYMAP->{U}{$ev->{unicode}}) { |
|
|
| 250 | return $cmd; |
|
|
| 251 | } |
|
|
| 252 | |
|
|
| 253 | for my $m (reverse grep $_, @{ $DEFAULT_KEYMAP->{K} }) { |
249 | for my $m (reverse grep $_, @{ $DEFAULT_KEYMAP->{K} }) { |
| 254 | for (keys %$m) { |
250 | for (keys %$m) { |
| 255 | if ($_ == ($ev->{mod} & $_)) { |
251 | if ($_ == ($ev->{mod} & $_)) { |
| 256 | if (defined (my $cmd = $m->{$_}{$ev->{sym}})) { |
252 | if (defined (my $cmd = $m->{$_}{$ev->{sym}})) { |
| 257 | return $cmd; |
253 | return $cmd; |
| 258 | } |
254 | } |
| 259 | } |
255 | } |
| 260 | } |
256 | } |
|
|
257 | } |
|
|
258 | |
|
|
259 | if (my $cmd = $DEFAULT_KEYMAP->{U}{$ev->{unicode}}) { |
|
|
260 | return $cmd; |
| 261 | } |
261 | } |
| 262 | |
262 | |
| 263 | () |
263 | () |
| 264 | } |
264 | } |
| 265 | |
265 | |
