1 ;;; tango-theme.el --- Tango-based custom theme for faces
3 ;; Copyright (C) 2010 Free Software Foundation, Inc.
5 ;; This file is part of GNU Emacs.
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.
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.
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/>.
22 ;; The colors in this theme come from the Tango palette, which is in
23 ;; the public domain: http://tango.freedesktop.org/
28 "Theme for faces, based on the Tango palette on a light background.
29 Basic, Font Lock, Isearch, Gnus, and Message faces are included.")
31 (custom-theme-set-faces
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")))))
86 (provide-theme 'tango
)
92 ;;; tango-theme.el ends here