Revision: 6920
Author: deton.kih
Date: Fri Jan 14 15:57:01 2011
Log: * scm/tutcode.scm
- (tutcode-proc-state-on): Add postfix bushu conversion.
- (tutcode-begin-postfix-bushu-conversion): New.
http://code.google.com/p/uim/source/detail?r=6920
Modified:
/trunk/scm/tutcode.scm
=======================================
--- /trunk/scm/tutcode.scm Fri Jan 14 15:53:11 2011
+++ /trunk/scm/tutcode.scm Fri Jan 14 15:57:01 2011
@@ -209,6 +209,7 @@
(require "tutcode-kigoudic.scm") ;µ¹æÆþÎϥ⡼¥ÉÍѤε¹æɽ
(require "tutcode-dialog.scm"); ¸ò¤¼½ñ¤ÊÑ´¹¼½ñ¤«¤é¤Îºï½ü³Îǧ¥À¥¤¥¢¥í¥°
(require "japanese.scm") ; for ja-wide or ja-make-kana-str{,-list}
+(require "ustr.scm")
;;; user configs
@@ -2169,9 +2170,23 @@
(tutcode-context-set-prediction-nr! pc 0)
(tutcode-context-set-state! pc
'tutcode-state-interactive-bushu))
+ ((eq? res 'tutcode-postfix-bushu-start)
+ (tutcode-begin-postfix-bushu-conversion pc))
((eq? res 'tutcode-auto-help-redisplay)
(tutcode-auto-help-redisplay pc))))))))))
+;;; ¸åÃÖ·¿Éô¼ó¹çÀ®ÊÑ´¹¤ò¹Ô¤¦
+(define (tutcode-begin-postfix-bushu-conversion pc)
+ (and-let*
+ ((ustr (im-acquire-text pc 'primary 'cursor 2 0))
+ (former (ustr-former-seq ustr))
+ (former-seq (and (pair? former) (string-to-list (car former))))
+ (res (and (>= (length former-seq) 2)
+ (tutcode-bushu-convert (cadr former-seq) (car
former-seq)))))
+ (im-delete-text pc 'primary 'cursor 2 0)
+ (tutcode-commit pc res)
+ (tutcode-check-auto-help-window-begin pc (list res) ())))
+
;;; ľÀÜÆþÎϾõÂ֤ΤȤ¤Î¥¡¼ÆþÎϤò½èÍý¤¹¤ë¡£
;;; @param c ¥³¥ó¥Æ¥¥¹¥È¥ê¥¹¥È
;;; @param key ÆþÎϤµ¤ì¤¿¥¡¼
