suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

improved greek letter setup by making shift key explicit in the key bindings

Browse Source 
svn: r6998

original commit: 67fad90119961c1554f62f47b554e117f0ee1f54
This commit is contained in:
Robby Findler 2007-08-02 06:10:47 +00:00
parent 2b088ff114
commit a7d7cb5247
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/framework/private/keymap.ss
View File

@ -1004,21 +1004,25 @@
; Map keys to functions ; Map keys to functions
(let ([setup-mappings (let ([setup-mappings
(λ (greek-chars start-char) (λ (greek-chars shift?)
(let loop ([i 0]) (let loop ([i 0])
(when (< i (string-length greek-chars)) (when (< i (string-length greek-chars))
(let ([greek-char (string-ref greek-chars i)]) (let ([greek-char (string-ref greek-chars i)])
(unless (equal? greek-char #\space) (unless (equal? greek-char #\space)
(let ([roman-char (let ([roman-char
(integer->char (integer->char
(+ (char->integer start-char) i))]) (+ (char->integer #\a) i))])
(map (format "a:g;~a" roman-char) (map (format "a:g;~a~a"
(if shift? "s:" "")
roman-char)
(format "insert ~a" greek-char)) (format "insert ~a" greek-char))
(map (format "c:x;c:g;~a" roman-char) (map (format "c:x;c:g;~a~a"
(if shift? "s:" "")
roman-char)
(format "insert ~a" greek-char))))) (format "insert ~a" greek-char)))))
(loop (+ i 1)))))]) (loop (+ i 1)))))])
(setup-mappings greek-letters #\a) (setup-mappings greek-letters #f)
(setup-mappings Greek-letters #\A)) (setup-mappings Greek-letters #t))
(map-meta "c:down" "down-into-embedded-editor") (map-meta "c:down" "down-into-embedded-editor")
(map "a:c:down" "down-into-embedded-editor") (map "a:c:down" "down-into-embedded-editor")