etc/themes/deeper-blue-theme.el

   1 ;;; deeper-blue-theme.el --- Custom theme for faces
   2
   3 ;; Copyright (C) 2011-2012 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 deeper-blue
  25   "Face colors using a deep blue background.")
  26
  27 (let ((class '((class color) (min-colors 89))))
  28   (custom-theme-set-faces
  29    'deeper-blue
  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 "LightGreen"))))
  35    `(compilation-error ((,class (:foreground "Red1"))))
  36    `(compilation-info ((,class (:weight normal :foreground "LightSkyBlue"))))
  37    `(compilation-line-number ((,class (:foreground "LightGreen"))))
  38    `(compilation-mode-line-exit ((,class (:foreground "blue4"))))
  39    `(cperl-array-face ((,class (:foreground "yellow2"))))
  40    `(cperl-hash-face ((,class (:foreground "coral1"))))
  41    `(cursor ((,class (:background "green"))))
  42    `(default ((,class (:background "#181a26" :foreground "gray80"))))
  43    `(diff-added ((,class (nil))))
  44    `(diff-changed ((,class (nil))))
  45    `(diff-context ((,class (:foreground "seashell4"))))
  46    `(diff-file-header ((,class (:background "grey60"))))
  47    `(diff-function ((,class (:inherit diff-header))))
  48    `(diff-header ((,class (:background "grey45"))))
  49    `(diff-hunk-header ((,class (:inherit diff-header))))
  50    `(diff-index ((,class (:inherit diff-file-header))))
  51    `(diff-indicator-added ((,class (:foreground "white" :background "darkolivegreen"))))
  52    `(diff-indicator-changed ((,class (:foreground "white" :background "dodgerblue4"))))
  53    `(diff-indicator-removed ((,class (:foreground "white" :background "indianred4"))))
  54    `(diff-refine-change ((,class (:background "skyblue4"))))
  55    `(diff-removed ((,class (nil))))
  56    `(dired-marked ((,class (:background "dodgerblue3" :foreground "white"))))
  57    `(ediff-current-diff-A ((,class (:background "green4" :foreground "white"))))
  58    `(ediff-current-diff-B ((,class (:background "darkorange3" :foreground "white"))))
  59    `(ediff-even-diff-B ((,class (:background "Grey50" :foreground "White"))))
  60    `(ediff-fine-diff-A ((,class (:background "skyblue4" :foreground "white"))))
  61    `(ediff-fine-diff-B ((,class (:background "cyan4" :foreground "white"))))
  62    `(ediff-odd-diff-A ((,class (:background "Grey50" :foreground "White"))))
  63    `(error ((,class (:foreground "red"))))
  64    `(flymake-errline ((,class (:background nil :underline "red"))))
  65    `(flymake-warnline ((,class (:background nil :underline "magenta3"))))
  66    `(font-lock-builtin-face ((,class (:foreground "LightCoral"))))
  67    `(font-lock-comment-delimiter-face ((,class (:foreground "gray50"))))
  68    `(font-lock-comment-face ((,class (:foreground "gray50"))))
  69    `(font-lock-constant-face ((,class (:foreground "DarkOliveGreen3"))))
  70    `(font-lock-doc-face ((,class (:foreground "moccasin"))))
  71    `(font-lock-doc-string-face ((,class (:foreground "moccasin"))))
  72    `(font-lock-function-name-face ((,class (:foreground "goldenrod"))))
  73    `(font-lock-keyword-face ((,class (:foreground "DeepSkyBlue1"))))
  74    `(font-lock-preprocessor-face ((,class (:foreground "gold"))))
  75    `(font-lock-reference-face ((,class (:foreground "LightCoral"))))
  76    `(font-lock-regexp-grouping-backslash ((,class (:weight bold))))
  77    `(font-lock-regexp-grouping-construct ((,class (:weight bold))))
  78    `(font-lock-string-face ((,class (:foreground "burlywood"))))
  79    `(font-lock-type-face ((,class (:foreground "CadetBlue1"))))
  80    `(font-lock-variable-name-face ((,class (:foreground "SeaGreen2"))))
  81    `(fringe ((,class (:background "black"))))
  82    `(highlight ((,class (:background "DodgerBlue4"))))
  83    `(ido-first-match ((,class (:weight normal :foreground "orange"))))
  84    `(ido-only-match ((,class (:foreground "green"))))
  85    `(ido-subdir ((,class (:foreground nil :inherit font-lock-keyword-face))))
  86    `(info-header-node ((,class (:foreground "DeepSkyBlue1"))))
  87    `(info-header-xref ((,class (:foreground "SeaGreen2"))))
  88    `(info-menu-header ((,class (:family "helv" :weight bold))))
  89    `(info-node ((,class (:foreground "DeepSkyBlue1"))))
  90    `(info-xref ((,class (:foreground "SeaGreen2"))))
  91    `(isearch ((,class (:background "coral2" :foreground "white"))))
  92    `(isearch-lazy-highlight-face ((,class (:background "coral4" :foreground "white"))))
  93    `(lazy-highlight ((,class (:background "cadetblue" :foreground "white"))))
  94    `(match ((,class (:background "DeepPink4"))))
  95    `(minibuffer-prompt ((,class (:foreground "CadetBlue1"))))
  96    `(mode-line ((,class (:background "gray75" :foreground "black" :box (:line-width 1 :style released-button)))))
  97    `(mode-line-buffer-id ((,class (:weight bold :background nil :foreground "blue4"))))
  98    `(mode-line-inactive ((,class (:background "gray40" :foreground "black" :box (:line-width 1 :color "gray40" :style nil)))))
  99    `(outline-1 ((,class (:foreground "SkyBlue1"))))
 100    `(outline-2 ((,class (:foreground "CadetBlue1"))))
 101    `(outline-3 ((,class (:foreground "LightSteelBlue1"))))
 102    `(outline-4 ((,class (:foreground "turquoise2"))))
 103    `(outline-5 ((,class (:foreground "aquamarine1"))))
 104    `(primary-selection ((,class (:background "blue3"))))
 105    `(region ((,class (:background "#103050"))))
 106    `(show-paren-match-face ((,class (:background "dodgerblue1" :foreground "white"))))
 107    `(show-paren-mismatch-face ((,class (:background "red1" :foreground "white"))))
 108    `(success ((,class (:foreground "SeaGreen2"))))
 109    `(warning ((,class (:foreground "Yellow"))))))
 110
 111 (provide-theme 'deeper-blue)
 112
 113 ;; Local Variables:
 114 ;; no-byte-compile: t
 115 ;; End:
 116
 117 ;;; deeper-blue-theme.el ends here