emacs/naquadah-theme.el

   1 ;;; naquadah-theme.el --- A color theme
   2
   3 ;; Copyright (C) 2011 Julien Danjou
   4
   5 ;; Authors: Julien Danjou <julien@danjou.info>
   6
   7 ;; This file is NOT 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 naquadah
  25   "Naquadah theme.")
  26
  27 (let ((light-blue "#72A0CF")
  28       (pale-yellow "#D4F77F")
  29       (violet "#C66CD0")
  30       (green "#89E234")
  31       (blue "#374EAB")
  32       (yellow "#FCCD3A")
  33       (pink "#DE336D")
  34       (red "#8A0B0B")
  35       (violet-blue "#5337AD")
  36       (orange "#FFA500")
  37       (tomato "#FC683A")
  38       (background "#252A2B")
  39       (shadow "#888a85"))
  40   (custom-theme-set-faces
  41    'naquadah
  42    `(default ((((min-colors 4096)) (:background ,background :foreground "#eeeeec"))))
  43    `(shadow ((t (:foreground ,shadow))))
  44    '(cursor ((t (:background "#aa0000"))))
  45    '(hl-line ((t (:background "#191919"))))
  46    '(highlight ((t (:background "brown1" :foreground nil))))
  47    '(fringe ((t (:background "gray10"))))
  48    '(mode-line ((t (:foreground "#fafafa" :background "#000000" :box (:line-width 1 :color "#444444")))))
  49    '(mode-line-inactive ((t (:foreground "#888888" :background "#2c2f2f" :box (:line-width 1 :color "black")))))
  50    `(mode-line-buffer-id ((t (:bold t :foreground ,orange))))
  51    '(header-line ((t (:foreground "#dddddd" :background "#1e2426" :box (:line-width 1 :color "#444444")))))
  52    '(region ((t (:background "grey30"))))
  53    `(link ((t (:underline t :foreground ,light-blue))))
  54    '(custom-link ((t (:inherit 'link))))
  55    '(match ((t (:bold t :background "#e9b96e" :foreground "#2e3436"))))
  56    '(tooltip ((t (:inherit 'variable-pitch :foreground "LightYellow" :background "black"))))
  57    '(bold ((t (:bold t :underline nil :background nil))))
  58    '(italic ((t (:italic t :underline nil :background nil))))
  59    `(font-lock-builtin-face ((t (:foreground ,light-blue))))
  60    '(font-lock-comment-face ((t (:inherit 'shadow :italic t))))
  61    '(font-lock-comment-delimiter-face ((t (:inherit 'font-lock-comment-face))))
  62    `(font-lock-constant-face ((t (:foreground ,green))))
  63    '(font-lock-doc-face ((t (:inherit 'shadow))))
  64    '(font-lock-keyword-face ((t (:inherit 'font-lock-builtin-face :bold t))))
  65    `(font-lock-string-face ((t (:foreground ,violet))))
  66    '(font-lock-type-face ((t (:inherit 'font-lock-constant-face :bold t))))
  67    `(font-lock-variable-name-face ((t (:foreground ,tomato))))
  68    `(font-lock-warning-face ((t (:bold t :foreground ,orange))))
  69    `(font-lock-function-name-face ((t (:foreground ,yellow :bold t))))
  70    '(comint-highlight-input ((t (:italic t :bold t))))
  71    `(comint-highlight-prompt ((t (:foreground ,green))))
  72    `(isearch ((t (:background ,orange :foreground ,background))))
  73    `(show-paren-match-face ((t (:background ,green))))
  74    `(show-paren-mismatch-face ((t (:background ,violet))))
  75    `(minibuffer-prompt ((t (:foreground ,light-blue :bold t))))
  76    `(info-xref ((t (:foreground ,light-blue))))
  77    `(info-xref-visited ((t (:foreground ,violet))))
  78    '(widget-button ((t (:bold t))))
  79    `(widget-mouse-face ((t (:bold t :foreground "white" :background ,red))))
  80    `(widget-field ((t (:foreground ,orange :background "gray30"))))
  81    `(widget-single-line-field ((t (:foreground ,orange :background "gray30"))))
  82    `(custom-group-tag ((t (:bold t :foreground ,orange :height 1.3))))
  83    '(custom-variable-tag ((t (:bold t :foreground "#edd400" :height 1.1))))
  84    '(custom-face-tag ((t (:bold t :foreground "#edd400" :height 1.1))))
  85    `(custom-state-face ((t (:foreground ,light-blue))))
  86    '(custom-button  ((t (:box (:line-width 1 :style released-button) :background "gray50" :foreground "black"))))
  87    '(custom-variable-button ((t (:inherit 'custom-button))))
  88    '(custom-button-mouse  ((t (:inherit 'custom-button :background "gray60"))))
  89    '(custom-button-unraised  ((t (:background "gray50" :foreground "black"))))
  90    '(custom-button-mouse-unraised  ((t (:inherit 'custom-button-unraised :background "gray60"))))
  91    '(custom-button-pressed  ((t (:inherit 'custom-button :box (:style pressed-button)))))
  92    '(custom-button-mouse-pressed-unraised  ((t (:inherit 'custom-button-unraised :background "gray60"))))
  93    '(custom-documentation ((t (:italic t))))
  94    '(gnus-cite-face-1 ((t (:foreground "#ad7fa3"))))
  95    '(gnus-cite-face-2 ((t (:foreground "sienna3"))))
  96    '(gnus-cite-face-3 ((t (:foreground "khaki4"))))
  97    '(gnus-cite-face-4 ((t (:foreground "PaleTurquoise4"))))
  98    '(gnus-header-name-face ((t (:bold t :foreground "#729fcf"))))
  99    '(gnus-header-from ((t (:bold t :foreground "#e0d400"))))
 100    '(gnus-header-subject ((t (:foreground "#e0d400"))))
 101    '(gnus-header-content ((t (:italic t :foreground "#8ae234"))))
 102    '(gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
 103    '(gnus-signature-face ((t (:italic t :foreground "OliveDrab1"))))
 104    `(gnus-summary-cancelled-face ((t (:background "black" :foreground ,yellow))))
 105    '(gnus-summary-normal-ancient-face ((t (:foreground "medium sea green"))))
 106    '(gnus-summary-normal-read-face ((t (:foreground "lime green"))))
 107    `(gnus-summary-normal-ticked-face ((t (:foreground ,tomato))))
 108    '(gnus-summary-normal-unread-face ((t (:foreground "white"))))
 109    '(gnus-summary-high-ancient-face ((t (:inherit 'gnus-summary-normal-ancient-face))))
 110    '(gnus-summary-high-read-face ((t (:inherit 'gnus-summary-normal-read-face))))
 111    `(gnus-summary-high-ticked-face ((t (:inherit 'gnus-summary-normal-ticked-face)))))
 112   '(gnus-summary-high-unread-face ((t (:inherit 'gnus-summary-normal-unread-face))))
 113   '(gnus-summary-low-ancient-face ((t (:inherit 'gnus-summary-normal-ancient-face) :italic t)))
 114   '(gnus-summary-low-read-face ((t (:inherit 'gnus-summary-normal-read-face :italic t))))
 115   '(gnus-summary-low-ticked-face ((t (:inherit 'gnus-summary-normal-ticked-face :italic t))))
 116   '(gnus-summary-low-unread-face ((t (:inherit 'gnus-summary-normal-unread-face :italic t))))
 117   '(spam-face ((t (:background "black" :foreground "magenta3"))))
 118   `(gnus-summary-selected ((t (:background ,light-blue :foreground "white"))))
 119   '(message-header-name-face ((t (:foreground "#729cfc"))))
 120   '(message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
 121   '(message-header-other-face ((t (:foreground "LightSkyBlue3"))))
 122   '(message-header-xheader-face ((t (:foreground "DodgerBlue3"))))
 123   '(message-header-subject ((t (:foreground "white"))))
 124   '(message-header-to ((t (:foreground "white"))))
 125   '(message-header-cc ((t (:foreground "white"))))
 126   '(org-hide ((t (:foreground "#252a2b"))))
 127   '(org-level-1 ((t (:bold t :foreground "#4788cc" :height 1.2))))
 128   '(org-level-2 ((t (:bold t :foreground "#6ac214" :height 1.1))))
 129   '(org-level-3 ((t (:bold t :foreground "#edd400" :height 1.0))))
 130   '(org-level-4 ((t (:bold t :foreground "tomato" :height 1.0))))
 131   '(org-footnote  ((t (:underline t :foreground "magenta3"))))
 132   '(org-link ((t (:foreground "SkyBlue2"))))
 133   '(org-special-keyword ((t (:foreground "brown1"))))
 134   '(org-verbatim ((t (:foreground "#eeeeec" :underline t :slant italic))))
 135   '(org-block ((t (:foreground "#bbbbbc"))))
 136   '(org-quote ((t (:inherit org-block :slant italic))))
 137   '(org-verse ((t (:inherit org-block :slant italic))))
 138   '(org-todo ((t (:bold t :foreground "#ff2020"))))
 139   '(org-done ((t (:bold t :foreground "forest green"))))
 140   '(org-mode-line-clock ((t (:foreground "#cc77ff" :background nil))))
 141   '(org-date ((t (:underline nil :foreground "#edd466" :background nil))))
 142   '(org-agenda-date ((t (:underline nil :foreground "SkyBlue2" :height 1.2))))
 143   '(org-agenda-date-today ((t (:inherit org-agenda-date :foreground "#edd466" :weight bold))))
 144   '(org-agenda-date-telecommuting ((t (:inherit org-agenda-date :foreground "#ffbb22" :weight bold))))
 145   '(org-agenda-date-weekend ((t (:inherit org-agenda-date :foreground "brown3" :weight bold))))
 146   '(anything-header ((t (:bold t :background "gray15" :foreground "#edd400"))))
 147   '(egocentric-face ((t (:foreground "#ff4289" :weight bold))))
 148   '(erc-direct-msg-face ((t (:foreground "#ee5577"))))
 149   '(erc-header-line ((t (:background "black" :foreground "white"))))
 150   '(erc-input-face ((t (:foreground "gray70"))))
 151   '(erc-my-nick-face ((t (:inherit egocentric-face :weight thin :foreground nil))))
 152   '(erc-notice-face ((t (:foreground "light blue" :weight thin))))
 153   '(erc-prompt-face ((t (:background "black" :foreground "gray80" :weight bold))))
 154   '(erc-timestamp-face ((t (:foreground "gray70" :weight bold))))
 155   '(erc-pal-face ((t (:foreground "DarkOliveGreen3" :weight bold))))
 156   '(erc-fool-face ((t (:foreground "gray60" :weight thin))))
 157   '(erc-current-nick-face ((t (:inherit egocentric-face :weight thin :foreground nil))))
 158   '(ido-subdir ((t (:foreground "orange1"))))
 159   '(which-func ((t (:foreground "#729cfc"))))
 160   '(mm-uu-extract ((t (:background "#404040"))))
 161   `(diff-added ((t (:foreground ,green))))
 162   `(diff-changed ((t (:foreground ,orange))))
 163   `(diff-removed ((t (:foreground ,red))))
 164   '(diff-hunk-header ((t (:bold t))))
 165   `(diff-function ((t (:foreground ,orange))))
 166   '(diff-header ((t (:background "grey10"))))
 167   '(diff-file-header ((t (:background nil :foreground "white"))))
 168   '(git-commit-summary-face ((t (:bold t))))
 169   `(git-commit-branch-face ((t (:foreground ,orange :bold t))))
 170   '(git-commit-nonempty-second-line-face ((t (:foreground "red"))))
 171   '(git-commit-comment-face ((t (:inherit font-lock-comment-face))))
 172   '(git-commit-known-pseudo-header-face ((t (:inherit gnus-header-name-face))))
 173   '(git-commit-pseudo-header-face ((t (:inherit gnus-header-content))))
 174   '(rst-level-1-face ((t (:inherit org-level-1 :background nil))))
 175   '(rst-level-2-face ((t (:inherit org-level-2 :background nil))))
 176   '(rst-level-3-face ((t (:inherit org-level-3 :background nil))))
 177   '(rst-level-4-face ((t (:inherit org-level-4 :background nil)))))
 178
 179 (provide-theme 'naquadah)
 180
 181 ;; Local Variables:
 182 ;; no-byte-compile: t
 183 ;; End:
 184
 185 ;;; naquadah-theme.el ends here