[uim-commit] r2706 - trunk/scm

[ekato at freedesktop.org]

Author: ekato
Date: 2005-12-28 23:37:05 -0800 (Wed, 28 Dec 2005)
New Revision: 2706

Modified:
   trunk/scm/im-custom.scm
   trunk/scm/util.scm
Log:
* util.scm : Don't define uim-color here.  It will be setup with
  uim-custom.  Change reversed-preedit-background for
  uim-color-atok.
* im-cutustom.scm : Add hook for uim-color.


Modified: trunk/scm/im-custom.scm
===================================================================
--- trunk/scm/im-custom.scm	2005-12-27 08:58:28 UTC (rev 2705)
+++ trunk/scm/im-custom.scm	2005-12-29 07:37:05 UTC (rev 2706)
@@ -325,6 +325,11 @@
   (_ "Preedit color")
   (_ "long description will be here."))
 
+(custom-add-hook 'uim-color
+		 'custom-set-hooks
+		 (lambda ()
+		   (update-style uim-color-spec (symbol-value uim-color))))
+
 ;; referred by some bridges
 (define-custom 'candidate-window-position 'caret
   '(global visual-preference)

Modified: trunk/scm/util.scm
===================================================================
--- trunk/scm/util.scm	2005-12-27 08:58:28 UTC (rev 2705)
+++ trunk/scm/util.scm	2005-12-29 07:37:05 UTC (rev 2706)
@@ -713,7 +713,6 @@
 (define reversed-separator-foreground #f)
 (define reversed-separator-background #f)
 
-(define uim-color 'uim-color-uim)
 (define uim-color-spec
   '((reversed-preedit-foreground   . string?)
     (reversed-preedit-background   . string?)
@@ -732,7 +731,7 @@
     (reversed-separator-background . "black")))
 (define uim-color-atok
   '((reversed-preedit-foreground   . "black")
-    (reversed-preedit-background   . "blue")
+    (reversed-preedit-background   . "cyan")
     (separator-foreground          . "lightsteelblue")
     (separator-background          . "")
     (reversed-separator-foreground . "black")