chiark
/
gitweb
/
~ian
/
ian-dotfiles.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
merge vtwmrc, turn it into a template
[ian-dotfiles.git]
/
dot
/
configs
/
xmodmap-kb=archim
1
#!/usr/bin/perl
2
3
open(I,"xmodmap -pk |") || die "popen xmodmap -pk: $!\n";
4
5
while(<I>) {
6
m/^\s+(\d+)\s+\w+\s+\((\w+)\)\s+\w+\s+\((\w+)\)\s+\w+\s+\(/
7
|| next;
8
if ($3 eq 'NoSymbol') {
9
print "keycode $1 = $2\n";
10
} else {
11
print "keycode $1 = $2 $3\n";
12
}
13
}
14
15
print <<'END'
16
keycode 38 = Delete
17
keycode 37 = Delete
18
keycode 64 = Up
19
keycode 80 = Left
20
keycode 82 = Right
21
keycode 99 = Down
22
keycode 40 = F27
23
keycode 41 = F29
24
keycode 61 = F33
25
keycode 62 = F35
26
keycode 63 = F27
27
keycode 65 = F29
28
keycode 81 = F31
29
keycode 98 = F33
30
keycode 100 = F35
31
END
32
;