Revision: 7039
Author: ek.kato
Date: Mon May 9 19:21:45 2011
Log: * scm/predict-custom.scm
- (predict-custom-google-suggest-language)
- (predict-custom-google-suggest-use-ssl)
- Add custom-activity-hooks.
http://code.google.com/p/uim/source/detail?r=7039
Modified:
/trunk/scm/predict-custom.scm
=======================================
--- /trunk/scm/predict-custom.scm Mon May 9 19:07:43 2011
+++ /trunk/scm/predict-custom.scm Mon May 9 19:21:45 2011
@@ -188,8 +188,24 @@
(N_ "Language")
(N_ "long description will be here."))
+(custom-add-hook 'predict-custom-google-suggest-language
+ 'custom-activity-hooks
+ (lambda ()
+ (and predict-custom-enable?
+ (find (lambda (item)
+ (eq? 'google-suggest item))
+ predict-custom-methods))))
+
(define-custom 'predict-custom-google-suggest-use-ssl #t
'(predict predict-google-suggest)
'(boolean)
(N_ "Enable SSL with Google Suggest")
(N_ "long description will be here."))
+
+(custom-add-hook 'predict-custom-google-suggest-use-ssl
+ 'custom-activity-hooks
+ (lambda ()
+ (and predict-custom-enable?
+ (find (lambda (item)
+ (eq? 'google-suggest item))
+ predict-custom-methods))))
