Revision: 6559 Author: ek.kato Date: Thu Jul 22 17:54:50 2010 Log: * scm/im-custom.scm : Just reorder group definitions.
http://code.google.com/p/uim/source/detail?r=6559 Modified: /trunk/scm/im-custom.scm ======================================= --- /trunk/scm/im-custom.scm Tue Jul 20 06:12:39 2010 +++ /trunk/scm/im-custom.scm Thu Jul 22 17:54:50 2010 @@ -53,6 +53,22 @@ (N_ "Help") (N_ "long description will be here.")) +(define-custom-group 'annotation + (N_ "Annotation") + (N_ "long description will be here.")) + +(define-custom-group 'xim + (N_ "XIM") + (N_ "long description will be here.")) + +(define-custom-group 'notify + (N_ "Notify") + (N_ "long description will be here.")) + +(define-custom-group 'http + (N_ "Http") + (N_ "long description will be here.")) + ;; subgroup (define-custom-group 'advanced (N_ "Advanced settings") @@ -73,11 +89,6 @@ (N_ "Candidate window") (N_ "long description will be here.")) -;; subgroup -(define-custom-group 'annotation - (N_ "Annotation") - (N_ "long description will be here.")) - ;; subgroup (define-custom-group 'dictionary (N_ "Dictionary") @@ -113,6 +124,11 @@ (N_ "Visual preference") (N_ "long description will be here.")) +;; subgroup +(define-custom-group 'preedit + (N_ "Preedit settings of XIM") + (N_ "long description will be here.")) + ;; ;; default-im-name ;; @@ -543,6 +559,10 @@ (eq? bridge-show-with? 'time)))) +;; +;; Annotation +;; + (define-custom 'enable-annotation? #t '(annotation candwin) '(boolean) @@ -746,14 +766,9 @@ (eq? annotation-filter-server-setting? 'pipe)))) +;; ;; uim-xim specific custom -(define-custom-group 'xim - (N_ "XIM") - (N_ "long description will be here.")) - -(define-custom-group 'preedit - (N_ "Preedit settings of XIM") - (N_ "long description will be here.")) +;; (define-custom 'uim-xim-use-xft-font? #f '(xim preedit) @@ -771,11 +786,9 @@ 'custom-activity-hooks (lambda () uim-xim-use-xft-font?)) - - -(define-custom-group 'notify - (N_ "Notify") - (N_ "long description will be here.")) +;; +;; Notify +;; (define-custom 'notify-agent 'stderr '(notify) @@ -784,9 +797,9 @@ (N_ "Notify agent name") (N_ "long description will be here.")) -(define-custom-group 'http - (N_ "Http") - (N_ "long description will be here.")) +;; +;; Http +;; (define-custom 'http-proxy-setting 'direct '(http) @@ -836,5 +849,6 @@ (load "predict-custom.scm") + (if custom-full-featured? (for-each require-module installed-im-module-list))
