emacs/gnus.el: update gnus-personalities
[dotfiles.git] / 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)