code.delx.au - gnu-emacs-elpa/blob - ahungry-theme.el

   1 ;;; ahungry-theme.el --- Ahungry color theme for Emacs.
   2
   3 ;; color theme ahungry - A bright and bold color theme for GNU Emacs
   4 ;; Copyright (C) 2013, 2014, 2015 Matthew Carter
   5
   6 ;;; License:
   7
   8 ;; This program is free software: you can redistribute it and/or modify
   9 ;; it under the terms of the GNU General Public License as published by
  10 ;; the Free Software Foundation, either version 3 of the License, or
  11 ;; (at your option) any later version.
  12 ;;
  13 ;; This program is distributed in the hope that it will be useful,
  14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 ;; GNU General Public License for more details.
  17 ;;
  18 ;; You should have received a copy of the GNU General Public License
  19 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  20
  21 ;; Author: Matthew Carter <m@ahungry.com>
  22 ;; Keywords: ahungry palette color theme emacs color-theme deftheme
  23 ;; URL: https://github.com/ahungry/color-theme-ahungry
  24 ;; Version: 1.0.2
  25 ;; Package-Requires: ((emacs "24"))
  26
  27 ;;; Commentary:
  28
  29 ;; Bright and bold color theme for GNU Emacs.
  30
  31 ;; If you load it from a terminal, you will be able to make use of the
  32 ;; transparent background.  If you load it from a GUI, it will default
  33 ;; to a dark background.
  34
  35 ;;; Code:
  36
  37 (deftheme ahungry
  38   "Ahungry Theme")
  39
  40 (let ((mainbg (if (display-graphic-p) "#222222" "default")))
  41   (custom-theme-set-faces
  42    'ahungry ;; This is the theme name
  43    `(default ((t (:foreground "#ffffff" :background ,mainbg
  44                               :family "Terminus" :foundry "xos4"
  45                               :slant normal :weight normal
  46                               :height 100 :width normal))))
  47    '(cursor ((t (:background "#fce94f" :foreground "#ffffff"))))
  48    '(highlight ((t (:background "brown4" :foreground nil))))
  49    '(border ((t (:background "#888a85"))))
  50    '(fringe ((t (:background "#333333"))))
  51    '(mode-line ((t (:foreground "#0022ff" :bold t :background "#77ff00"
  52                                 :box (:line-width 1 :color nil :style released-button)))))
  53    '(mode-line-inactive ((t (:foreground "#444444" :background "#66ff33"))))
  54    '(mode-line-buffer-id ((t (:bold t :foreground "#ffffff" :background "#0055ff"))))
  55    '(region ((t (:background "#444444"))))
  56    '(link ((t (:underline t :foreground "#33ff99"))))
  57    '(custom-link ((t (:inherit 'link))))
  58    '(match ((t (:bold t :background "#e9b96e" :foreground "#2e3436"))))
  59    '(tool-tips ((t (:inherit 'variable-pitch :foreground "black" :background "#ffff33"))))
  60    '(tooltip ((t (:inherit 'variable-pitch :foreground "black" :background "#ffff33"))))
  61    '(bold ((t (:bold t :underline nil :background nil))))
  62    '(italic ((t (:italic t :underline nil :background nil))))
  63    '(font-lock-builtin-face ((t (:foreground "#0055ff"))))
  64    '(font-lock-comment-face ((t (:foreground "#888a85" :bold nil :italic t))))
  65    '(font-lock-constant-face ((t (:foreground "#fff900"))))
  66    '(font-lock-doc-face ((t (:foreground "#777700" :bold t :italic t))))
  67    '(font-lock-keyword-face ((t (:foreground "#3cff00" :bold t))))
  68    '(font-lock-string-face ((t (:foreground "#ff0077" :italic nil :bold nil))))
  69    '(font-lock-type-face ((t (:foreground "#deff00" :bold t))))
  70    '(font-lock-variable-name-face ((t (:foreground "#5500ff" :bold t))))
  71    '(font-lock-warning-face ((t (:bold t :foreground "#ff0000"))))
  72    '(font-lock-function-name-face ((t (:foreground "#ffee00" :bold t))))
  73    '(comint-highlight-input ((t (:italic t :bold t))))
  74    '(comint-highlight-prompt ((t (:foreground "#33cc33"))))
  75    '(diff-header ((t (:background "#444444"))))
  76    '(diff-index ((t (:foreground "#ffff00" :bold t))))
  77    '(diff-file-header ((t (:foreground "#aaaaaa" :bold t))))
  78    '(diff-hunk-header ((t (:foreground "#ffff00"))))
  79    '(diff-added ((t (:background "default" :foreground "#00ff00" :weight normal))))
  80    '(diff-removed ((t (:background "default" :foreground "#ff0000" :weight normal))))
  81    '(diff-context ((t (:foreground "#777777"))))
  82    '(diff-refine-change ((t (:bold t :background "#444444"))))
  83    '(isearch ((t (:background "#ff6600" :foreground "#333333"))))
  84    '(isearch-lazy-highlight-face ((t (:foreground "#2e3436" :background "#ff6600"))))
  85    '(show-paren-match-face ((t (:background "#ff6600" :foreground "#2e3436"))))
  86    '(show-paren-mismatch-face ((t (:background "#999999" :foreground "#ff6600"))))
  87    '(info-xref ((t (:foreground "#33ffbb"))))
  88    '(info-xref-visited ((t (:foreground "#999999"))))
  89    '(diary ((t (:bold t :foreground "#ff0000"))))
  90    '(message-cited-text ((t (:foreground "#ffc800"))))
  91    '(gnus-cite-1 ((t (:foreground "#999999"))))
  92    '(gnus-cite-2 ((t (:foreground "#cba559"))))
  93    '(gnus-cite-3 ((t (:foreground "#83ae92"))))
  94    '(gnus-cite-4 ((t (:foreground "#6898a7"))))
  95    '(gnus-cite-face-1 ((t (:foreground "#999999"))))
  96    '(gnus-cite-face-2 ((t (:foreground "#cba559"))))
  97    '(gnus-cite-face-3 ((t (:foreground "#83ae92"))))
  98    '(gnus-cite-face-4 ((t (:foreground "#6898a7"))))
  99    '(gnus-group-mail-1-empty ((t (:foreground "#00bbff"))))
 100    '(gnus-group-mail-1 ((t (:bold t :foreground "#00bbff"))))
 101    '(gnus-group-mail-2-empty ((t (:foreground "#00ffbb"))))
 102    '(gnus-group-mail-2 ((t (:bold t :foreground "#00ffbb"))))
 103    '(gnus-group-mail-3-empty ((t (:foreground "#33ffbb"))))
 104    '(gnus-group-mail-3 ((t (:bold t :foreground "#ffc800"))))
 105    '(gnus-group-mail-low-empty ((t (:foreground "#005fff"))))
 106    '(gnus-group-mail-low ((t (:bold t :foreground "#005fff"))))
 107    '(gnus-group-news-1-empty ((t (:foreground "#00bbff"))))
 108    '(gnus-group-news-1 ((t (:bold t :foreground "#00bbff"))))
 109    '(gnus-group-news-2-empty ((t (:foreground "#00ffbb"))))
 110    '(gnus-group-news-2 ((t (:bold t :foreground "#00ffbb"))))
 111    '(gnus-group-news-3-empty ((t (:foreground "#33ffbb"))))
 112    '(gnus-group-news-3 ((t (:bold t :foreground "#ffc800"))))
 113    '(gnus-group-news-low-empty ((t (:foreground "#005fff"))))
 114    '(gnus-group-news-low ((t (:bold t :foreground "#005fff"))))
 115    '(gnus-header-name ((t (:bold t :foreground "#33ffbb"))))
 116    '(gnus-header-from ((t (:bold t :foreground "#ffc800"))))
 117    '(gnus-header-subject ((t (:foreground "#ffc800"))))
 118    '(gnus-header-content ((t (:italic t :foreground "#33cc33"))))
 119    '(gnus-header-newsgroups ((t (:italic t :bold t :foreground "#0088ff"))))
 120    '(gnus-signature ((t (:italic t :foreground "#666666"))))
 121    '(gnus-summary-cancelled ((t (:background "#222222" :foreground "#ffff00"))))
 122    '(gnus-summary-high-ancient ((t (:bold t :foreground "#0099ff"))))
 123    '(gnus-summary-high-read ((t (:bold t :foreground "#33ff99"))))
 124    '(gnus-summary-high-ticked ((t (:bold t :foreground "#f68585"))))
 125    '(gnus-summary-high-unread ((t (:bold t :foreground "#ffffff"))))
 126    '(gnus-summary-low-ancient ((t (:italic t :foreground "#33ff99"))))
 127    '(gnus-summary-low-read ((t (:italic t :foreground "#0099ff"))))
 128    '(gnus-summary-low-ticked ((t (:italic t :foreground "#ff3333"))))
 129    '(gnus-summary-low-unread ((t (:italic t :foreground "#ffffff"))))
 130    '(gnus-summary-normal-ancient ((t (:foreground "#0099ff"))))
 131    '(gnus-summary-normal-read ((t (:foreground "#33ff99"))))
 132    '(gnus-summary-normal-ticked ((t (:foreground "#ff0000"))))
 133    '(gnus-summary-normal-unread ((t (:foreground "#ffffff"))))
 134    '(gnus-summary-selected ((t (:background "brown4" :foreground "#ffffff"))))
 135    '(message-header-name ((t (:foreground "#f68585"))))
 136    '(message-header-newsgroups ((t (:italic t :bold t :foreground "#0088ff"))))
 137    '(message-header-other ((t (:foreground "#0088ff"))))
 138    '(message-header-xheader ((t (:foreground "#0088ff"))))
 139    '(message-header-subject ((t (:foreground "#ffffff"))))
 140    '(message-header-to ((t (:foreground "#ffffff"))))
 141    '(message-header-cc ((t (:foreground "#ffffff"))))
 142    '(org-hide ((t (:foreground "#009933"))))
 143    '(org-level-1 ((t (:bold t :foreground "#4477ff" :height 1.5))))
 144    '(org-level-2 ((t (:bold nil :foreground "#ffc800" :height 1.2))))
 145    '(org-level-3 ((t (:bold t :foreground "#00aa33" :height 1.0))))
 146    '(org-level-4 ((t (:bold nil :foreground "#f68585" :height 1.0))))
 147    '(org-date ((t (:underline t :foreground "#ff0066"))))
 148    '(org-footnote  ((t (:underline t :foreground "#ff0066"))))
 149    '(org-link ((t (:foreground "skyblue2" :background "#2e3436"))))
 150    '(org-special-keyword ((t (:foreground "#cc0033"))))
 151    '(org-verbatim ((t (:foreground "#cc6600" :underline t :slant italic))))
 152    '(org-block ((t (:foreground "#999999"))))
 153    '(org-quote ((t (:inherit org-block :bold t :slant italic))))
 154    '(org-verse ((t (:inherit org-block :bold t :slant italic))))
 155    '(org-todo ((t (:bold t :foreground "#ff0099"))))
 156    '(org-done ((t (:bold t :foreground "#00cc33"))))
 157    '(org-agenda-structure ((t (:weight bold :foreground "#f68585"))))
 158    '(org-agenda-date ((t (:foreground "#00ff55"))))
 159    '(org-agenda-date-weekend ((t (:weight normal :foreground "#005fff"))))
 160    '(org-agenda-date-today ((t (:weight bold :foreground "#ffc800"))))
 161    '(org-agenda-done ((t (:weight normal :foreground "#00aa33"))))
 162    '(org-block-begin-line ((t (:foreground "#bbbbbb" :background "#330066"))))
 163    '(org-block-background ((t (:background "#003366"))))
 164    '(org-block-end-line ((t (:foreground "#bbbbbb" :background "#330066"))))
 165    '(org-document-title ((t (:weight bold :foreground "#0077cc"))))
 166    '(org-document-info ((t (:weight normal :foreground "#0077cc"))))
 167    '(org-warning ((t (:weight normal :foreground "#ee0033"))))
 168    '(magit-header ((t (:foreground "#ffc800"))))
 169    '(magit-diff-add ((t (:foreground "#00ff00"))))
 170    '(magit-diff-del ((t (:foreground "#ff0000"))))
 171    '(magit-item-highlight ((t (:background "#111111" :slant normal :weight extra-bold :inverse-video nil))))
 172    '(minibuffer-prompt ((t (:foreground "#0055ff" :bold t))))
 173    '(web-mode-html-tag-bracket-face ((t (:foreground "#666666"))))
 174    )
 175   (custom-theme-set-variables
 176    'ahungry
 177    '(red "#ffffff"))
 178   )
 179
 180 (provide-theme 'ahungry)
 181
 182 ;;; ahungry-theme.el ends here