Re: Some stuff to discuss about

[Matthew Love <matth love gmail com>]

Hi, glad it is working, here is a better version that works with tabbed
frames now too.  The only problem is that it wont last through a session...

;-*-sawfish-*-

(require 'sawfish.wm.frames)
(require 'sawfish.wm.custom)

(defun update-font-color ()
  (if use-custom-font-color
      (mapc (lambda (fc)
	      (set-frame-part-value fc 'foreground (list frame-font-inactive-color frame-font-focus-color) 't)) (list 'title 'tab))
    (mapc (lambda (fc)
	    (rplacd (assoc 'foreground (assoc fc override-frame-part-classes) nil))
	    (rplaca (assoc 'foreground (assoc fc override-frame-part-classes) nil))) (list 'title 'tab)))
  (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