From 67fad90119961c1554f62f47b554e117f0ee1f54 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 2 Aug 2007 06:10:47 +0000 Subject: [PATCH] improved greek letter setup by making shift key explicit in the key bindings svn: r6998 --- collects/framework/private/keymap.ss | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss index ed7bb07d88..524528c2d9 100644 --- a/collects/framework/private/keymap.ss +++ b/collects/framework/private/keymap.ss @@ -1004,21 +1004,25 @@ ; Map keys to functions (let ([setup-mappings - (λ (greek-chars start-char) + (λ (greek-chars shift?) (let loop ([i 0]) (when (< i (string-length greek-chars)) (let ([greek-char (string-ref greek-chars i)]) (unless (equal? greek-char #\space) (let ([roman-char (integer->char - (+ (char->integer start-char) i))]) - (map (format "a:g;~a" roman-char) + (+ (char->integer #\a) i))]) + (map (format "a:g;~a~a" + (if shift? "s:" "") + roman-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))))) (loop (+ i 1)))))]) - (setup-mappings greek-letters #\a) - (setup-mappings Greek-letters #\A)) + (setup-mappings greek-letters #f) + (setup-mappings Greek-letters #t)) (map-meta "c:down" "down-into-embedded-editor") (map "a:c:down" "down-into-embedded-editor")