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     ;