Re: Some stuff to discuss about

[Matthew Love <matth love gmail com>]

Matthew Love <matth love gmail com> 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