-;;; ahungry-theme.el --- Ahungry color theme for Emacs.
+;;; ahungry-theme.el --- Ahungry color theme for Emacs. Make sure to (load-theme 'ahungry).
-;; color theme ahungry - A bright and bold color theme for GNU Emacs
-;; Copyright (C) 2013, 2014, 2015 Matthew Carter <m@ahungry.com>
+;; Copyright (C) 2015 Free Software Foundation, Inc.
+
+;; Author: Matthew Carter <m@ahungry.com>
+;; Maintainer: Matthew Carter <m@ahungry.com>
+;; URL: https://github.com/ahungry/color-theme-ahungry
+;; Version: 1.0.5
+;; Keywords: ahungry palette color theme emacs color-theme deftheme
+;; Package-Requires: ((emacs "24"))
+
+;; This file is part of GNU Emacs.
;;; License:
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;; Author: Matthew Carter <m@ahungry.com>
-;; Keywords: ahungry palette color theme emacs color-theme deftheme
-;; URL: https://github.com/ahungry/color-theme-ahungry
-;; Version: 1.0.2
-;; Package-Requires: ((emacs "24"))
-
;;; Commentary:
;; Bright and bold color theme for GNU Emacs.
;; transparent background. If you load it from a GUI, it will default
;; to a dark background.
+;;; News:
+
+;;;; Changes since 1.0.4:
+;; - Don't circumvent normal autoloads functionality, use the comment load method
+
+;;;; Changes since 1.0.3:
+;; - Manually include an autoloads file to make sure
+;; custom-theme-load-path is filled out
+;; - Update description to make mention of (load-theme 'ahungry) for new users
+
;;; Code:
(deftheme ahungry
'(font-lock-keyword-face ((t (:foreground "#3cff00" :bold t))))
'(font-lock-string-face ((t (:foreground "#ff0077" :italic nil :bold nil))))
'(font-lock-type-face ((t (:foreground "#deff00" :bold t))))
- '(font-lock-variable-name-face ((t (:foreground "#5500ff" :bold t))))
+ '(font-lock-variable-name-face ((t (:foreground "#9900ff" :bold t))))
'(font-lock-warning-face ((t (:bold t :foreground "#ff0000"))))
'(font-lock-function-name-face ((t (:foreground "#ffee00" :bold t))))
'(comint-highlight-input ((t (:italic t :bold t))))
'(gnus-group-mail-1 ((t (:bold t :foreground "#00bbff"))))
'(gnus-group-mail-2-empty ((t (:foreground "#00ffbb"))))
'(gnus-group-mail-2 ((t (:bold t :foreground "#00ffbb"))))
- '(gnus-group-mail-3-empty ((t (:foreground "#33ffbb"))))
+ '(gnus-group-mail-3-empty ((t (:foreground "#009955"))))
'(gnus-group-mail-3 ((t (:bold t :foreground "#ffc800"))))
'(gnus-group-mail-low-empty ((t (:foreground "#005fff"))))
'(gnus-group-mail-low ((t (:bold t :foreground "#005fff"))))
'(gnus-group-news-1 ((t (:bold t :foreground "#00bbff"))))
'(gnus-group-news-2-empty ((t (:foreground "#00ffbb"))))
'(gnus-group-news-2 ((t (:bold t :foreground "#00ffbb"))))
- '(gnus-group-news-3-empty ((t (:foreground "#33ffbb"))))
+ '(gnus-group-news-3-empty ((t (:foreground "#009955"))))
'(gnus-group-news-3 ((t (:bold t :foreground "#ffc800"))))
'(gnus-group-news-low-empty ((t (:foreground "#005fff"))))
'(gnus-group-news-low ((t (:bold t :foreground "#005fff"))))
'(org-agenda-date-weekend ((t (:weight normal :foreground "#005fff"))))
'(org-agenda-date-today ((t (:weight bold :foreground "#ffc800"))))
'(org-agenda-done ((t (:weight normal :foreground "#00aa33"))))
- '(org-block-begin-line ((t (:foreground "#bbbbbb" :background "#330066"))))
- '(org-block-background ((t (:background "#003366"))))
- '(org-block-end-line ((t (:foreground "#bbbbbb" :background "#330066"))))
+ '(org-block-begin-line ((t (:foreground "#bbbbbb" :background "#333333"))))
+ '(org-block-background ((t (:background "#333333"))))
+ '(org-block-end-line ((t (:foreground "#bbbbbb" :background "#333333"))))
'(org-document-title ((t (:weight bold :foreground "#0077cc"))))
'(org-document-info ((t (:weight normal :foreground "#0077cc"))))
'(org-warning ((t (:weight normal :foreground "#ee0033"))))
'(magit-item-highlight ((t (:background "#111111" :slant normal :weight extra-bold :inverse-video nil))))
'(minibuffer-prompt ((t (:foreground "#0055ff" :bold t))))
'(web-mode-html-tag-bracket-face ((t (:foreground "#666666"))))
+ '(helm-selection ((t (:foreground "#0022ff" :bold t :background "#77ff00"))))
+ '(helm-match ((t (:foreground "gold1"))))
)
(custom-theme-set-variables
'ahungry
'(red "#ffffff"))
)
+;;;###autoload
+(when (and load-file-name (boundp 'custom-theme-load-path))
+ (add-to-list
+ 'custom-theme-load-path
+ (file-name-as-directory (file-name-directory load-file-name))))
+
(provide-theme 'ahungry)
;;; ahungry-theme.el ends here