Matthew Love <[email protected]> writes:
I guess this one is a bit better at restoring original colors...
;-*-sawfish-*-
(require 'sawfish.wm.frames)
(require 'sawfish.wm.custom)
(defun update-font-color ()
(if use-custom-font-color
(set-frame-part-value 'title 'foreground (list
frame-font-inactive-color frame-font-focus-color) 't)
(progn
(rplacd (assoc 'foreground (assoc 'title override-frame-part-classes)
nil))
(rplaca (assoc 'foreground (assoc 'title override-frame-part-classes)
nil))))
(mapc (lambda (x) (rebuild-frame x)) (managed-windows)))
(defcustom frame-font-focus-color "white"
"Font color for active frames"
:type color
:group appearance
:depends use-custom-font-color
:after-set (lambda () (update-font-color)))
(defcustom frame-font-inactive-color "black"
"Font color for inactive frames"
:type color
:group appearance
:depends use-custom-font-color
:after-set (lambda () (update-font-color)))
(defcustom use-custom-font-color '()
"Use custom font colors for frames"
:type boolean
:group appearance
:after-set (lambda () (update-font-color)))
--
Matthew Love
