emacs/themes.el

   1 ;;; Color theme based on Tango Palette. Created by danranx@gmail.com
   2 (defun color-theme-tango ()
   3   "A color theme based on Tango Palette."
   4   (interactive)
   5   (color-theme-install
   6    '(color-theme-tango
   7      ((background-color . "#2e3436")
   8       (background-mode . dark)
   9       (border-color . "#888a85")
  10       (cursor-color . "#fce94f")
  11       (foreground-color . "#eeeeec")
  12       (mouse-color . "#8ae234"))
  13      ((help-highlight-face . underline)
  14       (ibuffer-dired-buffer-face . font-lock-function-name-face)
  15       (ibuffer-help-buffer-face . font-lock-comment-face)
  16       (ibuffer-hidden-buffer-face . font-lock-warning-face)
  17       (ibuffer-occur-match-face . font-lock-warning-face)
  18       (ibuffer-read-only-buffer-face . font-lock-type-face)
  19       (ibuffer-special-buffer-face . font-lock-keyword-face)
  20       (ibuffer-title-face . font-lock-type-face))
  21      (border ((t (:background "#888a85"))))
  22      (fringe ((t (:background "grey10"))))
  23      (mode-line ((t (:foreground "#eeeeec" :background "#555753"))))
  24      (region ((t (:background "#555753"))))
  25      (font-lock-builtin-face ((t (:foreground "#729fcf"))))
  26      (font-lock-comment-face ((t (:foreground "#888a85"))))
  27      (font-lock-constant-face ((t (:foreground "#8ae234"))))
  28      (font-lock-doc-face ((t (:foreground "#888a85"))))
  29      (font-lock-keyword-face ((t (:foreground "#729fcf" :bold t))))
  30      (font-lock-string-face ((t (:foreground "#ad7fa8" :italic t))))
  31      (font-lock-type-face ((t (:foreground "#8ae234" :bold t))))
  32      (font-lock-variable-name-face ((t (:foreground "#eeeeec"))))
  33      (font-lock-warning-face ((t (:bold t :foreground "#f57900"))))
  34      (font-lock-function-name-face ((t (:foreground "#edd400" :bold t :italic t))))
  35      (comint-highlight-input ((t (:italic t :bold t))))
  36      (comint-highlight-prompt ((t (:foreground "#8ae234"))))
  37      (isearch ((t (:background "#f57900" :foreground "#2e3436"))))
  38      (isearch-lazy-highlight-face ((t (:foreground "#2e3436" :background "#e9b96e"))))
  39      (show-paren-match-face ((t (:foreground "#2e3436" :background "#73d216"))))
  40      (show-paren-mismatch-face ((t (:background "#ad7fa8" :foreground "#2e3436"))))
  41      (minibuffer-prompt ((t (:foreground "#729fcf" :bold t))))
  42      (info-xref ((t (:foreground "#729fcf"))))
  43      (info-xref-visited ((t (:foreground "#ad7fa8"))))
  44      )))
  45
  46 (defun color-theme-djcb-dark ()
  47   "dark color theme created by djcb, Jan. 2009."
  48   (interactive)
  49   (color-theme-install
  50    '(color-theme-djcb-dark
  51      ((foreground-color . "#a9eadf")
  52       (background-color . "black")
  53       (background-mode . dark))
  54      (bold ((t (:bold t))))
  55      (bold-italic ((t (:italic t :bold t))))
  56      (default ((t (nil))))
  57
  58      (font-lock-builtin-face ((t (:italic t :foreground "#a96da0"))))
  59      (font-lock-comment-face ((t (:italic t :foreground "#bbbbbb"))))
  60      (font-lock-comment-delimiter-face ((t (:foreground "#666666"))))
  61      (font-lock-constant-face ((t (:bold t :foreground "#197b6e"))))
  62      (font-lock-doc-string-face ((t (:foreground "#3041c4"))))
  63      (font-lock-doc-face ((t (:foreground "gray"))))
  64      (font-lock-reference-face ((t (:foreground "white"))))
  65      (font-lock-function-name-face ((t (:foreground "#356da0"))))
  66      (font-lock-keyword-face ((t (:bold t :foreground "#bcf0f1"))))
  67      (font-lock-preprocessor-face ((t (:foreground "#e3ea94"))))
  68      (font-lock-string-face ((t (:foreground "#ffffff"))))
  69      (font-lock-type-face ((t (:bold t :foreground "#364498"))))
  70      (font-lock-variable-name-face ((t (:foreground "#7685de"))))
  71      (font-lock-warning-face ((t (:bold t :italic nil :underline nil
  72                                         :foreground "yellow"))))
  73      (hl-line ((t (:background "#112233"))))
  74      (mode-line ((t (:foreground "#ffffff" :background "#333333"))))
  75      (region ((t (:foreground nil :background "#555555"))))
  76      (show-paren-match-face ((t (:bold t :foreground "#ffffff"
  77                                        :background "#050505")))))))
  78
  79 (provide 'themes)