(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))