emacs-alect-themes/alect-themes.el

;;; alect-themes.el --- 4 configurable color themes for Emacs

;; Copyright (C) 2013-2014 Alex Kost

;; Author: Alex Kost <alezost@gmail.com>
;; Created: 10 Jul 2013
;; Version: 0.4
;; Package-Requires: ((emacs "24.0"))
;; URL: http://github.com/alezost/alect-themes
;; Keywords: color theme

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; This package provides 4 highly customizable color themes (2 light and
;; 2 dark) for GNU Emacs 24 or later.  These themes are intended to be
;; used with GUI, so only graphical terminals are supported by default.
;; However you can "enable" the themes for other terminals with
;; `alect-display-class' variable.

;; You can install the package from MELPA.  If you prefer the manual
;; installation, put these lines into your init-file:
;;   (add-to-list 'load-path "/path/to/alect-themes")
;;   (add-to-list 'custom-theme-load-path "/path/to/alect-themes")

;; If you also want to enable a theme on Emacs start, use this:
;;   (load-theme 'alect-light t)

;; Ways for configuring the themes:
;;
;; 1. Modifying color palette for the themes - by customizing
;;    `alect-colors' variable.  You may use `alect-generate-colors' to
;;    redefine the whole variable (see the code) or `alect-set-color' to
;;    modify specified colors.
;;
;; 2. Overriding face specification.  You can change the look of
;;    particular faces by setting `alect-overriding-faces' variable.
;;
;; 3. Above that, the inverted color themes (`alect-light-alt' and
;;    `alect-dark-alt') can be configured with
;;    `alect-inverted-color-regexp' variable.

;; For full description and some screenshots, see
;; <http://github.com/alezost/alect-themes>.
;; All screenshots can be found at <http://imgur.com/a/eBx96>.

;;; Code:

(require 'cl-macs)

(defun alect-put-colors (color-name theme-names color-vals var)
  "Put theme colors into the variable VAR.

THEME-NAMES is a list of symbols. Theme names should already
exist in the variable.

COLOR-VALS is a list of colors for the specified theme (theme
names and color values should be in matching order)."
  (when theme-names
    (let ((theme (assoc (car theme-names) var))
          (color-val (car color-vals)))
      (setcdr theme (cons (cons color-name color-val) (cdr theme))))
    (alect-put-colors color-name (cdr theme-names) (cdr color-vals) var)))

;;;###autoload
(defun alect-generate-colors (theme-names colors)
  "Return alist of themes suitable for the variable `alect-colors'.

THEME-NAMES is a list of symbols.

COLORS is a list of lists (COLOR-NAME COLOR-VAL...) where
COLOR-VAL is a color for specified theme (theme names and color
values should be in matching order)."
  (let (cols)
    (dolist (theme theme-names)
      (add-to-list 'cols (list theme)))
    (dolist (elem colors)
      (alect-put-colors (car elem) theme-names (cdr elem) cols))
    cols))

(defgroup alect nil
  "Options for alect color themes."
  :group 'faces)

(defface alect-prompt
  '((t nil))
  "Auxiliary face for inheriting by some other faces.
Used for various prompts like `minibuffer-prompt' or `eshell-prompt'."
  :group 'alect)

(defface alect-time
  '((t nil))
  "Auxiliary face for inheriting by some other faces.
Used for date/time faces like `org-date' or `erc-timestamp-face'."
  :group 'alect)

(defface alect-selected-item
  '((t nil))
  "Auxiliary face for inheriting by some other faces.
Used for selected items like `org-date-selected' or
`gnus-summary-selected'."
  :group 'alect)

(defface alect-title
  '((t nil))
  "Auxiliary face for inheriting by some other faces.
Used for titles without levels like `dired-header' or `magit-header'."
  :group 'alect)

(defmacro alect-define-color-level-face (n)
  "Define face for color level N.
Name of the defined face is `alect-color-level-N'."
  `(defface ,(intern (format "alect-color-level-%s" n))
     '((t nil))
     "Auxiliary face for inheriting by some other faces."
     :group 'alect))

(let (i)
  (cl-loop for i from 1 to 12
           do (eval `(alect-define-color-level-face ,i))))

(defmacro alect-define-title-face (n)
  "Define title face for level N.
Name of the defined face is `alect-title-N'."
  `(defface ,(intern (format "alect-title-%s" n))
     '((t nil))
     ,(format "Auxiliary face for inheriting by some other faces.
Used for titles with levels like `org-level-%s' or
`markdown-header-face-%s'." n n)
     :group 'alect))

(let (i)
  (cl-loop for i from 1 to 8
           do (eval `(alect-define-title-face ,i))))

(defcustom alect-header-height 1.13
  "Height of `header-line' face."
  :type 'number
  :group 'alect)

(defcustom alect-single-title-height 1.13
  "Height of `alect-title' face."
  :type 'number
  :group 'alect)

(defcustom alect-multiple-titles-height 1.13
  "Height of `alect-title-N' faces."
  :type 'number
  :group 'alect)

(defcustom alect-overriding-faces nil
  "List of faces that override original themed faces.

The faces should be in a form accepted by `custom-theme-set-faces'.
Instead of color values (like \"SkyBlue\" or \"#abcdef\") you may
use the names of colors from `alect-colors' (like `magenta' or
`blue+1').  During loading a theme these symbols will be
substituted with values according to the current theme (light or
dark).

Use this variable if you want alect-themes to use non-default
specifications of faces.

Example:
  (setq alect-overriding-faces
        '((mode-line-buffer-id ((t :foreground bg-2 :weight bold)))
          (mode-line           ((t :foreground bg-1 :background fg+1
                                   :box (:line-width 2 :color bg-2))))))
Evaluate it and reload an alect-theme to see the difference."
  :type 'sexp
  :group 'alect)

(defcustom alect-colors
  (alect-generate-colors
   '(light dark)
   '((cursor    "#1074cd" "#ffec8b")
     (gray-2    "#fafafa" "#e9e9e9")
     (gray-1    "#bdbdbd" "#c0c0c0")
     (gray      "#808080" "#aaaaaa")
     (gray+1    "#444444" "#555555")
     (gray+2    "#070707" "#000000")
     (fg-2      "#6c6c6c" "#8c826d")
     (fg-1      "#505050" "#d0bf8f")
     (fg        "#3f3f3f" "#f0dfaf")
     (fg+1      "#262626" "#d5d2be")
     (fg+2      "#101010" "#f6f0e1")
     (bg-2      "#f6f0e1" "#222222")
     (bg-1      "#ded6c5" "#3f3f3f")
     (bg        "#d9ceb2" "#4f4f4f")
     (bg+1      "#d7c89b" "#5f5f5f")
     (bg+2      "#ccc19b" "#6f6f6f")
     (red-2     "#fa5151" "#fa6a6e")
     (red-1     "#e43838" "#fa5151")
     (red       "#f71010" "#ea3838")
     (red+1     "#d81212" "#db4334")
     (red+2     "#b22222" "#c83029")
     (yellow-2  "#ab9c3a" "#f8ffa0")
     (yellow-1  "#9ca30b" "#e8e815")
     (yellow    "#ef8300" "#fe8b04")
     (yellow+1  "#958323" "#e5c900")
     (yellow+2  "#6a621b" "#abab3a")
     (green-2   "#3cb368" "#8ce096")
     (green-1   "#1c9e28" "#32cd32")
     (green     "#028902" "#7fb07f")
     (green+1   "#008b45" "#3cb370")
     (green+2   "#077707" "#099709")
     (cyan-2    "#0eaeae" "#8cf1f1")
     (cyan-1    "#259ea2" "#2fdbde")
     (cyan      "#358d8d" "#1fb3b3")
     (cyan+1    "#0d7b72" "#528d8d")
     (cyan+2    "#286060" "#0c8782")
     (blue-2    "#0092ff" "#b2c3f8")
     (blue-1    "#2c53ca" "#94bff3")
     (blue      "#0000ff" "#62b6ea")
     (blue+1    "#0505cc" "#00aff5")
     (blue+2    "#00008b" "#3390dc")
     (magenta-2 "#dc63dc" "#ebabde")
     (magenta-1 "#ba55d3" "#dc8cc3")
     (magenta   "#a020f0" "#e353b9")
     (magenta+1 "#9400d3" "#e81eda")
     (magenta+2 "#8b008b" "#be59d8")))
  "List of lists containing color palettes for alect-themes.

List ((theme (color . val) ...) ...).

Each list is a cons cell of a theme name (symbol) and alist of
color names (symbols) and values (strings)."
  :type '(alist :key-type symbol
                :value-type (alist :key-type symbol
                                   :value-type color))
  ;; another suitable variant
  ;; :type '(repeat (cons symbol
  ;;                      (alist :key-type symbol :value-type color)))
  :group 'alect)

(defun alect-set-color (theme-name color-name color-val)
  "Set color COLOR-NAME of a theme THEME-NAME to the value of COLOR-VAL.
COLOR-NAME and THEME-NAME are symbols, COLOR-VAL is a string.
See `alect-colors' for details."
  (let ((color-alist (cdr (assoc theme-name alect-colors))))
    (or color-alist
        (error "Theme '%s' does not exist" theme-name))
    (let ((color-cons (assoc color-name color-alist)))
      (or color-cons
          (error "Color '%s' does not exist" color-name))
      (setcdr color-cons color-val))))

(defcustom alect-inverted-color-regexp
  "^\\(red\\|yellow\\|green\\|cyan\\|blue\\|magenta\\)\\([-+]\\)\\([012]\\)$"
  "Regexp matching a name of the color for inverted theme.

The first parenthesized group should match a base color
name (e.g. \"fg\" or \"blue\").
The second group should match a sign (\"-\" or \"+\").
The third group should match a color number (0, 1 or 2).

For available color names, see `alect-colors'.
For description of inverting colors, see `alect-get-color'."
  :type 'regexp
  :group 'alect)

(defun alect-get-color (theme-name color-name &optional invert)
  "Return the value of color COLOR-NAME for a theme THEME-NAME.

If INVERT is non-nil, return the value of the \"opposite\" color.
E.g. use the value of \"magenta+1\" if COLOR-NAME is
\"magenta-1\" or use \"red-2\" instead of \"red+2\" and so on.
Invert only the color matching `alect-inverted-color-regexp'.

For the values of THEME-NAME and COLOR-NAME, see `alect-colors'."
  (and invert
       (let ((color (symbol-name color-name)))
         (and (string-match alect-inverted-color-regexp color)
              (let ((base (match-string 1 color))
                    (sign (match-string 2 color))
                    (num  (match-string 3 color)))
                (and base sign num
                     (setq color-name
                           (intern (concat base
                                           (if (equal sign "-")
                                               "+"
                                             "-")
                                           num))))))))
  (cdr (assoc color-name
              (cdr (assoc theme-name alect-colors)))))

(defcustom alect-display-class
  '((type graphic))
  "Class of terminals (DISPLAY) for which alect-themes are applied.
For other terminals, faces stay unthemed.
See Info node `(elisp) Defining Faces' for the possibilities for
DISPLAY."
  :type '(choice
          (const :tag "Graphical terminals" ((type graphic)))
          (const :tag "Terminals with at least 256 colors"
                 ((class color) (min-colors 256)))
          (const :tag "All terminals")
          (sexp :tag "Other"))
  :group 'alect)

(defun alect-get-customization (theme &optional invert)
  "Return cons of settings for theme THEME.
Car of the cons is a list for `custom-theme-set-faces' function.
Cdr of the cons is a list for `custom-theme-set-variables' function.
THEME is a name of the color theme (symbol from `alect-colors').
For INVERT, see `alect-get-color'."
  (cl-flet ((gc (col) (alect-get-color theme col invert)))
    (let ((c alect-display-class))
      (cons
       ;; FACES
       `( ;; basic colors
         (default             ((,c :foreground ,(gc 'fg+1)
                                   :background ,(gc 'bg-1))))
         (cursor              ((,c :background ,(gc 'cursor))))
         (button              ((,c :inherit link)))
         (link                ((,c :foreground ,(gc 'blue-1)
                                   :underline t :weight normal)))
         (link-visited        ((,c :foreground ,(gc 'blue+2)
                                   :underline t :weight normal)))
         (match               ((,c :background ,(gc 'green+1)
                                   :foreground ,(gc 'gray-2))))
         (escape-glyph        ((,c :foreground ,(gc 'yellow) :weight bold)))
         (fringe              ((,c :foreground ,(gc 'gray)
                                   :background ,(gc 'bg-2))))
         (header-line         ((,c :foreground ,(gc 'fg+2)
                                   :height ,alect-header-height
                                   :box (:line-width 1
                                         :color ,(gc 'fg+2)
                                         :style nil))))
         (highlight           ((,c :foreground ,(gc 'gray+2)
                                   :background ,(gc 'gray-2))))
         (shadow              ((,c :foreground ,(gc 'gray))))
         (success             ((,c :foreground ,(gc 'green) :weight bold)))
         (warning             ((,c :foreground ,(gc 'yellow-1) :weight normal)))
         (region              ((,c :background ,(gc 'bg+2))))
         (menu                ((,c :foreground ,(gc 'fg+1)
                                   :background ,(gc 'bg-1))))
         (minibuffer-prompt   ((,c :inherit alect-prompt)))
         (secondary-selection ((,c :background ,(gc 'bg+1))))
         (trailing-whitespace ((,c :background ,(gc 'red))))
         (vertical-border     ((,c :foreground ,(gc 'fg+1))))

         ;; auxiliary faces for inheriting
         (alect-prompt         ((,c :foreground ,(gc 'magenta-1) :weight bold)))
         (alect-time           ((,c :foreground ,(gc 'cyan-2))))
         (alect-selected-item  ((,c :background ,(gc 'bg)
                                    :box (:line-width 1
                                          :color ,(gc 'fg+1)
                                          :style nil))))
         (alect-color-level-1  ((,c :foreground ,(gc 'blue+1))))
         (alect-color-level-2  ((,c :foreground ,(gc 'green))))
         (alect-color-level-3  ((,c :foreground ,(gc 'red+1))))
         (alect-color-level-4  ((,c :foreground ,(gc 'yellow+2))))
         (alect-color-level-5  ((,c :foreground ,(gc 'cyan+1))))
         (alect-color-level-6  ((,c :foreground ,(gc 'blue-1))))
         (alect-color-level-7  ((,c :foreground ,(gc 'magenta-1))))
         (alect-color-level-8  ((,c :foreground ,(gc 'yellow))))
         (alect-color-level-9  ((,c :foreground ,(gc 'green-1))))
         (alect-color-level-10 ((,c :foreground ,(gc 'red-2))))
         (alect-color-level-11 ((,c :foreground ,(gc 'cyan-2))))
         (alect-color-level-12 ((,c :foreground ,(gc 'magenta+2))))

         (alect-title          ((,c :foreground ,(gc 'green+2) :weight bold
                                    :height ,alect-single-title-height)))
         (alect-title-1        ((,c :inherit alect-color-level-1 :weight bold
                                    :height ,alect-multiple-titles-height)))
         (alect-title-2        ((,c :inherit alect-color-level-2 :weight bold
                                    :height ,alect-multiple-titles-height)))
         (alect-title-3        ((,c :inherit alect-color-level-3 :weight bold
                                    :height ,alect-multiple-titles-height)))
         (alect-title-4        ((,c :inherit alect-color-level-4 :weight bold
                                    :height ,alect-multiple-titles-height)))
         (alect-title-5        ((,c :inherit alect-color-level-5 :weight bold
                                    :height ,alect-multiple-titles-height)))
         (alect-title-6        ((,c :inherit alect-color-level-6 :weight bold
                                    :height ,alect-multiple-titles-height)))
         (alect-title-7        ((,c :inherit alect-color-level-7 :weight bold
                                    :height ,alect-multiple-titles-height)))
         (alect-title-8        ((,c :inherit alect-color-level-8 :weight bold
                                    :height ,alect-multiple-titles-height)))

         ;; ace-jump
         (ace-jump-face-background ((,c :foreground ,(gc 'bg+2)
                                        :background ,(gc 'bg-1)
                                        :inverse-video nil)))
         (ace-jump-face-foreground ((,c :foreground ,(gc 'green+2)
                                        :background ,(gc 'bg-1)
                                        :inverse-video nil)))

         ;; ack
         (ack-separator  ((,c :foreground ,(gc 'fg+1))))
         (ack-file       ((,c :foreground ,(gc 'blue))))
         (ack-line       ((,c :foreground ,(gc 'yellow))))
         (ack-match      ((,c :foreground ,(gc 'fg-2)
                              :background ,(gc 'bg-2) :weight bold)))

         ;; android mode
         (android-mode-debug-face    ((,c :foreground ,(gc 'green+1))))
         (android-mode-error-face    ((,c :foreground ,(gc 'fg-2) :weight bold)))
         (android-mode-info-face     ((,c :foreground ,(gc 'fg+1))))
         (android-mode-verbose-face  ((,c :foreground ,(gc 'green))))
         (android-mode-warning-face  ((,c :foreground ,(gc 'yellow))))

         ;; auctex
         (font-latex-bold     ((,c :inherit bold)))
         (font-latex-warning  ((,c :inherit font-lock-warning-face)))
         (font-latex-sedate   ((,c :foreground ,(gc 'yellow) :weight bold )))
         (font-latex-title-4  ((,c :inherit variable-pitch :weight bold)))

         ;; auto-complete
         (ac-candidate-face       ((,c :foreground ,(gc 'gray+2)
                                       :background ,(gc 'bg+2))))
         (ac-selection-face       ((,c :foreground ,(gc 'bg-1)
                                       :background ,(gc 'fg+1))))
         (ac-completion-face      ((,c :foreground ,(gc 'fg-2))))
         (ac-candidate-mouse-face ((,c :inherit highlight)))

         ;; bm
         (bm-face                   ((,c :background ,(gc 'yellow-1)
                                         :foreground ,(gc 'bg-1))))
         (bm-fringe-face            ((,c :background ,(gc 'yellow-1)
                                         :foreground ,(gc 'bg-1))))
         (bm-fringe-persistent-face ((,c :background ,(gc 'green-1)
                                         :foreground ,(gc 'bg-1))))
         (bm-persistent-face        ((,c :background ,(gc 'green-1)
                                         :foreground ,(gc 'bg-1))))

         ;; clojure-test-mode
         (clojure-test-failure-face ((,c :foreground ,(gc 'fg-2)
                                         :weight bold :underline t)))
         (clojure-test-error-face   ((,c :foreground ,(gc 'red)
                                         :weight bold :underline t)))
         (clojure-test-success-face ((,c :foreground ,(gc 'green+1)
                                         :weight bold :underline t)))

         ;; comint
         (comint-highlight-prompt ((,c :inherit alect-prompt)))
         (comint-highlight-input  ((,c :weight bold)))

         ;; compilation
         (compilation-column-face           ((,c :foreground ,(gc 'yellow))))
         (compilation-enter-directory-face  ((,c :foreground ,(gc 'green))))
         (compilation-error-face            ((,c :foreground ,(gc 'red-1) :weight bold :underline t)))
         (compilation-face                  ((,c :foreground ,(gc 'fg+1))))
         (compilation-info-face             ((,c :foreground ,(gc 'blue))))
         (compilation-info                  ((,c :foreground ,(gc 'green-2) :underline t)))
         (compilation-leave-directory-face  ((,c :foreground ,(gc 'green))))
         (compilation-line-face             ((,c :foreground ,(gc 'yellow))))
         (compilation-line-number           ((,c :foreground ,(gc 'yellow))))
         (compilation-message-face          ((,c :foreground ,(gc 'blue))))
         (compilation-warning-face          ((,c :foreground ,(gc 'fg-2) :weight bold :underline t)))
         (compilation-mode-line-exit        ((,c :foreground ,(gc 'green+2) :weight bold)))
         (compilation-mode-line-fail        ((,c :foreground ,(gc 'red) :weight bold)))
         (compilation-mode-line-run         ((,c :foreground ,(gc 'yellow) :weight bold)))

         ;; ctable
         (ctbl:face-cell-select  ((,c :background ,(gc 'blue)
                                      :foreground ,(gc 'bg-1))))
         (ctbl:face-continue-bar ((,c :background ,(gc 'bg-2)
                                      :foreground ,(gc 'bg-1))))
         (ctbl:face-row-select   ((,c :background ,(gc 'cyan)
                                      :foreground ,(gc 'bg-1))))

         ;; customization
         (custom-button                  ((,c :inherit custom-button-unraised
                                              :box (:line-width 2
                                                    :style released-button))))
         (custom-button-pressed          ((,c :inherit custom-button-unraised
                                              :box (:line-width 2
                                                    :style pressed-button))))
         (custom-button-mouse            ((,c :inherit highlight
                                              :box (:line-width 2
                                                    :style released-button))))
         (custom-button-unraised         ((,c :foreground ,(gc 'fg+2)
                                              :background ,(gc 'bg+2))))
         (custom-button-pressed-unraised ((,c :inherit custom-button-unraised :underline t)))
         (custom-documentation           ((,c :inherit font-lock-doc-face)))
         (custom-comment                 ((,c :foreground ,(gc 'gray))))
         (custom-tag                     ((,c :foreground ,(gc 'blue+2))))
         (custom-state                   ((,c :foreground ,(gc 'green+1))))
         (custom-link                    ((,c :inherit link)))
         (custom-group-subtitle          ((,c :weight bold)))
         (custom-group-tag               ((,c :inherit alect-title-1)))
         (custom-group-tag-1             ((,c :inherit alect-title-2)))
         (custom-face-tag                ((,c :foreground ,(gc 'magenta+1) :weight bold)))
         (custom-variable-tag            ((,c :inherit font-lock-variable-name-face :weight bold)))
         (custom-variable-button         ((,c :weight bold :underline t)))
         (custom-visibility              ((,c :inherit link :height 0.8)))

         ;; dictem
         (dictem-reference-definition-face ((,c :inherit link :underline nil)))
         (dictem-database-description-face ((,c :inherit alect-title)))
         (dictem-reference-dbname-face     ((,c :foreground ,(gc 'red+1))))
         (dictem-reference-m1-face         ((,c :foreground ,(gc 'cyan))))
         (dictem-reference-m2-face         ((,c :foreground ,(gc 'green))))

         ;; diff
         (diff-context           ((,c :foreground ,(gc 'fg-1))))
         (diff-added             ((,c :foreground ,(gc 'green-1))))
         (diff-changed           ((,c :foreground ,(gc 'yellow-1))))
         (diff-removed           ((,c :foreground ,(gc 'red-1))))
         (diff-indicator-added   ((,c :inherit diff-added)))
         (diff-indicator-changed ((,c :inherit diff-changed)))
         (diff-indicator-removed ((,c :inherit diff-removed)))
         (diff-refine-added      ((,c :inherit diff-added :slant italic)))
         (diff-refine-change     ((,c :inherit diff-changed :slant italic)))
         (diff-refine-removed    ((,c :inherit diff-removed :slant italic)))
         (diff-header            ((,c :foreground ,(gc 'blue-2) :weight bold)))
         (diff-hunk-header       ((,c :inherit diff-header :foreground ,(gc 'green+2))))
         (diff-file-header       ((,c :inherit diff-header :foreground ,(gc 'cyan-1))))
         (diff-function          ((,c :inherit diff-header :foreground ,(gc 'blue))))
         (diff-index             ((,c :inherit diff-header :foreground ,(gc 'red-1))))
         (diff-nonexistent       ((,c :inherit diff-header :foreground ,(gc 'gray))))

         ;; dired
         (dired-directory  ((,c :inherit font-lock-function-name-face)))
         (dired-flagged    ((,c :foreground ,(gc 'red))))
         (dired-header     ((,c :inherit alect-title)))
         (dired-ignored    ((,c :foreground ,(gc 'gray))))
         (dired-mark       ((,c :foreground ,(gc 'blue+1))))
         (dired-marked     ((,c :inherit warning)))
         (dired-perm-write ((,c :foreground ,(gc 'green-1))))
         (dired-symlink    ((,c :inherit font-lock-constant-face)))
         (dired-warning    ((,c :inherit font-lock-warning-face
                                :background ,(gc 'bg-2))))

         ;; egg
         (egg-text-base        ((,c :foreground ,(gc 'fg+1))))
         (egg-help-header-1    ((,c :foreground ,(gc 'cyan+1))))
         (egg-help-header-2    ((,c :foreground ,(gc 'cyan-1))))
         (egg-branch           ((,c :foreground ,(gc 'yellow))))
         (egg-branch-mono      ((,c :foreground ,(gc 'yellow+1))))
         (egg-term             ((,c :foreground ,(gc 'blue))))
         (egg-diff-add         ((,c :foreground ,(gc 'green-2))))
         (egg-diff-del         ((,c :foreground ,(gc 'red+1))))
         (egg-diff-file-header ((,c :foreground ,(gc 'yellow-2))))
         (egg-section-title    ((,c :foreground ,(gc 'red-1))))
         (egg-stash-mono       ((,c :foreground ,(gc 'green))))

         ;; emms
         (emms-playlist-track-face    ((,c :inherit gnus-summary-normal-unread)))
         (emms-playlist-selected-face ((,c :inherit alect-selected-item)))
         (emms-stream-name-face       ((,c :foreground ,(gc 'blue+1))))
         (emms-stream-url-face        ((,c :inherit default)))

         ;; erc
         (erc-header-line          ((,c :inherit header-line)))
         (erc-bold-face            ((,c :weight bold)))
         (erc-underline-face       ((,c :underline t)))
         (erc-current-nick-face    ((,c :foreground ,(gc 'blue) :weight bold)))
         (erc-dangerous-host-face  ((,c :inherit font-lock-warning-face)))
         (erc-default-face         ((,c :foreground ,(gc 'fg+1))))
         (erc-direct-msg-face      ((,c :inherit erc-default-face :foreground ,(gc 'red-2))))
         (erc-action-face          ((,c :inherit erc-bold-face)))
         (erc-error-face           ((,c :inherit font-lock-warning-face)))
         (erc-fool-face            ((,c :foreground ,(gc 'blue-2))))
         (erc-highlight-face       ((,c :inherit hover-highlight)))
         (erc-input-face           ((,c :background ,(gc 'bg+1))))
         (erc-keyword-face         ((,c :foreground ,(gc 'green+1))))
         (erc-nick-default-face    ((,c :foreground ,(gc 'blue+1))))
         (erc-my-nick-face         ((,c :foreground ,(gc 'red))))
         (erc-nick-msg-face        ((,c :foreground ,(gc 'cyan+2))))
         (erc-notice-face          ((,c :foreground ,(gc 'green))))
         (erc-pal-face             ((,c :foreground ,(gc 'magenta+2))))
         (erc-prompt-face          ((,c :inherit alect-prompt)))
         (erc-timestamp-face       ((,c :inherit alect-time)))

         ;; epa
         (epa-mark              ((,c :foreground ,(gc 'blue+1))))
         (epa-string            ((,c :foreground ,(gc 'cyan+2))))
         (epa-validity-disabled ((,c :foreground ,(gc 'fg-2))))
         (epa-validity-high     ((,c :foreground ,(gc 'green-1))))
         (epa-validity-medium   ((,c :foreground ,(gc 'yellow-1))))
         (epa-validity-low      ((,c :foreground ,(gc 'red-1))))

         ;; ert
         (ert-test-result-expected    ((,c :foreground ,(gc 'green-2)
                                           :background ,(gc 'bg-1))))
         (ert-test-result-unexpected  ((,c :foreground ,(gc 'red)
                                           :background ,(gc 'bg-1))))

         ;; eshell
         (eshell-prompt         ((,c :inherit alect-prompt)))
         (eshell-ls-archive     ((,c :foreground ,(gc 'green))))
         (eshell-ls-backup      ((,c :inherit dired-ignored)))
         (eshell-ls-clutter     ((,c :inherit font-lock-comment-face)))
         (eshell-ls-directory   ((,c :inherit dired-directory)))
         (eshell-ls-executable  ((,c :foreground ,(gc 'yellow))))
         (eshell-ls-unreadable  ((,c :foreground ,(gc 'red-2))))
         (eshell-ls-readonly    ((,c :foreground ,(gc 'fg-2))))
         (eshell-ls-missing     ((,c :inherit dired-warning)))
         (eshell-ls-product     ((,c :inherit font-lock-doc-face)))
         (eshell-ls-special     ((,c :foreground ,(gc 'fg+1) :weight bold)))
         (eshell-ls-symlink     ((,c :inherit dired-symlink)))

         ;; flycheck
         (flycheck-error-face    ((,c :foreground ,(gc 'red-1) :weight bold :underline t)))
         (flycheck-warning-face  ((,c :foreground ,(gc 'fg-2) :weight bold :underline t)))

         ;; flymake
         (flymake-errline        ((,c :foreground ,(gc 'red-1) :weight bold :underline t)))
         (flymake-warnline       ((,c :foreground ,(gc 'fg-2) :weight bold :underline t)))

         ;; flyspell
         (flyspell-duplicate     ((,c :foreground ,(gc 'fg-2) :weight bold :underline t)))
         (flyspell-incorrect     ((,c :foreground ,(gc 'red-1) :weight bold :underline t)))

         ;; font lock
         (font-lock-builtin-face           ((,c :foreground ,(gc 'magenta-1))))
         (font-lock-comment-face           ((,c :foreground ,(gc 'green+1))))
         (font-lock-comment-delimiter-face ((,c :inherit font-lock-comment-face)))
         (font-lock-constant-face          ((,c :foreground ,(gc 'cyan-1))))
         (font-lock-doc-face               ((,c :foreground ,(gc 'fg-1) :slant italic)))
         (font-lock-doc-string-face        ((,c :foreground ,(gc 'cyan+2))))
         (font-lock-function-name-face     ((,c :foreground ,(gc 'blue-1))))
         (font-lock-keyword-face           ((,c :foreground ,(gc 'blue+1) :weight bold)))
         (font-lock-negation-char-face     ((,c :foreground ,(gc 'blue))))
         (font-lock-preprocessor-face      ((,c :foreground ,(gc 'green-1))))
         (font-lock-string-face            ((,c :foreground ,(gc 'red-2))))
         (font-lock-type-face              ((,c :foreground ,(gc 'magenta+2))))
         (font-lock-variable-name-face     ((,c :foreground ,(gc 'yellow+2))))
         (font-lock-warning-face           ((,c :foreground ,(gc 'red) :weight bold)))
         (font-lock-regexp-grouping-backslash ((,c :foreground ,(gc 'red+2))))
         (font-lock-regexp-grouping-construct ((,c :foreground ,(gc 'yellow-1))))

         ;; git-commit
         (git-commit-summary-face         ((,c :weight bold)))
         (git-commit-branch-face          ((,c :inherit magit-branch)))
         (git-commit-comment-file-face    ((,c :inherit default)))
         (git-commit-comment-heading-face ((,c :inherit magit-header)))
         (git-commit-comment-action-face  ((,c :foreground ,(gc 'yellow+1))))

         ;; git-gutter
         (git-gutter:added       ((,c :foreground ,(gc 'green) :weight bold :inverse-video t)))
         (git-gutter:deleted     ((,c :foreground ,(gc 'red) :weight bold :inverse-video t)))
         (git-gutter:modified    ((,c :foreground ,(gc 'magenta) :weight bold :inverse-video t)))
         (git-gutter:unchanged   ((,c :foreground ,(gc 'fg+1) :weight bold :inverse-video t)))
         (git-gutter-fr:added    ((,c :foreground ,(gc 'green)  :weight bold)))
         (git-gutter-fr:deleted  ((,c :foreground ,(gc 'red) :weight bold)))
         (git-gutter-fr:modified ((,c :foreground ,(gc 'magenta) :weight bold)))

         ;; gnus
         (gnus-group-news-1-empty      ((,c :inherit alect-color-level-1)))
         (gnus-group-news-2-empty      ((,c :inherit alect-color-level-2)))
         (gnus-group-news-3-empty      ((,c :inherit alect-color-level-3)))
         (gnus-group-news-4-empty      ((,c :inherit alect-color-level-4)))
         (gnus-group-news-5-empty      ((,c :inherit alect-color-level-5)))
         (gnus-group-news-6-empty      ((,c :inherit alect-color-level-6)))
         (gnus-group-news-low-empty    ((,c :inherit alect-color-level-7)))
         (gnus-group-news-1            ((,c :inherit gnus-group-news-1-empty :weight bold)))
         (gnus-group-news-2            ((,c :inherit gnus-group-news-2-empty :weight bold)))
         (gnus-group-news-3            ((,c :inherit gnus-group-news-3-empty :weight bold)))
         (gnus-group-news-4            ((,c :inherit gnus-group-news-4-empty :weight bold)))
         (gnus-group-news-5            ((,c :inherit gnus-group-news-5-empty :weight bold)))
         (gnus-group-news-6            ((,c :inherit gnus-group-news-6-empty :weight bold)))
         (gnus-group-news-low          ((,c :inherit gnus-group-news-low-empty :weight bold)))
         (gnus-group-mail-1-empty      ((,c :inherit gnus-group-news-1-empty :slant italic)))
         (gnus-group-mail-2-empty      ((,c :inherit gnus-group-news-2-empty :slant italic)))
         (gnus-group-mail-3-empty      ((,c :inherit gnus-group-news-3-empty :slant italic)))
         (gnus-group-mail-low-empty    ((,c :inherit gnus-group-news-low-empty :slant italic)))
         (gnus-group-mail-1            ((,c :inherit gnus-group-news-1 :slant italic)))
         (gnus-group-mail-2            ((,c :inherit gnus-group-news-2 :slant italic)))
         (gnus-group-mail-3            ((,c :inherit gnus-group-news-3 :slant italic)))
         (gnus-group-mail-low          ((,c :inherit gnus-group-news-low :slant italic)))

         (gnus-header-content          ((,c :inherit message-header-other)))
         (gnus-header-from             ((,c :inherit message-header-from)))
         (gnus-header-name             ((,c :inherit message-header-name)))
         (gnus-header-newsgroups       ((,c :inherit message-header-newsgroups)))
         (gnus-header-subject          ((,c :inherit message-header-subject)))
         (gnus-summary-cancelled       ((,c :background ,(gc 'fg-1)
                                            :foreground ,(gc 'bg-2))))
         (gnus-summary-low-ancient     ((,c :foreground ,(gc 'blue-2))))
         (gnus-summary-low-read        ((,c :foreground ,(gc 'green-2))))
         (gnus-summary-low-ticked      ((,c :foreground ,(gc 'red-2))))
         (gnus-summary-low-unread      ((,c :foreground ,(gc 'fg-1))))
         (gnus-summary-normal-ancient  ((,c :foreground ,(gc 'blue))))
         (gnus-summary-normal-read     ((,c :foreground ,(gc 'green))))
         (gnus-summary-normal-ticked   ((,c :foreground ,(gc 'red))))
         (gnus-summary-normal-unread   ((,c :foreground ,(gc 'fg+1))))
         (gnus-summary-high-ancient    ((,c :inherit gnus-summary-normal-ancient :weight bold)))
         (gnus-summary-high-read       ((,c :inherit gnus-summary-normal-read    :weight bold)))
         (gnus-summary-high-ticked     ((,c :inherit gnus-summary-normal-ticked  :weight bold)))
         (gnus-summary-high-unread     ((,c :inherit gnus-summary-normal-unread  :weight bold)))
         (gnus-summary-selected        ((,c :inherit alect-selected-item)))
         (gnus-cite-1                  ((,c :inherit alect-color-level-1)))
         (gnus-cite-2                  ((,c :inherit alect-color-level-2)))
         (gnus-cite-3                  ((,c :inherit alect-color-level-3)))
         (gnus-cite-4                  ((,c :inherit alect-color-level-4)))
         (gnus-cite-5                  ((,c :inherit alect-color-level-5)))
         (gnus-cite-6                  ((,c :inherit alect-color-level-6)))
         (gnus-cite-7                  ((,c :inherit alect-color-level-7)))
         (gnus-cite-8                  ((,c :inherit alect-color-level-8)))
         (gnus-cite-9                  ((,c :inherit alect-color-level-9)))
         (gnus-cite-10                 ((,c :inherit alect-color-level-10)))
         (gnus-cite-11                 ((,c :inherit alect-color-level-11)))
         (gnus-signature               ((,c :foreground ,(gc 'cyan+1))))
         (gnus-x                       ((,c :background ,(gc 'fg+1)
                                            :foreground ,(gc 'bg-1))))
         (gnus-server-agent            ((,c :foreground ,(gc 'magenta+2))))
         (gnus-server-closed           ((,c :foreground ,(gc 'blue))))
         (gnus-server-denied           ((,c :inherit font-lock-warning-face)))
         (gnus-server-offline          ((,c :foreground ,(gc 'yellow-1))))
         (gnus-server-opened           ((,c :foreground ,(gc 'green))))

         ;; grep
         (grep-context-face  ((,c :foreground ,(gc 'fg+1))))
         (grep-error-face    ((,c :foreground ,(gc 'red-1) :weight bold :underline t)))
         (grep-hit-face      ((,c :foreground ,(gc 'blue))))
         (grep-match-face    ((,c :foreground ,(gc 'fg-2) :weight bold)))

         ;; guide-key
         (guide-key/highlight-command-face ((,c :foreground ,(gc 'blue))))
         (guide-key/key-face ((,c :foreground ,(gc 'green))))
         (guide-key/prefix-command-face ((,c :foreground ,(gc 'green+1))))

         ;; helm
         (helm-header           ((,c :foreground ,(gc 'green)
                                     :background ,(gc 'bg-1)
                                     :underline nil
                                     :box nil)))
         (helm-source-header    ((,c :foreground ,(gc 'yellow)
                                     :background ,(gc 'bg-2)
                                     :underline nil
                                     :weight bold
                                     :box (:line-width -1 :style released-button))))
         (helm-selection        ((,c :background ,(gc 'bg) :underline nil)))
         (helm-selection-line   ((,c :background ,(gc 'bg))))
         (helm-visible-mark     ((,c :foreground ,(gc 'bg-1) :background ,(gc 'yellow-2))))
         (helm-candidate-number ((,c :foreground ,(gc 'green-2) :background ,(gc 'bg-2))))
         (helm-ff-directory     ((,c :foreground ,(gc 'magenta))))

         ;; hl-line-mode
         (hl-line       ((,c :background ,(gc 'bg))))

         ;; info
         (info-title-1     ((,c :inherit alect-color-level-1 :height 1.5 :weight bold)))
         (info-title-2     ((,c :inherit alect-color-level-2 :height 1.4 :weight bold)))
         (info-title-3     ((,c :inherit alect-color-level-3 :height 1.3 :weight bold)))
         (info-title-4     ((,c :inherit alect-color-level-4 :height 1.2 :weight bold)))
         (info-menu-header ((,c :inherit alect-color-level-5 :height 1.1 :weight bold)))
         (info-node        ((,c :foreground ,(gc 'red+1))))
         (info-menu-star   ((,c :foreground ,(gc 'red))))

         ;; ido-mode
         (ido-first-match ((,c :weight bold)))
         (ido-only-match  ((,c :inherit ido-first-match :foreground ,(gc 'fg+2))))
         (ido-subdir      ((,c :inherit dired-directory)))
         (ido-virtual     ((,c :foreground ,(gc 'red-2))))

         ;; isearch
         (isearch-fail         ((,c :foreground ,(gc 'fg+1)
                                    :background ,(gc 'red-2))))
         (isearch              ((,c :foreground ,(gc 'bg+1)
                                    :background ,(gc 'fg+2))))
         (lazy-highlight       ((,c :foreground ,(gc 'bg-2)
                                    :background ,(gc 'fg-2))))

         ;; js2-mode
         (js2-warning-face           ((,c :foreground,(gc 'fg-2))))
         (js2-error-face             ((,c :foreground ,(gc 'red) :weight bold)))
         (js2-jsdoc-tag-face         ((,c :foreground ,(gc 'green-1))))
         (js2-jsdoc-type-face        ((,c :foreground ,(gc 'green+2))))
         (js2-jsdoc-value-face       ((,c :foreground ,(gc 'cyan-1))))
         (js2-function-param-face    ((,c :foreground ,(gc 'cyan-1))))
         (js2-external-variable-face ((,c :foreground ,(gc 'fg-2))))

         ;; jabber-mode
         (jabber-roster-user-away       ((,c :foreground ,(gc 'green+2))))
         (jabber-roster-user-online     ((,c :foreground ,(gc 'blue-1))))
         (jabber-roster-user-dnd        ((,c :foreground ,(gc 'red+1))))
         (jabber-rare-time-face         ((,c :inherit alect-time)))
         (jabber-chat-prompt-local      ((,c :foreground ,(gc 'blue-1))))
         (jabber-chat-prompt-foreign    ((,c :foreground ,(gc 'red+1))))
         (jabber-activity-face          ((,c :foreground ,(gc 'red+1))))
         (jabber-activity-personal-face ((,c :foreground ,(gc 'blue+1))))
         (jabber-title-small            ((,c :height 1.1 :weight bold)))
         (jabber-title-medium           ((,c :height 1.2 :weight bold)))
         (jabber-title-large            ((,c :height 1.3 :weight bold)))

         ;; linum-mode
         (linum ((,c :foreground ,(gc 'fg-2))))

         ;; magit
         (magit-header                       ((,c :inherit alect-title)))
         (magit-tag                          ((,c :foreground ,(gc 'yellow-1) :weight bold)))
         (magit-branch                       ((,c :foreground ,(gc 'blue+1) :weight bold)))
         (magit-log-date                     ((,c :inherit alect-time)))
         (magit-log-sha1                     ((,c :foreground ,(gc 'yellow+2))))
         (magit-log-author                   ((,c :foreground ,(gc 'magenta-1))))
         (magit-log-head-label-head          ((,c :background ,(gc 'bg-2)
                                                  :foreground ,(gc 'fg+2)
                                                  :box (:line-width 2 :color ,(gc 'red)))))
         (magit-log-head-label-default       ((,c :box (:line-width 1 :color ,(gc 'fg+1)))))
         (magit-log-head-label-local         ((,c :inherit magit-log-head-label-default
                                                  :foreground ,(gc 'blue))))
         (magit-log-head-label-remote        ((,c :inherit magit-log-head-label-default
                                                  :foreground ,(gc 'green+1))))
         (magit-log-head-label-tags          ((,c :inherit magit-log-head-label-default
                                                  :foreground ,(gc 'yellow-1))))
         (magit-log-head-label-wip           ((,c :inherit magit-log-head-label-default
                                                  :foreground ,(gc 'red-1))))
         (magit-log-head-label-patches       ((,c :inherit magit-log-head-label-default
                                                  :foreground ,(gc 'cyan-1))))
         (magit-log-reflog-label-other       ((,c :inherit magit-log-head-label-default)))
         (magit-log-reflog-label-checkout    ((,c :inherit magit-branch)))
         (magit-log-reflog-label-remote      ((,c :inherit magit-log-head-label-remote)))
         (magit-log-reflog-label-reset       ((,c :foreground ,(gc 'red) :weight bold)))
         (magit-log-reflog-label-rebase      ((,c :foreground ,(gc 'yellow))))
         (magit-log-reflog-label-cherry-pick ((,c :foreground ,(gc 'cyan))))
         (magit-log-reflog-label-commit      ((,c :foreground ,(gc 'green-1))))
         (magit-log-reflog-label-amend       ((,c :foreground ,(gc 'magenta))))
         (magit-log-reflog-label-merge       ((,c :foreground ,(gc 'blue-2) :weight bold)))
         (magit-cherry-unmatched             ((,c :foreground ,(gc 'red+2))))
         (magit-cherry-equivalent            ((,c :foreground ,(gc 'cyan+2))))
         (magit-process-ok                   ((,c :foreground ,(gc 'green))))
         (magit-process-ng                   ((,c :foreground ,(gc 'red))))

         ;; markdown mode
         (markdown-header-face           ((,c :inherit alect-title-1)))
         (markdown-header-face-1         ((,c :inherit alect-title-1)))
         (markdown-header-face-2         ((,c :inherit alect-title-2)))
         (markdown-header-face-3         ((,c :inherit alect-title-3)))
         (markdown-header-face-4         ((,c :inherit alect-title-4)))
         (markdown-header-face-5         ((,c :inherit alect-title-5)))
         (markdown-header-face-6         ((,c :inherit alect-title-6)))
         (markdown-header-rule-face      ((,c :inherit markdown-header-face :foreground ,(gc 'fg))))
         (markdown-header-delimiter-face ((,c :inherit markdown-header-face :foreground ,(gc 'fg+2))))
         (markdown-footnote-face         ((,c :foreground ,(gc 'blue+2))))
         (markdown-inline-code-face      ((,c :foreground ,(gc 'cyan+1))))
         (markdown-comment-face          ((,c :inherit font-lock-comment-face)))
         (markdown-blockquote-face       ((,c :inherit font-lock-doc-face)))
         (markdown-bold-face             ((,c :inherit bold)))
         (markdown-italic-face           ((,c :inherit italic)))
         (markdown-missing-link-face     ((,c :inherit font-lock-warning-face)))
         (markdown-link-face             ((,c :inherit link)))
         (markdown-link-title-face       ((,c :inherit font-lock-string-face)))
         (markdown-url-face              ((,c :foreground ,(gc 'green+2))))
         (markdown-language-keyword-face ((,c :foreground ,(gc 'magenta+2))))
         (markdown-line-break-face       ((,c :inherit underline)))
         (markdown-list-face             ((,c :foreground ,(gc 'yellow))))
         (markdown-metadata-key-face     ((,c :foreground ,(gc 'blue-2))))
         (markdown-metadata-value-face   ((,c :foreground ,(gc 'red-1))))
         (markdown-pre-face              ((,c :foreground ,(gc 'yellow+2))))
         (markdown-reference-face        ((,c :inherit link)))

         ;; message-mode
         (message-cited-text        ((,c :inherit font-lock-comment-face)))
         (message-separator         ((,c :inherit font-lock-comment-face)))
         (message-header-name       ((,c :foreground ,(gc 'yellow+1) :weight bold)))
         (message-header-other      ((,c :foreground ,(gc 'fg))))
         (message-header-to         ((,c :foreground ,(gc 'blue))))
         (message-header-from       ((,c :foreground ,(gc 'red-1))))
         (message-header-cc         ((,c :foreground ,(gc 'blue-1))))
         (message-header-newsgroups ((,c :foreground ,(gc 'yellow+2))))
         (message-header-subject    ((,c :inherit alect-title)))
         (message-header-xheader    ((,c :foreground ,(gc 'green-1))))
         (message-mml               ((,c :foreground ,(gc 'cyan-2) :weight bold)))

         ;; mew
         (mew-face-header-subject    ((,c :foreground ,(gc 'fg-2))))
         (mew-face-header-from       ((,c :foreground ,(gc 'yellow))))
         (mew-face-header-date       ((,c :inherit alect-time)))
         (mew-face-header-to         ((,c :foreground ,(gc 'red))))
         (mew-face-header-key        ((,c :foreground ,(gc 'green))))
         (mew-face-header-private    ((,c :foreground ,(gc 'green))))
         (mew-face-header-important  ((,c :foreground ,(gc 'blue))))
         (mew-face-header-marginal   ((,c :foreground ,(gc 'fg+1) :weight bold)))
         (mew-face-header-warning    ((,c :foreground ,(gc 'red))))
         (mew-face-header-xmew       ((,c :foreground ,(gc 'green))))
         (mew-face-header-xmew-bad   ((,c :foreground ,(gc 'red))))
         (mew-face-body-url          ((,c :foreground ,(gc 'fg-2))))
         (mew-face-body-comment      ((,c :foreground ,(gc 'fg+1) :slant italic)))
         (mew-face-body-cite1        ((,c :foreground ,(gc 'green))))
         (mew-face-body-cite2        ((,c :foreground ,(gc 'blue))))
         (mew-face-body-cite3        ((,c :foreground ,(gc 'fg-2))))
         (mew-face-body-cite4        ((,c :foreground ,(gc 'yellow))))
         (mew-face-body-cite5        ((,c :foreground ,(gc 'red))))
         (mew-face-mark-review       ((,c :foreground ,(gc 'blue))))
         (mew-face-mark-escape       ((,c :foreground ,(gc 'green))))
         (mew-face-mark-delete       ((,c :foreground ,(gc 'red))))
         (mew-face-mark-unlink       ((,c :foreground ,(gc 'yellow))))
         (mew-face-mark-refile       ((,c :foreground ,(gc 'green))))
         (mew-face-mark-unread       ((,c :foreground ,(gc 'yellow+2))))
         (mew-face-eof-message       ((,c :foreground ,(gc 'green))))
         (mew-face-eof-part          ((,c :foreground ,(gc 'yellow))))

         ;; mic-paren
         (paren-face-match    ((,c :foreground ,(gc 'cyan)
                                   :background ,(gc 'bg-1)
                                   :weight bold)))
         (paren-face-mismatch ((,c :foreground ,(gc 'bg-1)
                                   :background ,(gc 'magenta)
                                   :weight bold)))
         (paren-face-no-match ((,c :foreground ,(gc 'bg-1)
                                   :background ,(gc 'red)
                                   :weight bold)))

         ;; mingus
         (mingus-directory-face ((,c :foreground ,(gc 'blue))))
         (mingus-pausing-face   ((,c :foreground ,(gc 'magenta))))
         (mingus-playing-face   ((,c :foreground ,(gc 'cyan))))
         (mingus-playlist-face  ((,c :foreground ,(gc 'cyan) )))
         (mingus-song-file-face ((,c :foreground ,(gc 'yellow))))
         (mingus-stopped-face   ((,c :foreground ,(gc 'red))))

         ;; i don't know what it is, but this face can often be met in mails
         (mm-uu-extract ((,c :background ,(gc 'bg)
                             :foreground ,(gc 'fg+1))))

         ;; mode-line
         (mode-line-buffer-id  ((,c :foreground ,(gc 'blue-1) :weight bold)))
         (mode-line            ((,c :foreground ,(gc 'fg+1)
                                    :background ,(gc 'bg-2)
                                    :box (:line-width 2
                                          :style released-button))))
         (mode-line-inactive   ((,c :foreground ,(gc 'fg-2)
                                    :background ,(gc 'bg-1)
                                    :box (:line-width 2
                                          :color ,(gc 'bg-2)
                                          :style nil))))

         ;; mu4e
         (mu4e-cited-1-face ((,c :foreground ,(gc 'blue)    :slant italic)))
         (mu4e-cited-2-face ((,c :foreground ,(gc 'green+2) :slant italic)))
         (mu4e-cited-3-face ((,c :foreground ,(gc 'cyan-2)  :slant italic)))
         (mu4e-cited-4-face ((,c :foreground ,(gc 'green)   :slant italic)))
         (mu4e-cited-5-face ((,c :foreground ,(gc 'cyan+1)  :slant italic)))
         (mu4e-cited-6-face ((,c :foreground ,(gc 'green-1) :slant italic)))
         (mu4e-cited-7-face ((,c :foreground ,(gc 'blue)    :slant italic)))
         (mu4e-replied-face ((,c :foreground ,(gc 'bg+2))))
         (mu4e-trashed-face ((,c :foreground ,(gc 'bg+2) :strike-through t)))

         ;; mumamo
         (mumamo-background-chunk-major    ((,c :background nil)))
         (mumamo-background-chunk-submode1 ((,c :background ,(gc 'bg-2))))
         (mumamo-background-chunk-submode2 ((,c :background ,(gc 'bg+1))))
         (mumamo-background-chunk-submode3 ((,c :background ,(gc 'bg+2))))
         (mumamo-background-chunk-submode4 ((,c :background ,(gc 'bg))))

         ;; nav
         (nav-face-heading     ((,c :foreground ,(gc 'yellow))))
         (nav-face-button-num  ((,c :foreground ,(gc 'cyan))))
         (nav-face-dir         ((,c :foreground ,(gc 'green))))
         (nav-face-hdir        ((,c :foreground ,(gc 'red))))
         (nav-face-file        ((,c :foreground ,(gc 'fg+1))))
         (nav-face-hfile       ((,c :foreground ,(gc 'red-2))))

         ;; nethack-el
         (nethack-dark-gray-face          ((,c :foreground ,(gc 'fg-1))))
         (nethack-message-highlight-face  ((,c :background ,(gc 'bg)
                                               :foreground ,(gc 'red+2))))
         (nethack-yellow-face             ((,c :foreground ,(gc 'yellow))))

         ;; newsticker
         (newsticker-date-face                ((,c :inherit alect-time)))
         (newsticker-default-face             ((,c :foreground ,(gc 'fg+1))))
         (newsticker-enclosure-face           ((,c :foreground ,(gc 'cyan-1))))
         (newsticker-extra-face               ((,c :foreground ,(gc 'bg+1) :height 0.8)))
         (newsticker-feed-face                ((,c :foreground ,(gc 'fg+1))))
         (newsticker-immortal-item-face       ((,c :foreground ,(gc 'green))))
         (newsticker-new-item-face            ((,c :foreground ,(gc 'blue))))
         (newsticker-obsolete-item-face       ((,c :foreground ,(gc 'red))))
         (newsticker-old-item-face            ((,c :foreground ,(gc 'bg+2))))
         (newsticker-statistics-face          ((,c :foreground ,(gc 'fg+1))))
         (newsticker-treeview-face            ((,c :foreground ,(gc 'fg+1))))
         (newsticker-treeview-immortal-face   ((,c :foreground ,(gc 'green))))
         (newsticker-treeview-listwindow-face ((,c :foreground ,(gc 'fg+1))))
         (newsticker-treeview-new-face        ((,c :foreground ,(gc 'blue) :weight bold)))
         (newsticker-treeview-obsolete-face   ((,c :foreground ,(gc 'red))))
         (newsticker-treeview-old-face        ((,c :foreground ,(gc 'bg+2))))
         (newsticker-treeview-selection-face  ((,c :foreground ,(gc 'yellow))))

         ;; org-mode
         (org-agenda-date           ((,c :inherit alect-time)))
         (org-agenda-date-today     ((,c :inherit alect-selected-item
                                         :foreground ,(gc 'cyan-2))))
         (org-agenda-structure      ((,c :inherit alect-title)))
         (org-archived              ((,c :foreground ,(gc 'fg+1) :weight bold)))
         (org-checkbox              ((,c :background ,(gc 'bg+1)
                                         :foreground ,(gc 'gray-2)
                                         :box (:line-width 1 :style released-button))))
         (org-date                  ((,c :inherit alect-time)))
         (org-date-selected         ((,c :inherit alect-selected-item)))
         (org-deadline-announce     ((,c :foreground ,(gc 'red-1))))
         (org-done                  ((,c :foreground ,(gc 'cyan-1) :weight bold)))
         (org-formula               ((,c :foreground ,(gc 'yellow-2))))
         (org-headline-done         ((,c :foreground ,(gc 'cyan-1))))
         (org-hide                  ((,c :foreground ,(gc 'bg-2))))
         (org-level-1               ((,c :inherit alect-title-1)))
         (org-level-2               ((,c :inherit alect-title-2)))
         (org-level-3               ((,c :inherit alect-title-3)))
         (org-level-4               ((,c :inherit alect-title-4)))
         (org-level-5               ((,c :inherit alect-title-5)))
         (org-level-6               ((,c :inherit alect-title-6)))
         (org-level-7               ((,c :inherit alect-title-7)))
         (org-level-8               ((,c :inherit alect-title-8)))
         (org-link                  ((,c :inherit link)))
         (org-scheduled             ((,c :foreground ,(gc 'green-2))))
         (org-scheduled-previously  ((,c :foreground ,(gc 'red-2))))
         (org-scheduled-today       ((,c :foreground ,(gc 'blue+1))))
         (org-special-keyword       ((,c :inherit font-lock-doc-face)))
         (org-table                 ((,c :foreground ,(gc 'fg-1))))
         (org-tag                   ((,c :slant italic)))
         (org-time-grid             ((,c :foreground ,(gc 'fg-2))))
         (org-todo                  ((,c :foreground ,(gc 'red) :weight bold)))
         (org-upcoming-deadline     ((,c :inherit font-lock-keyword-face)))
         (org-warning               ((,c :foreground ,(gc 'red) :weight bold :underline nil)))
         (org-column                ((,c :background ,(gc 'bg-2))))
         (org-column-title          ((,c :background ,(gc 'bg-2) :underline t :weight bold)))

         ;; outline
         (outline-1 ((,c :inherit alect-title-1)))
         (outline-2 ((,c :inherit alect-title-2)))
         (outline-3 ((,c :inherit alect-title-3)))
         (outline-4 ((,c :inherit alect-title-4)))
         (outline-5 ((,c :inherit alect-title-5)))
         (outline-6 ((,c :inherit alect-title-6)))
         (outline-7 ((,c :inherit alect-title-7)))
         (outline-8 ((,c :inherit alect-title-8)))

         ;; popup
         (popup-tip-face                    ((,c :foreground ,(gc 'gray+2)
                                                 :background ,(gc 'yellow-2))))
         (popup-scroll-bar-foreground-face  ((,c :background ,(gc 'fg-2))))
         (popup-scroll-bar-background-face  ((,c :background ,(gc 'bg-2))))
         (popup-isearch-match               ((,c :foreground ,(gc 'fg+1)
                                                 :background ,(gc 'bg-1) )))

         ;; rainbow-delimiters
         (rainbow-delimiters-depth-1-face   ((,c :foreground ,(gc 'fg+1))))
         (rainbow-delimiters-depth-2-face   ((,c :foreground ,(gc 'green+2))))
         (rainbow-delimiters-depth-3-face   ((,c :foreground ,(gc 'yellow-2))))
         (rainbow-delimiters-depth-4-face   ((,c :foreground ,(gc 'cyan))))
         (rainbow-delimiters-depth-5-face   ((,c :foreground ,(gc 'green-1))))
         (rainbow-delimiters-depth-6-face   ((,c :foreground ,(gc 'blue+1))))
         (rainbow-delimiters-depth-7-face   ((,c :foreground ,(gc 'yellow-1))))
         (rainbow-delimiters-depth-8-face   ((,c :foreground ,(gc 'green+1))))
         (rainbow-delimiters-depth-9-face   ((,c :foreground ,(gc 'cyan-2))))
         (rainbow-delimiters-depth-10-face  ((,c :foreground ,(gc 'fg-2))))
         (rainbow-delimiters-depth-11-face  ((,c :foreground ,(gc 'green))))
         (rainbow-delimiters-depth-12-face  ((,c :foreground ,(gc 'cyan+2))))

         ;; rcirc
         (rcirc-my-nick                   ((,c :foreground ,(gc 'blue))))
         (rcirc-other-nick                ((,c :foreground ,(gc 'fg-2))))
         (rcirc-bright-nick               ((,c :foreground ,(gc 'blue+1))))
         (rcirc-dim-nick                  ((,c :foreground ,(gc 'cyan-2))))
         (rcirc-server                    ((,c :foreground ,(gc 'green))))
         (rcirc-server-prefix             ((,c :foreground ,(gc 'green+1))))
         (rcirc-timestamp                 ((,c :inherit alect-time)))
         (rcirc-nick-in-message           ((,c :foreground ,(gc 'yellow))))
         (rcirc-nick-in-message-full-line ((,c :weight bold)))
         (rcirc-prompt                    ((,c :inherit alect-prompt)))
         (rcirc-track-nick                ((,c :inverse-video t)))
         (rcirc-track-keyword             ((,c :weight bold)))
         (rcirc-url                       ((,c :weight bold)))
         (rcirc-keyword                   ((,c :foreground ,(gc 'yellow) :weight bold)))

         ;; rpm-mode
         (rpm-spec-dir-face           ((,c :foreground ,(gc 'green))))
         (rpm-spec-doc-face           ((,c :foreground ,(gc 'green))))
         (rpm-spec-ghost-face         ((,c :foreground ,(gc 'red))))
         (rpm-spec-macro-face         ((,c :foreground ,(gc 'yellow))))
         (rpm-spec-obsolete-tag-face  ((,c :foreground ,(gc 'red))))
         (rpm-spec-package-face       ((,c :foreground ,(gc 'red))))
         (rpm-spec-section-face       ((,c :foreground ,(gc 'yellow))))
         (rpm-spec-tag-face           ((,c :foreground ,(gc 'blue))))
         (rpm-spec-var-face           ((,c :foreground ,(gc 'red))))

         ;; rst-mode
         (rst-level-1-face ((,c :inherit alect-color-level-1)))
         (rst-level-2-face ((,c :inherit alect-color-level-2)))
         (rst-level-3-face ((,c :inherit alect-color-level-3)))
         (rst-level-4-face ((,c :inherit alect-color-level-4)))
         (rst-level-5-face ((,c :inherit alect-color-level-5)))
         (rst-level-6-face ((,c :inherit alect-color-level-6)))

         ;; sauron
         (sauron-timestamp-face  ((,c :inherit alect-time)))
         (sauron-message-face    ((,c :inherit font-lock-doc-face)))
         (sauron-origin-face     ((,c :foreground ,(gc 'blue+1))))
         (sauron-priority-face   ((,c :foreground ,(gc 'yellow+2))))
         (sauron-highlight1-face ((,c :foreground ,(gc 'green))))
         (sauron-highlight2-face ((,c :foreground ,(gc 'red-1))))
         (sauron-highlight3-face ((,c :foreground ,(gc 'magenta))))

         ;; shell-script
         (sh-heredoc     ((,c :inherit font-lock-doc-face)))
         (sh-quoted-exec ((,c :foreground ,(gc 'cyan))))

         ;; show-paren
         (show-paren-mismatch  ((,c :foreground ,(gc 'gray-2)
                                    :background ,(gc 'red))))
         (show-paren-match     ((,c :foreground ,(gc 'gray-2)
                                    :background ,(gc 'green+1))))

         ;; SLIME
         (slime-error-face                 ((,c :inherit font-lock-warning-face)))
         (slime-repl-input-face            ((,c :inherit comint-highlight-input)))
         (slime-repl-output-face           ((,c :foreground ,(gc 'green-1))))
         (slime-repl-inputed-output-face   ((,c :foreground ,(gc 'red))))
         (slime-repl-output-mouseover-face ((,c :inherit highlight)))
         (slime-repl-prompt-face           ((,c :inherit alect-prompt)))
         (slime-repl-result-face           ((,c :foreground ,(gc 'blue+2))))

         ;; sml-mode-line
         (sml-modeline-end-face ((,c :inherit default :width condensed)))

         ;; sunrise-commander
         (sr-active-path-face       ((,c :inherit dired-header)))
         (sr-passive-path-face      ((,c :inherit dired-header
                                         :foreground ,(gc 'fg-2))))
         (sr-directory-face         ((,c :inherit dired-directory)))
         (sr-marked-file-face       ((,c :inherit dired-marked)))
         (sr-marked-dir-face        ((,c :inherit sr-alt-marked-file-face :weight bold)))
         (sr-alt-marked-file-face   ((,c :inherit sr-marked-file-face :slant italic)))
         (sr-alt-marked-dir-face    ((,c :inherit sr-marked-dir-face :slant italic)))
         (sr-symlink-face           ((,c :inherit dired-symlink)))
         (sr-symlink-directory-face ((,c :inherit sr-symlink-face :weight bold)))
         (sr-broken-link-face       ((,c :inherit dired-warning)))
         (sr-highlight-path-face    ((,c :inherit highlight)))
         (sr-editing-path-face      ((,c :foreground ,(gc 'bg-1)
                                         :background ,(gc 'blue-1))))
         (sr-clex-hotchar-face      ((,c :foreground ,(gc 'red))))
         (sr-encrypted-face         ((,c :foreground ,(gc 'yellow))))
         (sr-compressed-face        ((,c :foreground ,(gc 'magenta-1))))
         (sr-packaged-face          ((,c :foreground ,(gc 'magenta+1))))
         (sr-log-face               ((,c :foreground ,(gc 'green-1))))
         (sr-xml-face               ((,c :foreground ,(gc 'green+2))))
         (sr-html-face              ((,c :foreground ,(gc 'cyan+2))))

         ;; syslog-mode
         (syslog-error ((,c :inherit font-lock-warning-face)))
         (syslog-warn  ((,c :inherit warning)))
         (syslog-info  ((,c :foreground ,(gc 'blue-2))))
         (syslog-debug ((,c :foreground ,(gc 'magenta-1))))
         (syslog-hour  ((,c :foreground ,(gc 'blue+1))))
         (syslog-su    ((,c :foreground ,(gc 'cyan))))
         (syslog-ip    ((,c :foreground ,(gc 'yellow+1) :underline t)))

         ;; tabbar
         (tabbar-button     ((,c :foreground ,(gc 'fg+1)
                                 :background ,(gc 'bg-1))))
         (tabbar-selected   ((,c :foreground ,(gc 'fg+1)
                                 :background ,(gc 'bg-1)
                                 :box (:line-width -1 :style pressed-button))))
         (tabbar-unselected ((,c :foreground ,(gc 'fg+1)
                                 :background ,(gc 'bg)
                                 :box (:line-width -1 :style released-button))))

         ;; term
         (term-color-black       ((,c :foreground ,(gc 'bg-1)
                                      :background ,(gc 'bg-2))))
         (term-color-red         ((,c :foreground ,(gc 'yellow+2)
                                      :background ,(gc 'red-2))))
         (term-color-green       ((,c :foreground ,(gc 'green)
                                      :background ,(gc 'green+2))))
         (term-color-yellow      ((,c :foreground ,(gc 'fg-2)
                                      :background ,(gc 'yellow))))
         (term-color-blue        ((,c :foreground ,(gc 'blue-1)
                                      :background ,(gc 'cyan+1))))
         (term-color-magenta     ((,c :foreground ,(gc 'magenta)
                                      :background ,(gc 'red))))
         (term-color-cyan        ((,c :foreground ,(gc 'cyan)
                                      :background ,(gc 'blue))))
         (term-color-white       ((,c :foreground ,(gc 'fg+1)
                                      :background ,(gc 'bg+2))))
         (term-default-fg-color  ((,c :inherit term-color-white)))
         (term-default-bg-color  ((,c :inherit term-color-black)))

         ;; volatile-highlights
         (vhl/default-face ((,c :background ,(gc 'bg-2))))

         ;; emacs-w3m
         (w3m-anchor                       ((,c :inherit link)))
         (w3m-arrived-anchor               ((,c :inherit link-visited)))
         (w3m-form                         ((,c :foreground ,(gc 'red-1) :underline t)))
         (w3m-form-button                  ((,c :inherit custom-button)))
         (w3m-form-button-pressed          ((,c :inherit custom-button-pressed)))
         (w3m-form-button-mouse            ((,c :inherit custom-button-mouse)))
         (w3m-tab-background               ((,c :inherit default)))
         (w3m-tab-selected                 ((,c :inherit custom-button
                                                :foreground ,(gc 'fg+2))))
         (w3m-tab-selected-retrieving      ((,c :inherit custom-button
                                                :foreground ,(gc 'red))))
         (w3m-tab-selected-background      ((,c :background ,(gc 'bg))))
         (w3m-tab-unselected               ((,c :inherit custom-button
                                                :foreground ,(gc 'fg-1))))
         (w3m-tab-unselected-retrieving    ((,c :inherit custom-button
                                                :foreground ,(gc 'red+2))))
         (w3m-tab-unselected-unseen        ((,c :inherit custom-button
                                                :backround ,(gc 'gray))))
         (w3m-tab-mouse                    ((,c :inherit custom-button-mouse)))
         (w3m-header-line-location-title   ((,c :inherit header-line)))
         (w3m-header-line-location-content ((,c :foreground ,(gc 'blue-1)
                                                :inherit header-line)))
         (w3m-history-current-url          ((,c :inherit alect-selected-item)))
         (w3m-image-anchor                 ((,c :background ,(gc 'bg+1))))

         ;; wanderlust
         (wl-highlight-folder-few-face                     ((,c :foreground ,(gc 'yellow+2))))
         (wl-highlight-folder-many-face                    ((,c :foreground ,(gc 'red-1))))
         (wl-highlight-folder-path-face                    ((,c :foreground ,(gc 'fg-2))))
         (wl-highlight-folder-unread-face                  ((,c :foreground ,(gc 'blue))))
         (wl-highlight-folder-zero-face                    ((,c :foreground ,(gc 'fg+1))))
         (wl-highlight-folder-unknown-face                 ((,c :foreground ,(gc 'blue))))
         (wl-highlight-message-citation-header             ((,c :foreground ,(gc 'red-1))))
         (wl-highlight-message-cited-text-1                ((,c :foreground ,(gc 'red))))
         (wl-highlight-message-cited-text-2                ((,c :foreground ,(gc 'green+2))))
         (wl-highlight-message-cited-text-3                ((,c :foreground ,(gc 'blue))))
         (wl-highlight-message-cited-text-4                ((,c :foreground ,(gc 'blue+1))))
         (wl-highlight-message-header-contents-face        ((,c :foreground ,(gc 'green))))
         (wl-highlight-message-headers-face                ((,c :foreground ,(gc 'red+1))))
         (wl-highlight-message-important-header-contents   ((,c :foreground ,(gc 'green+2))))
         (wl-highlight-message-header-contents             ((,c :foreground ,(gc 'green+1))))
         (wl-highlight-message-important-header-contents2  ((,c :foreground ,(gc 'green+2))))
         (wl-highlight-message-signature                   ((,c :foreground ,(gc 'green))))
         (wl-highlight-message-unimportant-header-contents ((,c :foreground ,(gc 'fg+1))))
         (wl-highlight-summary-answered-face               ((,c :foreground ,(gc 'blue))))
         (wl-highlight-summary-disposed-face               ((,c :foreground ,(gc 'fg+1)
                                                                :slant italic)))
         (wl-highlight-summary-new-face                    ((,c :foreground ,(gc 'blue))))
         (wl-highlight-summary-normal-face                 ((,c :foreground ,(gc 'fg+1))))
         (wl-highlight-summary-thread-top-face             ((,c :foreground ,(gc 'yellow))))
         (wl-highlight-thread-indent-face                  ((,c :foreground ,(gc 'magenta))))
         (wl-highlight-summary-refiled-face                ((,c :foreground ,(gc 'fg+1))))
         (wl-highlight-summary-displaying-face             ((,c :underline t :weight bold)))

         ;; which-func-mode
         (which-func ((,c :foreground ,(gc 'green-2))))

         ;; whitespace-mode
         (whitespace-space            ((,c :background ,(gc 'bg)
                                           :foreground ,(gc 'blue-2))))
         (whitespace-hspace           ((,c :background ,(gc 'bg)
                                           :foreground ,(gc 'gray))))
         (whitespace-tab              ((,c :background ,(gc 'fg-2)
                                           :foreground ,(gc 'blue-2))))
         (whitespace-newline          ((,c :foreground ,(gc 'blue-2))))
         (whitespace-trailing         ((,c :background ,(gc 'red))))
         (whitespace-line             ((,c :background ,(gc 'gray)
                                           :foreground ,(gc 'gray-2))))
         (whitespace-space-before-tab ((,c :background ,(gc 'fg-2)
                                           :foreground ,(gc 'fg-2))))
         (whitespace-indentation      ((,c :background ,(gc 'yellow-2)
                                           :foreground ,(gc 'red-2))))
         (whitespace-empty            ((,c :background ,(gc 'yellow))))
         (whitespace-space-after-tab  ((,c :background ,(gc 'yellow-2)
                                           :foreground ,(gc 'red-2))))

         ;; widget
         (widget-field             ((,c :background ,(gc 'bg)
                                        :box (:line-width -1
                                              :color ,(gc 'fg-2)
                                              :style nil))))
         (widget-button            ((,c :foreground ,(gc 'blue-1) :weight bold)))
         (widget-button-pressed    ((,c :foreground ,(gc 'blue+2) :inherit widget-button)))
         (widget-documentation     ((,c :foreground ,(gc 'green-1))))
         (widget-inactive          ((,c :inherit shadow)))
         (widget-single-line-field ((,c :foreground ,(gc 'fg)
                                        :inherit widget-field)))

         ;; yascroll
         (yascroll:thumb-text-area ((,c :background ,(gc 'bg-2))))
         (yascroll:thumb-fringe    ((,c :background ,(gc 'bg-2)
                                        :foreground ,(gc 'fg-2)))))
       ;; VARIABLES
       `((ansi-color-names-vector
          [,(gc 'bg-1)
           ,(gc 'red)
           ,(gc 'green)
           ,(gc 'yellow)
           ,(gc 'blue)
           ,(gc 'magenta)
           ,(gc 'cyan)
           ,(gc 'fg+1)])

         ;; emms icon at mode line (is taken from emms source)
         (emms-mode-line-icon-image-cache
          '(image :type xpm :ascent center :data ,(concat "/* XPM */
static char *note[] = {
/* width height num_colors chars_per_pixel */
\"    10   11        2            1\",
/* colors */
\". c " (gc 'cyan)  "\",
\"# c None s None\",
/* pixels */
\"###...####\",
\"###.#...##\",
\"###.###...\",
\"###.#####.\",
\"###.#####.\",
\"#...#####.\",
\"....#####.\",
\"#..######.\",
\"#######...\",
\"######....\",
\"#######..#\" };"))
          t)

         ;; gnus icon at mode line (is taken from gnus source)
         (gnus-mode-line-image-cache
          '(image :type xpm :ascent center :data ,(concat "/* XPM */
static char *gnus-pointer[] = {
/* width height num_colors chars_per_pixel */
\"    18    13        2            1\",
/* colors */
\". c " (gc 'cyan) "\",
\"# c None s None\",
/* pixels */
\"##################\",
\"######..##..######\",
\"#####........#####\",
\"#.##.##..##...####\",
\"#...####.###...##.\",
\"#..###.######.....\",
\"#####.########...#\",
\"###########.######\",
\"####.###.#..######\",
\"######..###.######\",
\"###....####.######\",
\"###..######.######\",
\"###########.######\" };"))
          t)

         ;; gnus startup logo
         (gnus-logo-colors '(,(gc 'cyan+1) ,(gc 'gray-1)) t)

         ;; fill-column-indicator
         (fci-rule-color ,(gc 'bg-2))

         ;; vc-annotate
         (vc-annotate-color-map
          '(( 20 . ,(gc 'red-1))
            ( 40 . ,(gc 'red))
            ( 60 . ,(gc 'yellow-2))
            ( 80 . ,(gc 'yellow-1))
            (100 . ,(gc 'yellow))
            (120 . ,(gc 'yellow+1))
            (140 . ,(gc 'green-1))
            (160 . ,(gc 'green-2))
            (180 . ,(gc 'green))
            (200 . ,(gc 'green+1))
            (220 . ,(gc 'green+2))
            (240 . ,(gc 'cyan-1))
            (260 . ,(gc 'cyan))
            (280 . ,(gc 'cyan-2))
            (300 . ,(gc 'blue-1))
            (320 . ,(gc 'blue))
            (340 . ,(gc 'blue+1))
            (360 . ,(gc 'magenta))))
         (vc-annotate-very-old-color ,(gc 'magenta))
         (vc-annotate-background ,(gc 'bg-2))
         )))))

(defun alect-substitute-color (theme-name plist prop)
  "Substitute color name for property PROP in property list PLIST.

Return plist with substituted color value.  Replace a color only
if PROP contains such color name (symbol from `alect-colors').

This function is destructive: PLIST may not stay the same.

See `alect-substitute-colors-in-plist' for details."
  (let ((color-name (plist-get plist prop))
        color-val)
    (and (symbolp color-name)
         (setq color-val (alect-get-color theme-name color-name))
         (setq plist (plist-put plist prop color-val)))
    plist))

(defun alect-substitute-colors-in-plist (theme-name plist)
  "Substitute color names in property list PLIST with color values.

PLIST can also be a list containing property list.

Color values (strings) are defined by color names (symbols) for a
specified theme THEME-NAME from `alect-colors' variable.  Replace
colors for the `:foreground' and `:background' properties.  If
there is also `:box' property in PLIST, replace its `:color'
property as well.

Return plist with substituted colors.  This function is
destructive: PLIST may not stay the same."
  (if (and (consp (car plist))
           (null (cdr plist)))
      (alect-substitute-colors-in-plist theme-name (car plist))
    (setq plist (alect-substitute-color theme-name plist :foreground))
    (setq plist (alect-substitute-color theme-name plist :background))
    (let ((box-plist (plist-get plist :box)))
      (and box-plist
           (setq box-plist (alect-substitute-color theme-name box-plist :color))
           (setq plist (plist-put plist :box box-plist))))
    plist))

(defun alect-substitute-colors-in-faces (theme-name faces)
  "Substitute color names in a list FACES with color values.

FACES is a list of face specifications accepted by
`custom-theme-set-faces'.

Return a list of faces with substituted colors.  This function is
destructive: FACES may not stay the same.

See `alect-substitute-colors-in-plist' for details."
  (mapcar (lambda (face)
            (list (car face)
                  (mapcar (lambda (spec)
                            (cons (car spec)
                                  (alect-substitute-colors-in-plist
                                   theme-name (cdr spec))))
                          (cadr face))))
          faces))

(defun alect-override-faces (original overriding)
  "Override faces from ORIGINAL list with faces from OVERRIDING list.

Both ORIGINAL and OVERRIDING are lists of face specifications
accepted by `custom-theme-set-faces'.

Replace face specifications from ORIGINAL list with the ones from
OVERRIDING list, add new faces from OVERRIDING list, and return the
resulting list.

This function is destructive: ORIGINAL list may not stay the same."
  (mapc (lambda (face)
          (let ((orig-face (assoc (car face) original)))
            (and orig-face
                 (setq original (delete orig-face original)))
            (add-to-list 'original face)))
        overriding)
  original)

(defmacro alect-create-theme (theme &optional invert)
  "Define and provide a color theme THEME.
For INVERT, see `alect-get-color'."
  (let* ((theme-name  (intern (concat "alect-"
                                      (symbol-name theme)
                                      (and invert "-alt"))))
         (theme-vals  (alect-get-customization theme invert))
         (theme-faces (alect-override-faces
                       (car theme-vals)
                       (alect-substitute-colors-in-faces
                        theme (copy-tree alect-overriding-faces))))
         (theme-vars  (cdr theme-vals)))

    `(progn
       (deftheme ,theme-name ,(format "The %s color theme."
                                      (concat (and invert "alternative ")
                                              (symbol-name theme))))
       (apply 'custom-theme-set-variables ',theme-name ',theme-vars)
       (apply 'custom-theme-set-faces     ',theme-name ',theme-faces)
       (provide-theme ',theme-name))))

;;;###autoload
(and load-file-name
     (boundp 'custom-theme-load-path)
     (add-to-list 'custom-theme-load-path
                  (file-name-as-directory
                   (file-name-directory load-file-name))))

(provide 'alect-themes)

;; Local Variables:
;; fill-column: 72
;; eval: (and (fboundp 'rainbow-mode) (rainbow-mode))
;; End:

;;; alect-themes.el ends here