yusuk****@cheru*****
yusuk****@cheru*****
2003年 6月 20日 (金) 00:12:55 JST
田畑です。
たまにはuimのpatchをこのMLに説明付きで送ってみます。
SKKの候補一覧に送り仮名が出てこないのが直ります。
skk.scm中の候補取得要求のhandler内で送り仮名があれば、
それと候補をstring-appendして返しています。
変数okuriは(("あ" . "ア") ("い" . "イ") ...)のように平仮名と片仮名を
一つづつ組にしたもののリストなので、skk-make-stringで平仮名の方の
文字列を作っています。
--- /home/yusuke/work/uim/uim-1815/scm/skk.scm 2003-06-16 01:14:21.000000000 +0900
+++ uim-1815/scm/skk.scm 2003-06-19 23:46:15.000000000 +0900
@@ -707,8 +707,14 @@
(define skk-get-candidate-handler
(lambda (id idx)
(let* ((c (find-context id))
- (sc (context-data c)))
- (skk-get-nth-candidate sc idx))))
+ (sc (context-data c))
+ (cand (skk-get-nth-candidate sc idx))
+ (okuri (skk-context-okuri sc)))
+ (if okuri
+ (string-append cand
+ (skk-make-string okuri t))
+ cand))))
+
(define skk-set-candidate-index-handler
(lambda (id idx)
--
CHAOS AND CHANCE!
Yusuke TABATA (yusuk****@cheru*****)