HCoop / bpt / emacs.git / blame
| Commit | Line | Data |
|---|---|---|
| 2919746c CY |
1 | ;;; tango-theme.el --- Tango-based custom theme for faces |
| 2 | ||
| 3 | ;; Copyright (C) 2010 Free Software Foundation, Inc. | |
| 4 | ||
| 5 | ;; This file is part of GNU Emacs. | |
| 6 | ||
| 7 | ;; GNU Emacs is free software: you can redistribute it and/or modify | |
| 8 | ;; it under the terms of the GNU General Public License as published by | |
| 9 | ;; the Free Software Foundation, either version 3 of the License, or | |
| 10 | ;; (at your option) any later version. | |
| 11 | ||
| 12 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
| 13 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 14 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 15 | ;; GNU General Public License for more details. | |
| 16 | ||
| 17 | ;; You should have received a copy of the GNU General Public License | |
| 18 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | |
| 19 | ||
| 20 | ;;; Commentary | |
| 21 | ||
| 22 | ;; The colors in this theme come from the Tango palette, which is in | |
| 23 | ;; the public domain: http://tango.freedesktop.org/ | |
| 24 | ||
| 25 | ;;; Code: | |
| 26 | ||
| 27 | (deftheme tango | |
| 28 | "Theme for faces, based on the Tango palette on a light background. | |
| 29 | Basic, Font Lock, Isearch, Gnus, and Message faces are included.") | |
| 30 | ||
| 31 | (custom-theme-set-faces | |
| 32 | 'tango | |
| 33 | '(default ((t (:foreground "#16191a" :background "#eeeeec")))) | |
| 34 | '(cursor ((t (:foreground "#eeeeec" :background "#204a87")))) | |
| 35 | '(highlight ((t (:background "#babdb6")))) | |
| 36 | '(region ((t (:background "#babdb6")))) | |
| 37 | '(font-lock-builtin-face ((t (:weight bold :foreground "#204a87")))) | |
| 38 | '(font-lock-comment-face ((t (:foreground "#204a87")))) | |
| 39 | '(font-lock-constant-face ((t (:weight bold :foreground "#5c3566")))) | |
| 40 | '(font-lock-function-name-face ((t (:weight bold :foreground "#ce5c00")))) | |
| 41 | '(font-lock-keyword-face ((t (:foreground "#a40000")))) | |
| 42 | '(font-lock-string-face ((t (:foreground "#5c3566")))) | |
| 43 | '(font-lock-type-face ((t (:weight bold :foreground "#4e9a06")))) | |
| 44 | '(font-lock-variable-name-face ((t (:weight bold :foreground "#c17d11")))) | |
| 45 | '(font-lock-warning-face ((t (:foreground "#cc0000")))) | |
| 46 | '(button ((t (:underline t :foreground "#204a87")))) | |
| 47 | '(link ((t (:underline t :foreground "#204a87")))) | |
| 48 | '(link-visited ((t (:underline t :foreground "#3465a4")))) | |
| 49 | '(mode-line ((t (:box (:line-width -1 :style released-button) | |
| 50 | :background "#d3d7cf" :foreground "black")))) | |
| 51 | '(mode-line-inactive ((t (:box (:line-width -1 :style released-button) | |
| 52 | :background "#babdb6" :foreground "black")))) | |
| 53 | '(isearch ((t (:foreground "#ffffff" :background "#ce5c00")))) | |
| 54 | '(lazy-highlight ((t (:background "#e9b96e")))) | |
| 55 | '(gnus-group-news-1 ((t (:weight bold :foreground "#5c3566")))) | |
| 56 | '(gnus-group-news-1-low ((t (:foreground "#5c3566")))) | |
| 57 | '(gnus-group-news-2 ((t (:weight bold :foreground "#204a87")))) | |
| 58 | '(gnus-group-news-2-low ((t (:foreground "#204a87")))) | |
| 59 | '(gnus-group-news-3 ((t (:weight bold :foreground "#4e0a06")))) | |
| 60 | '(gnus-group-news-3-low ((t (:foreground "#4e0a06")))) | |
| 61 | '(gnus-group-news-4 ((t (:weight bold :foreground "#7a4c02")))) | |
| 62 | '(gnus-group-news-4-low ((t (:foreground "#7a4c02")))) | |
| 63 | '(gnus-group-news-5 ((t (:weight bold :foreground "#ce5c00")))) | |
| 64 | '(gnus-group-news-5-low ((t (:foreground "#ce5c00")))) | |
| 65 | '(gnus-group-news-low ((t (:foreground "#888a85")))) | |
| 66 | '(gnus-group-mail-1 ((t (:weight bold :foreground "#5c3566")))) | |
| 67 | '(gnus-group-mail-1-low ((t (:foreground "#5c3566")))) | |
| 68 | '(gnus-group-mail-2 ((t (:weight bold :foreground "#204a87")))) | |
| 69 | '(gnus-group-mail-2-low ((t (:foreground "#204a87")))) | |
| 70 | '(gnus-group-mail-3 ((t (:weight bold :foreground "#4e0a06")))) | |
| 71 | '(gnus-group-mail-3-low ((t (:foreground "#4e0a06")))) | |
| 72 | '(gnus-group-mail-low ((t (:foreground "#888a85")))) | |
| 73 | '(gnus-header-content ((t (:foreground "#4e9a06")))) | |
| 74 | '(gnus-header-from ((t (:weight bold :foreground "#c4a000")))) | |
| 75 | '(gnus-header-subject ((t (:foreground "#4e0a06")))) | |
| 76 | '(gnus-header-name ((t (:foreground "#204a87")))) | |
| 77 | '(gnus-header-newsgroups ((t (:foreground "#888a85")))) | |
| 78 | '(message-header-name ((t (:foreground "#204a87")))) | |
| 79 | '(message-header-cc ((t (:foreground "#c4a000")))) | |
| 80 | '(message-header-other ((t (:foreground "#c17d11")))) | |
| 81 | '(message-header-subject ((t (:foreground "#4e0a06")))) | |
| 82 | '(message-header-to ((t (:weight bold :foreground "#c4a000")))) | |
| 83 | '(message-cited-text ((t (:foreground "#888a85")))) | |
| 84 | '(message-separator ((t (:weight bold :foreground "#4e9a06"))))) | |
| 85 | ||
| 86 | (provide-theme 'tango) | |
| 87 | ||
| 88 | ;; Local Variables: | |
| 89 | ;; no-byte-compile: t | |
| 90 | ;; End: | |
| 91 | ||
| 92 | ;;; tango-theme.el ends here |