rendered paste body(load "/home/rakeyry/.emacs.d/tabbar.el")
(tabbar-mode +1)
(global-font-lock-mode 1)
(defun egoge-wash-out-colour (colour &optional degree)
"Return a colour string specifying a washed-out version of COLOUR."
(let ((basec (color-values
(face-attribute 'default :foreground)))
(col (color-values colour))
(list nil))
(unless degree (setq degree 2))
(while col
(push (/ (/ (+ (pop col)
(* degree (pop basec)))
(1+ degree))
256)
list))
(apply 'format "#%02x%02x%02x" (nreverse list))))
(defun egoge-wash-out-face (face &optional degree)
"Make the foreground colour of FACE appear a bit more pale."
(let ((colour (face-attribute face :foreground)))
(unless (eq colour 'unspecified)
(set-face-attribute face nil
:foreground (egoge-wash-out-colour colour degree)))))
(defun egoge-find-faces (regexp)
"Return a list of all faces whose names match REGEXP."
(delq nil
(mapcar (lambda (face)
(and (string-match regexp
(symbol-name face))
face))
(face-list))))
(defun egoge-wash-out-fontlock-faces (&optional degree)
(mapc (lambda (elt)
(egoge-wash-out-face elt degree))
(delq 'font-lock-warning-face
(egoge-find-faces "^font-lock"))))
(when (> (length (defined-colors)) 16)
(egoge-wash-out-fontlock-faces 2))
(defun color-theme-face-attr-construct (face frame)
(if (atom face)
(custom-face-attributes-get face frame)
(if (and (consp face) (eq (car face) 'quote))
(custom-face-attributes-get (cadr face) frame)
(custom-face-attributes-get (car face) frame))))
(require 'color-theme)
(setq my-color-themes (list 'color-theme-billw 'color-theme-jsc-dark
'color-theme-sitaramv-solaris 'color-theme-resolve
'color-theme-classic 'color-theme-jonadabian-slate
'color-theme-kingsajz 'color-theme-shaman
'color-theme-subtle-blue 'color-theme-snowish
'color-theme-sitaramv-nt 'color-theme-wheat))