code.delx.au - gnu-emacs/blob - etc/themes/wheatgrass-theme.el

   1 ;;; wheatgrass-theme.el --- custom theme for faces
   2
   3 ;; Copyright (C) 2010-2012 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 ;;; Code:
  21
  22 (deftheme wheatgrass
  23   "High-contrast green/blue/brown faces on a black background.
  24 Basic, Font Lock, Isearch, Gnus, and Message faces are included.
  25 The default face foreground is wheat, with other faces in shades
  26 of green, brown, and blue.")
  27
  28 (let ((class '((class color) (min-colors 89))))
  29   (custom-theme-set-faces
  30    'wheatgrass
  31    `(default ((,class (:foreground "wheat" :background "black"))))
  32    `(cursor ((,class (:background "thistle"))))
  33    `(error ((,class (:foreground "salmon1"))))
  34    `(warning ((,class (:foreground "orange"))))
  35    `(success ((,class (:foreground "yellow green"))))
  36    ;; Highlighting faces
  37    `(highlight ((,class (:foreground "white" :background "dark green"))))
  38    `(region ((,class (:foreground "white" :background "dark green"))))
  39    `(secondary-selection ((,class (:background "dark slate gray"))))
  40    `(isearch ((,class (:foreground "white" :background "dark goldenrod"))))
  41    `(lazy-highlight ((,class (:background "gray25"))))
  42    ;; Font lock faces
  43    `(font-lock-builtin-face ((,class (:foreground "LightSteelBlue"))))
  44    `(font-lock-comment-face ((,class (:foreground "SpringGreen3"))))
  45    `(font-lock-constant-face ((,class (:foreground "turquoise"))))
  46    `(font-lock-function-name-face ((,class (:foreground "pale green"))))
  47    `(font-lock-keyword-face ((,class (:foreground "white"))))
  48    `(font-lock-string-face ((,class (:foreground "dark khaki"))))
  49    `(font-lock-type-face ((,class (:foreground "aquamarine"))))
  50    `(font-lock-variable-name-face ((,class (:foreground "yellow green"))))
  51    ;; Button and link faces
  52    `(link ((,class (:underline t :foreground "cyan"))))
  53    `(link-visited ((,class (:underline t :foreground "dark cyan"))))
  54    ;; Gnus faces
  55    `(gnus-header-content ((,class (:weight normal :foreground "yellow green"))))
  56    `(gnus-header-from ((,class (:foreground "pale green"))))
  57    `(gnus-header-subject ((,class (:foreground "pale turquoise"))))
  58    `(gnus-header-name ((,class (:foreground "dark sea green"))))
  59    `(gnus-header-newsgroups ((,class (:foreground "dark khaki"))))
  60    ;; Message faces
  61    `(message-header-name ((,class (:foreground "dark turquoise"))))
  62    `(message-header-cc ((,class (:foreground "yellow green"))))
  63    `(message-header-other ((,class (:foreground "dark khaki"))))
  64    `(message-header-subject ((,class (:foreground "pale turquoise"))))
  65    `(message-header-to ((,class (:foreground "pale green"))))
  66    `(message-cited-text ((,class (:foreground "SpringGreen3"))))
  67    `(message-separator ((,class (:foreground "deep sky blue"))))))
  68
  69 (provide-theme 'wheatgrass)
  70
  71 ;; Local Variables:
  72 ;; no-byte-compile: t
  73 ;; End:
  74
  75 ;;; wheatgrass-theme.el ends here