Author: iratqq
Date: Sat Nov 8 22:35:44 2008
New Revision: 5619
Modified:
trunk/scm/social-ime.scm
Log:
* scm/social-ime.scm (social-ime-lib-get-unconv-candidate):
Return value is string (work around).
Social IME API does not return segment information.
Modified: trunk/scm/social-ime.scm
==============================================================================
--- trunk/scm/social-ime.scm (original)
+++ trunk/scm/social-ime.scm Sat Nov 8 22:35:44 2008
@@ -103,7 +103,10 @@
(define (social-ime-lib-release-context sc)
#t)
(define (social-ime-lib-get-unconv-candidate sc seg-idx)
- #t)
+ (let* ((sc-ctx (social-ime-context-sc-ctx sc))
+ (cand (social-ime-internal-context-candidates sc-ctx)))
+ ;; XXX
+ (car (take-right (list-ref cand seg-idx) 1))))
(define (social-ime-lib-get-nr-segments sc)
(let* ((sc-ctx (social-ime-context-sc-ctx sc))
(cand (social-ime-internal-context-candidates sc-ctx)))
