source: project/release/4/kitaaba/trunk/defkeys.scm @ 25842

Last change on this file since 25842 was 25842, checked in by felix winkelmann, 9 years ago

added kitaaba (work in progress, far from finished)

  • Property svn:executable set to *
File size: 2.0 KB
Line 
1;;;; defkeys.scm - default key-mapping
2
3
4
5#|
6(map-key '(SHIFT #\j) #x2218)           ; small circle (ring operator)
7(map-key '(SHIFT #\c) #x2229)           ; intersection
8(map-key '(SHIFT #\2) #xa8)             ; diaeresis
9(map-key '(SHIFT #\3) #xaf)             ; high minus
10(map-key '(SHIFT #\4) #x2264)           ; less-than-or-equal
11(map-key '(SHIFT #\6) #x2265)           ; greater-than-or-equal
12;(map-key '(SHIFT #\???) #x2260)                ; not equal
13;(map-key '(SHIFT #\???) #x2228)                ; or
14(map-key '(SHIFT #\^) #x2227)           ; and
15(map-key '(SHIFT #\xfc) #xf7)           ; (Ue) division
16;(map-key '(SHIFT #\xe4) #xXX)          ; (Ae) multiplication
17;(map-key '(SHIFT #\w) #xXX)            ; omega
18;(map-key '(SHIFT #\e) #xXX)            ; epsilon
19;(map-key '(SHIFT #\r) #xXX)            ; rho
20;(map-key '(SHIFT #\z) #xXX)            ; arrow up
21;(map-key '(SHIFT #\u) #xXX)            ; arrow down
22;(map-key '(SHIFT #\i) #xXX)            ; index
23;(map-key '(SHIFT #\o) #xXX)            ; circle
24(map-key '(SHIFT #\x114) #x2190)        ; arrow left
25;(map-key '(SHIFT #\x113) #xXX)         ; arrow right
26;(map-key '(SHIFT #\a) #xXX)            ; alpha
27;(map-key '(SHIFT #\s) #xXX)            ; max
28;(map-key '(SHIFT #\d) #xXX)            ; min
29(map-key '(SHIFT #\f) #x22c4)           ; diamond
30(map-key '(SHIFT #\g) #x2207)           ; del
31;(map-key '(SHIFT #\h) #xXX)            ; delta
32(map-key '(SHIFT #\l) #x2395)           ; quad
33;(map-key '(SHIFT #\y) #xXX)            ; shoe left
34;(map-key '(SHIFT #\x) #xXX)            ; shoe right
35;(map-key '(SHIFT #\v) #xXX)            ; union
36;(map-key '(SHIFT #\b) #xXX)            ; stile up
37;(map-key '(SHIFT #\n) #xXX)            ; stile down
38|#
39(map-key 8 (lambda _ (backspace)))      ; backspace
40(map-key 13 (lambda _ (insert-char 10) (process-line))) ; return
41(map-key 27 (lambda _ (exit)))                          ; esc
42(map-key 276 (lambda _ (move-cursor -1)))               ; left
43(map-key 275 (lambda _ (move-cursor 1)))                ; right
44(map-key 280 (lambda _ (scroll-up)))                    ; page-up
45(map-key 281 (lambda _ (scroll-down)))                  ; page-down
46(map-key '(CTRL #\a) (lambda _ (set! cursor-column left-margin)))
47(map-key '(CTRL #\e) (lambda _ (set! cursor-column (u16vector-length (line-text cursor-line)))))
48
49#;(overstrike
50 '((#x235d #x2218 #x2229)               ; up shoe jot (comment)
51   ))
52
53;;XXX...
Note: See TracBrowser for help on using the repository browser.