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

   1 ;;; color-theme-ahungry.el --- Ahungry color theme for Emacs.
   2
   3 ;; color theme ahungry - A bright and bold color theme for GNU Emacs
   4 ;; Copyright (C) 2013 Matthew Carter
   5 ;;
   6 ;; This program is free software: you can redistribute it and/or modify
   7 ;; it under the terms of the GNU General Public License as published by
   8 ;; the Free Software Foundation, either version 3 of the License, or
   9 ;; (at your option) any later version.
  10 ;;
  11 ;; This program is distributed in the hope that it will be useful,
  12 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 ;; GNU General Public License for more details.
  15 ;;
  16 ;; You should have received a copy of the GNU General Public License
  17 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 ;; Author: Matthew Carter <m@ahungry.com>
  20 ;; Keywords: ahungry palette color theme emacs color-theme
  21 ;; Url: https://github.com/ahungry/color-theme-ahungry
  22 ;; Version: 1.0.1
  23 ;; Package-Requires: ((color-theme "6.6.1"))
  24
  25 ;;; Commentary:
  26
  27 ;; This file is NOT part of GNU Emacs.
  28 ;; color theme (requires http://www.emacswiki.org/cgi-bin/wiki?ColorTheme )
  29
  30 ;;; Code:
  31
  32 (eval-when-compile
  33   (require 'color-theme))
  34
  35 ;; Currently background-color and foreground-color are intentionally left
  36 ;; commented out, so that the color-theme in terminal mode will not overwrite
  37 ;; a transparent background, while still remaining usable in GUI mode
  38 (defun color-theme-ahungry ()
  39   "A color theme to my personal liking."
  40   (interactive)
  41   (color-theme-install
  42    '(color-theme-ahungry
  43      (;;(background-color . (if (display-graphic-p) "#2e3434" "default")) ; If -nw mode use transparent bg
  44       (background-mode . light)
  45       (border-color . "#888a85")
  46       (cursor-color . "#ffffff")
  47       ;;(foreground-color . "#ffffff")
  48       (mouse-color . "#8ae234"))
  49      (cursor ((t (:background "#fce94f" :foreground "#ffffff"))))
  50      (highlight ((t (:background "brown4" :foreground nil))))
  51      (border ((t (:background "#888a85"))))
  52      (fringe ((t (:background "grey10"))))
  53      (mode-line ((t (:foreground "#0022ff" :bold t :background "#77ff00"
  54                                  :box (:line-width 1 :color nil :style released-button)))))
  55      (mode-line-inactive ((t (:foreground "#444444" :background "#66ff33"))))
  56      (mode-line-buffer-id ((t (:bold t :foreground "#ffffff" :background "#0055ff"))))
  57      (region ((t (:background "#444444"))))
  58      (link ((t (:underline t :foreground "lime"))))
  59      (custom-link ((t (:inherit 'link))))
  60      (match ((t (:bold t :background "#e9b96e" :foreground "#2e3436"))))
  61      (tool-tips ((t (:inherit 'variable-pitch :foreground "black" :background "lightyellow"))))
  62      (tooltip ((t (:inherit 'variable-pitch :foreground "black" :background "lightyellow"))))
  63      (bold ((t (:bold t :underline nil :background nil))))
  64      (italic ((t (:italic t :underline nil :background nil))))
  65      (font-lock-builtin-face ((t (:foreground "#0055ff"))))
  66      (font-lock-comment-face ((t (:foreground "#888a85" :bold nil :italic t))))
  67      (font-lock-constant-face ((t (:foreground "#fff900"))))
  68      (font-lock-doc-face ((t (:foreground "#777700" :bold t :italic t))))
  69      (font-lock-keyword-face ((t (:foreground "#3cff00" :bold t))))
  70      (font-lock-string-face ((t (:foreground "#ff0077" :italic nil :bold nil))))
  71      (font-lock-type-face ((t (:foreground "#deff00" :bold t))))
  72      (font-lock-variable-name-face ((t (:foreground "#5500ff" :bold t))))
  73      (font-lock-warning-face ((t (:bold t :foreground "#ff0000"))))
  74      (font-lock-function-name-face ((t (:foreground "#ffee00" :bold t))))
  75      (comint-highlight-input ((t (:italic t :bold t))))
  76      (comint-highlight-prompt ((t (:foreground "#8ae234"))))
  77      (diff-header ((t (:background "gray30"))))
  78      (diff-index ((t (:foreground "#edd400" :bold t))))
  79      (diff-file-header ((t (:foreground "#eeeeec" :bold t))))
  80      (diff-hunk-header ((t (:foreground "#edd400"))))
  81      (diff-added ((t (:background "default" :foreground "#00ff00" :weight normal))))
  82      (diff-removed ((t (:background "default" :foreground "#ff0000" :weight normal))))
  83      (diff-context ((t (:foreground "#888a85"))))
  84      (diff-refine-change ((t (:bold t :background "gray30"))))
  85      (isearch ((t (:background "#f57900" :foreground "#2e3436"))))
  86      (isearch-lazy-highlight-face ((t (:foreground "#2e3436" :background "#e9b96e"))))
  87      (show-paren-match-face ((t (:foreground "#2e3436" :background "#73d216"))))
  88      (show-paren-mismatch-face ((t (:background "#999999" :foreground "#2e3436"))))
  89      (info-xref ((t (:foreground "#729fcf"))))
  90      (info-xref-visited ((t (:foreground "#999999"))))
  91      (diary-face ((t (:bold t :foreground "IndianRed"))))
  92      (message-cited-text ((t (:foreground "#ffc800"))))
  93      (gnus-cite-1 ((t (:foreground "#999999"))))
  94      (gnus-cite-2 ((t (:foreground "#cba559"))))
  95      (gnus-cite-3 ((t (:foreground "#83ae92"))))
  96      (gnus-cite-4 ((t (:foreground "#6898a7"))))
  97      (gnus-cite-face-1 ((t (:foreground "#999999"))))
  98      (gnus-cite-face-2 ((t (:foreground "#cba559"))))
  99      (gnus-cite-face-3 ((t (:foreground "#83ae92"))))
 100      (gnus-cite-face-4 ((t (:foreground "#6898a7"))))
 101      (gnus-group-mail-1-empty ((t (:foreground "light cyan"))))
 102      (gnus-group-mail-1 ((t (:bold t :foreground "light cyan"))))
 103      (gnus-group-mail-2-empty ((t (:foreground "turquoise"))))
 104      (gnus-group-mail-2 ((t (:bold t :foreground "turquoise"))))
 105      (gnus-group-mail-3-empty ((t (:foreground "#729fcf"))))
 106      (gnus-group-mail-3 ((t (:bold t :foreground "#ffc800"))))
 107      (gnus-group-mail-low-empty ((t (:foreground "#005fff"))))
 108      (gnus-group-mail-low ((t (:bold t :foreground "#005fff"))))
 109      (gnus-group-news-1-empty ((t (:foreground "light cyan"))))
 110      (gnus-group-news-1 ((t (:bold t :foreground "light cyan"))))
 111      (gnus-group-news-2-empty ((t (:foreground "turquoise"))))
 112      (gnus-group-news-2 ((t (:bold t :foreground "turquoise"))))
 113      (gnus-group-news-3-empty ((t (:foreground "#729fcf"))))
 114      (gnus-group-news-3 ((t (:bold t :foreground "#ffc800"))))
 115      (gnus-group-news-low-empty ((t (:foreground "#005fff"))))
 116      (gnus-group-news-low ((t (:bold t :foreground "#005fff"))))
 117      (gnus-header-name ((t (:bold t :foreground "#729fcf"))))
 118      (gnus-header-from ((t (:bold t :foreground "#ffc800"))))
 119      (gnus-header-subject ((t (:foreground "#ffc800"))))
 120      (gnus-header-content ((t (:italic t :foreground "#8ae234"))))
 121      (gnus-header-newsgroups ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
 122      (gnus-signature ((t (:italic t :foreground "dark grey"))))
 123      (gnus-summary-cancelled ((t (:background "black" :foreground "yellow"))))
 124      (gnus-summary-high-ancient ((t (:bold t :foreground "rotal blue"))))
 125      (gnus-summary-high-read ((t (:bold t :foreground "lime green"))))
 126      (gnus-summary-high-ticked ((t (:bold t :foreground "#f68585"))))
 127      (gnus-summary-high-unread ((t (:bold t :foreground "white"))))
 128      (gnus-summary-low-ancient ((t (:italic t :foreground "lime green"))))
 129      (gnus-summary-low-read ((t (:italic t :foreground "royal blue"))))
 130      (gnus-summary-low-ticked ((t (:italic t :foreground "dark red"))))
 131      (gnus-summary-low-unread ((t (:italic t :foreground "white"))))
 132      (gnus-summary-normal-ancient ((t (:foreground "royal blue"))))
 133      (gnus-summary-normal-read ((t (:foreground "lime green"))))
 134      (gnus-summary-normal-ticked ((t (:foreground "indian red"))))
 135      (gnus-summary-normal-unread ((t (:foreground "white"))))
 136      (gnus-summary-selected ((t (:background "brown4" :foreground "white"))))
 137      (message-header-name ((t (:foreground "#f68585"))))
 138      (message-header-newsgroups ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
 139      (message-header-other ((t (:foreground "LightSkyBlue3"))))
 140      (message-header-xheader ((t (:foreground "DodgerBlue3"))))
 141      (message-header-subject ((t (:foreground "white"))))
 142      (message-header-to ((t (:foreground "white"))))
 143      (message-header-cc ((t (:foreground "white"))))
 144      (org-hide ((t (:foreground "#2e3436"))))
 145      (org-level-1 ((t (:bold t :foreground "#4477ff" :height 1.5))))
 146      (org-level-2 ((t (:bold nil :foreground "#ffc800" :height 1.2))))
 147      (org-level-3 ((t (:bold t :foreground "#6ac214" :height 1.0))))
 148      (org-level-4 ((t (:bold nil :foreground "#f68585" :height 1.0))))
 149      (org-date ((t (:underline t :foreground "magenta3"))))
 150      (org-footnote  ((t (:underline t :foreground "magenta3"))))
 151      (org-link ((t (:foreground "skyblue2" :background "#2e3436"))))
 152      (org-special-keyword ((t (:foreground "brown"))))
 153      (org-verbatim ((t (:foreground "#eeeeec" :underline t :slant italic))))
 154      (org-block ((t (:foreground "#bbbbbc"))))
 155      (org-quote ((t (:inherit org-block :slant italic))))
 156      (org-verse ((t (:inherit org-block :slant italic))))
 157      (org-todo ((t (:bold t :foreground "Red"))))
 158      (org-done ((t (:bold t :foreground "ForestGreen"))))
 159      (org-agenda-structure ((t (:weight bold :foreground "#f68585"))))
 160      (org-agenda-date ((t (:foreground "#6ac214"))))
 161      (org-agenda-date-weekend ((t (:weight normal :foreground "#005fff"))))
 162      (org-agenda-date-today ((t (:weight bold :foreground "#ffc800"))))
 163      (org-block-begin-line ((t (:foreground "#888a85" :background "#252b2b"))))
 164      (org-block-background ((t (:background "#252b2b"))))
 165      (org-block-end-line ((t (:foreground "#888a85" :background "#252b2b"))))
 166      (org-document-title ((t (:weight bold :foreground "#0077cc"))))
 167      (org-document-info ((t (:weight normal :foreground "#0077cc"))))
 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
 176 (provide 'color-theme-ahungry)
 177
 178 ;;; color-theme-ahungry.el ends here