etc/themes/wombat-theme.el

   1 ;;; wombat-theme.el --- Custom face theme for Emacs  -*-coding: utf-8 -*-
   2
   3 ;; Copyright (C) 2011-2012 Free Software Foundation, Inc.
   4
   5 ;; Author: Kristoffer Grönlund <krig@koru.se>
   6
   7 ;; This file is part of GNU Emacs.
   8
   9 ;; GNU Emacs is free software: you can redistribute it and/or modify
  10 ;; it under the terms of the GNU General Public License as published by
  11 ;; the Free Software Foundation, either version 3 of the License, or
  12 ;; (at your option) any later version.
  13
  14 ;; GNU Emacs is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;; GNU General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU General Public License
  20 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  21
  22 ;;; Code:
  23
  24 (deftheme wombat
  25   "Medium-contrast faces with a dark gray background.
  26 Adapted, with permission, from a Vim color scheme by Lars H. Nielsen.
  27 Basic, Font Lock, Isearch, Gnus, Message, and Ansi-Color faces
  28 are included.")
  29
  30 (let ((class '((class color) (min-colors 89))))
  31   (custom-theme-set-faces
  32    'wombat
  33    `(default ((,class (:background "#242424" :foreground "#f6f3e8"))))
  34    `(cursor ((,class (:background "#656565"))))
  35    ;; Highlighting faces
  36    `(fringe ((,class (:background "#303030"))))
  37    `(highlight ((,class (:background "#454545" :foreground "#ffffff"
  38                          :underline t))))
  39    `(region ((,class (:background "#444444" :foreground "#f6f3e8"))))
  40    `(secondary-selection ((,class (:background "#333366" :foreground "#f6f3e8"))))
  41    `(isearch ((,class (:background "#343434" :foreground "#857b6f"))))
  42    `(lazy-highlight ((,class (:background "#384048" :foreground "#a0a8b0"))))
  43    ;; Mode line faces
  44    `(mode-line ((,class (:background "#444444" :foreground "#f6f3e8"))))
  45    `(mode-line-inactive ((,class (:background "#444444" :foreground "#857b6f"))))
  46    ;; Escape and prompt faces
  47    `(minibuffer-prompt ((,class (:foreground "#e5786d"))))
  48    `(escape-glyph ((,class (:foreground "#ddaa6f" :weight bold))))
  49    ;; Font lock faces
  50    `(font-lock-builtin-face ((,class (:foreground "#e5786d"))))
  51    `(font-lock-comment-face ((,class (:foreground "#99968b"))))
  52    `(font-lock-constant-face ((,class (:foreground "#e5786d"))))
  53    `(font-lock-function-name-face ((,class (:foreground "#cae682"))))
  54    `(font-lock-keyword-face ((,class (:foreground "#8ac6f2" :weight bold))))
  55    `(font-lock-string-face ((,class (:foreground "#95e454"))))
  56    `(font-lock-type-face ((,class (:foreground "#92a65e" :weight bold))))
  57    `(font-lock-variable-name-face ((,class (:foreground "#cae682"))))
  58    `(font-lock-warning-face ((,class (:foreground "#ccaa8f"))))
  59    ;; Button and link faces
  60    `(link ((,class (:foreground "#8ac6f2" :underline t))))
  61    `(link-visited ((,class (:foreground "#e5786d" :underline t))))
  62    `(button ((,class (:background "#333333" :foreground "#f6f3e8"))))
  63    `(header-line ((,class (:background "#303030" :foreground "#e7f6da"))))
  64    ;; Gnus faces
  65    `(gnus-group-news-1 ((,class (:weight bold :foreground "#95e454"))))
  66    `(gnus-group-news-1-low ((,class (:foreground "#95e454"))))
  67    `(gnus-group-news-2 ((,class (:weight bold :foreground "#cae682"))))
  68    `(gnus-group-news-2-low ((,class (:foreground "#cae682"))))
  69    `(gnus-group-news-3 ((,class (:weight bold :foreground "#ccaa8f"))))
  70    `(gnus-group-news-3-low ((,class (:foreground "#ccaa8f"))))
  71    `(gnus-group-news-4 ((,class (:weight bold :foreground "#99968b"))))
  72    `(gnus-group-news-4-low ((,class (:foreground "#99968b"))))
  73    `(gnus-group-news-5 ((,class (:weight bold :foreground "#cae682"))))
  74    `(gnus-group-news-5-low ((,class (:foreground "#cae682"))))
  75    `(gnus-group-news-low ((,class (:foreground "#99968b"))))
  76    `(gnus-group-mail-1 ((,class (:weight bold :foreground "#95e454"))))
  77    `(gnus-group-mail-1-low ((,class (:foreground "#95e454"))))
  78    `(gnus-group-mail-2 ((,class (:weight bold :foreground "#cae682"))))
  79    `(gnus-group-mail-2-low ((,class (:foreground "#cae682"))))
  80    `(gnus-group-mail-3 ((,class (:weight bold :foreground "#ccaa8f"))))
  81    `(gnus-group-mail-3-low ((,class (:foreground "#ccaa8f"))))
  82    `(gnus-group-mail-low ((,class (:foreground "#99968b"))))
  83    `(gnus-header-content ((,class (:foreground "#8ac6f2"))))
  84    `(gnus-header-from ((,class (:weight bold :foreground "#95e454"))))
  85    `(gnus-header-subject ((,class (:foreground "#cae682"))))
  86    `(gnus-header-name ((,class (:foreground "#8ac6f2"))))
  87    `(gnus-header-newsgroups ((,class (:foreground "#cae682"))))
  88    ;; Message faces
  89    `(message-header-name ((,class (:foreground "#8ac6f2" :weight bold))))
  90    `(message-header-cc ((,class (:foreground "#95e454"))))
  91    `(message-header-other ((,class (:foreground "#95e454"))))
  92    `(message-header-subject ((,class (:foreground "#cae682"))))
  93    `(message-header-to ((,class (:foreground "#cae682"))))
  94    `(message-cited-text ((,class (:foreground "#99968b"))))
  95    `(message-separator ((,class (:foreground "#e5786d" :weight bold))))))
  96
  97 (custom-theme-set-variables
  98  'wombat
  99  '(ansi-color-names-vector ["#242424" "#e5786d" "#95e454" "#cae682"
 100                             "#8ac6f2" "#333366" "#ccaa8f" "#f6f3e8"]))
 101
 102 (provide-theme 'wombat)
 103
 104 ;; Local Variables:
 105 ;; no-byte-compile: t
 106 ;; End:
 107
 108 ;;; wombat-theme.el ends here