Changeset 3236
- Timestamp:
- 06/01/08 09:20:56 (7 months ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/projects/symbolics-keyboard/make-keymap.lisp
r3235 r3236 104 104 105 105 (defparameter *symbolics-map* 106 '(("Local" #x01 )107 ("Caps" #x02 )108 ("HyperL" #x03 )109 ("MetaL" #x04 )110 ("ControlR" #x05 )111 ("SuperR" #x06 )112 ("Scroll" #x07 )113 ("ModeLock" #x08 )114 ("Select" #x0c )115 ("SymbolL" #x0d )116 ("SuperL" #x0e )117 ("ControlL" #x0f )118 ("Space" #x10 )119 ("MetaR" #x11 )120 ("HyperR" #x12 )121 ("End" #x13 )122 ("Z" #x17 )123 ("C" #x18 )124 ("B" #x19 )125 ("M" #x1a )126 ("." #x1b )127 ("ShiftR" #x1c )128 ("Repeat" #x1d )129 ("Abort" #x1e )130 ("ShiftL" #x22 )131 ("X" #x23 )132 ("V" #x24 )133 ("N" #x25 )134 ("," #x26 )135 ("/" #x27 )136 ("SymbolR" #x28 )137 ("Help" #x29 )138 ("RubOut" #x2d )139 ("S" #x2e )140 ("F" #x2f )141 ("H" #x30 )142 ("K" #x31 )143 (";" #x32 )144 ("Return" #x33 )145 ("Complete" #x34 )146 ("Network" #x38 )147 ("A" #x39 )148 ("D" #x3a )149 ("G" #x3b )150 ("J" #x3c )151 ("L" #x3d )152 (" \"" #x3e)106 '(("Local" #x01 0 3 2) 107 ("Caps" #x02 0 1) 108 ("HyperL" #x03 0 0) 109 ("MetaL" #x04 2 0) 110 ("ControlR" #x05 5 0 2) 111 ("SuperR" #x06 7 0) 112 ("Scroll" #x07 9 0 1.5) 113 ("ModeLock" #x08 16 1 1.5) 114 ("Select" #x0c 0 2 2) 115 ("SymbolL" #x0d 1 1 1.5) 116 ("SuperL" #x0e 1 0) 117 ("ControlL" #x0f 3 0 2) 118 ("Space" #x10 4 0 9) 119 ("MetaR" #x11 6 0) 120 ("HyperR" #x12 7 0) 121 ("End" #x13 15 2 0) 122 ("Z" #x17 3 1) 123 ("C" #x18 5 1) 124 ("B" #x19 7 1) 125 ("M" #x1a 9 1) 126 ("." #x1b 11 1) 127 ("ShiftR" #x1c 13 1 2) 128 ("Repeat" #x1d 15 1 1.5) 129 ("Abort" #x1e 9 5) 130 ("ShiftL" #x22 2 1 2) 131 ("X" #x23 4 1) 132 ("V" #x24 6 1) 133 ("N" #x25 8 1) 134 ("," #x26 10 1) 135 ("/" #x27 12 1) 136 ("SymbolR" #x28 14 1 1.5) 137 ("Help" #x29 17 4 2) 138 ("RubOut" #x2d 1 2 1.75) 139 ("S" #x2e 3 2) 140 ("F" #x2f 5 2) 141 ("H" #x30 7 2) 142 ("K" #x31 9 2) 143 (";" #x32 11 2) 144 ("Return" #x33 13 2) 145 ("Complete" #x34 16 3 2) 146 ("Network" #x38 0 4 2) 147 ("A" #x39 2 2) 148 ("D" #x3a 4 2) 149 ("G" #x3b 6 2) 150 ("J" #x3c 8 2) 151 ("L" #x3d 10 2) 152 ("'" #x3e) 153 153 ("Line" #x3f) 154 154 ("Function" #x43) … … 227 227 ("SymbolL" "KP8") 228 228 ("|" "KP-") 229 ("\"" "KP+")230 229 (":" "KP*"))) 231 230 … … 288 287 (unmapped-ps2-keys *ps2-map*)) 289 288 (dolist (symbolics-key-entry *symbolics-map*) 290 (destructuring-bind (symbolics-keyname symbolics-scancode) symbolics-key-entry 289 (destructuring-bind (symbolics-keyname symbolics-scancode &rest geometry-info) symbolics-key-entry 290 (declare (ignore geometry-info)) 291 291 (cond 292 292 ((member symbolics-keyname '("Local" "ModeLock") :test #'equal)
