etc/themes/whiteboard-theme.el

   1 ;;; whiteboard-theme.el --- Custom theme for faces
   2
   3 ;; Copyright (C) 2011-2015 Free Software Foundation, Inc.
   4
   5 ;; Author: Scott Frazer <frazer.scott@gmail.com>
   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 whiteboard
  25   "Face colors similar to markers on a whiteboard.")
  26
  27 (let ((class '((class color) (min-colors 89))))
  28   (custom-theme-set-faces
  29    'whiteboard
  30    `(Info-title-1-face ((,class (:family "helv" :weight bold :height 1.728))))
  31    `(Info-title-2-face ((,class (:family "helv" :weight bold :height 1.44))))
  32    `(Info-title-3-face ((,class (:family "helv" :weight bold :height 1.2))))
  33    `(Info-title-4-face ((,class (:family "helv" :weight bold))))
  34    `(compilation-column-number ((,class (:foreground "DarkGreen"))))
  35    `(compilation-error ((,class (:foreground "Red1"))))
  36    `(compilation-info ((,class (:weight normal :foreground "DeepSkyBlue4"))))
  37    `(compilation-line-number ((,class (:foreground "DarkGreen"))))
  38    `(cperl-array-face ((,class (:foreground "SlateBlue3"))))
  39    `(cperl-hash-face ((,class (:foreground "turquoise3"))))
  40    `(cperl-nonoverridable-face ((,class (:foreground "orchid3"))))
  41    `(cursor ((,class (:background "Green4"))))
  42    `(default ((,class (:background "whitesmoke" :foreground "black"))))
  43    `(dired-marked ((,class (:background "dodgerblue3" :foreground "white"))))
  44    `(flymake-errline ((,class (:background nil :underline "red"))))
  45    `(flymake-warnline ((,class (:background nil :underline "magenta3"))))
  46    `(font-lock-builtin-face ((,class (:foreground "DarkOrange3"))))
  47    `(font-lock-comment-delimiter-face ((,class (:foreground "gray50"))))
  48    `(font-lock-comment-face ((,class (:foreground "gray50"))))
  49    `(font-lock-constant-face ((,class (:foreground "DarkOliveGreen4"))))
  50    `(font-lock-doc-face ((,class (:foreground "peru"))))
  51    `(font-lock-doc-string-face ((,class (:foreground "peru"))))
  52    `(font-lock-function-name-face ((,class (:foreground "goldenrod3"))))
  53    `(font-lock-keyword-face ((,class (:foreground "DodgerBlue2"))))
  54    `(font-lock-preprocessor-face ((,class (:foreground "gold3"))))
  55    `(font-lock-reference-face ((,class (:foreground "salmon"))))
  56    `(font-lock-regexp-grouping-backslash ((,class (:weight bold))))
  57    `(font-lock-regexp-grouping-construct ((,class (:weight bold))))
  58    `(font-lock-string-face ((,class (:foreground "burlywood4"))))
  59    `(font-lock-type-face ((,class (:foreground "DeepSkyBlue4"))))
  60    `(font-lock-variable-name-face ((,class (:foreground "SeaGreen4"))))
  61    `(font-lock-warning-face ((,class (:foreground "red"))))
  62    `(fringe ((,class (:background "gainsboro"))))
  63    `(highlight ((,class (:background "SkyBlue1"))))
  64    `(ido-first-match ((,class (:weight normal :foreground "DarkOrange3"))))
  65    `(ido-only-match ((,class (:foreground "SeaGreen4"))))
  66    `(ido-subdir ((,class (:foreground nil :inherit font-lock-keyword-face))))
  67    `(info-header-node ((,class (:foreground "DeepSkyBlue1"))))
  68    `(info-header-xref ((,class (:foreground "SeaGreen2"))))
  69    `(info-menu-header ((,class (:family "helv" :weight bold))))
  70    `(info-node ((,class (:foreground "DeepSkyBlue1"))))
  71    `(info-xref ((,class (:foreground "SeaGreen4"))))
  72    `(isearch ((,class (:background "coral2" :foreground "white"))))
  73    `(isearch-lazy-highlight-face ((,class (:background "coral4" :foreground "white"))))
  74    `(lazy-highlight ((,class (:background "cadetblue" :foreground "white"))))
  75    `(match ((,class (:background "LightPink1"))))
  76    `(minibuffer-prompt ((,class (:foreground "DodgerBlue4"))))
  77    `(mode-line ((,class (:background "gray75" :foreground "black" :box (:line-width 1 :style released-button)))))
  78    `(mode-line-buffer-id ((,class (:weight bold :background nil :foreground "blue4"))))
  79    `(mode-line-inactive ((,class (:background "gray40" :foreground "black" :box (:line-width 1 :color "gray40" :style nil)))))
  80    `(outline-1 ((,class (:foreground "Blue3"))))
  81    `(outline-2 ((,class (:foreground "DodgerBlue"))))
  82    `(outline-3 ((,class (:foreground "SteelBlue"))))
  83    `(outline-4 ((,class (:foreground "RoyalBlue"))))
  84    `(outline-5 ((,class (:foreground "DeepSkyBlue"))))
  85    `(primary-selection ((,class (:background "blue3"))))
  86    `(region ((,class (:background "SkyBlue1"))))
  87    `(show-paren-match-face ((,class (:background "dodgerblue1" :foreground "white"))))
  88    `(show-paren-mismatch-face ((,class (:background "red1" :foreground "white"))))
  89    `(warning ((,class (:foreground "Yellow4"))))))
  90
  91 (provide-theme 'whiteboard)
  92
  93 ;; Local Variables:
  94 ;; no-byte-compile: t
  95 ;; End:
  96
  97 ;;; whiteboard-theme.el ends here