57 lines
1.2 KiB
Racket
57 lines
1.2 KiB
Racket
#lang scheme/base
|
|
|
|
(provide map-key-code)
|
|
|
|
(define (map-key-code v)
|
|
(hash-ref
|
|
#hash((122 . f1)
|
|
(120 . f2)
|
|
(99 . f3)
|
|
(118 . f4)
|
|
(96 . f5)
|
|
(97 . f6)
|
|
(98 . f7)
|
|
(100 . f8)
|
|
(101 . f9)
|
|
(109 . f10)
|
|
(103 . f11)
|
|
(111 . f12)
|
|
(105 . f13)
|
|
(107 . f14)
|
|
(113 . f15)
|
|
(#x35 . escape)
|
|
(#x7e . up)
|
|
(#x7d . down)
|
|
(#x3d . down)
|
|
(#x7b . left)
|
|
(#x3b . left)
|
|
(#x7c . right)
|
|
(#x3c . right)
|
|
(#x24 . #\return)
|
|
(#x30 . #\tab)
|
|
(#x33 . #\backspace)
|
|
(#x75 . #\rubout)
|
|
(#x73 . home)
|
|
(#x77 . end)
|
|
(#x74 . prior)
|
|
(#x79 . next)
|
|
(#x45 . add)
|
|
(78 . subtract)
|
|
(#x43 . multiply)
|
|
(#x4b . divide)
|
|
(71 . separator)
|
|
(65 . decimal)
|
|
(76 . #\u3) ; numpad enter
|
|
(82 . numpad0)
|
|
(83 . numpad1)
|
|
(84 . numpad2)
|
|
(85 . numpad3)
|
|
(86 . numpad4)
|
|
(87 . numpad5)
|
|
(88 . numpad6)
|
|
(89 . numpad7)
|
|
(91 . numpad8)
|
|
(92 . numpad9))
|
|
v
|
|
#f))
|