Hiroyuki Komatsu
komat****@users*****
2005年 1月 29日 (土) 04:04:13 JST
Index: prime/uim/prime.scm
diff -u prime/uim/prime.scm:1.1.2.17 prime/uim/prime.scm:1.1.2.18
--- prime/uim/prime.scm:1.1.2.17 Tue Jan 18 02:04:52 2005
+++ prime/uim/prime.scm Sat Jan 29 04:04:12 2005
@@ -95,6 +95,7 @@
(define-key prime-typing-mode-hankana-key? "F8")
(define-key prime-typing-mode-wideascii-key? "F9")
(define-key prime-typing-mode-ascii-key? "F10")
+(define-key prime-language-toggle-key? "F11")
(define-key prime-expand-segment-key? '("<Control>o" "<Shift>right"))
(define-key prime-shrink-segment-key? '("<Control>i" "<Shift>left"))
@@ -210,6 +211,7 @@
(prime-typing-mode-hankana-key? . prime-command-mode-hankana)
(prime-typing-mode-wideascii-key? . prime-command-mode-wideascii)
(prime-typing-mode-ascii-key? . prime-command-mode-ascii)
+ (prime-language-toggle-key? . prime-command-language-toggle)
(prime-space-key? . prime-command-fund-space)
(prime-altspace-key? . prime-command-fund-altspace)
@@ -685,6 +687,16 @@
(lambda (prime-session)
(prime-engine-send-command (list "session_end" prime-session))))
+(define prime-engine-session-language-set
+ (lambda (prime-session language)
+ (prime-engine-send-command
+ (list "session_language_set" prime-session language))))
+(define prime-engine-session-language-get
+ (lambda (prime-session)
+ (car (prime-engine-send-command
+ (list "session_language_get" prime-session)))))
+
+
;; composing operations
(define prime-engine-edit-insert
(lambda (prime-session string)
@@ -835,6 +847,15 @@
(lambda (context key key-state)
(prime-mode-set-mode context "raw")))
+(define prime-command-language-toggle
+ (lambda (context key key-state)
+ (let* ((current-language (prime-engine-session-language-get
+ (prime-context-session context)))
+ (next-language (if (string=? current-language "English")
+ "Japanese" "English")))
+ (prime-engine-session-language-set (prime-context-session context)
+ next-language))))
+
(define prime-command-japanese-mode
(lambda (context key key-state)
(prime-mode-set context prime-mode-hiragana)))