]> code.delx.au - gnu-emacs-elpa/blobdiff - ahungry-theme.el
Add/adjust some of the org-mode faces
[gnu-emacs-elpa] / ahungry-theme.el
index 450ac527da26ad7568c381ce0fd98c1289dccbd6..0180ddc021156cb7dd2a443af7a7b313e88d6240 100644 (file)
@@ -1,7 +1,15 @@
-;;; 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.9
+;; 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.8:
+;; - Add even more colors for magit 2.0 face names
+
+;;;; Changes since 1.0.7:
+;; - Add colors for magit 2.0 face names
+
+;;;; Changes since 1.0.6:
+;; - Remove warning producing call to "default" background color
+;; - Add a color update for mm-uu-extract
+
+;;;; Changes since 1.0.5:
+;; - Add a few colors for helm (the defaults did not work well with this theme)
+
+;;;; 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
   "Ahungry Theme")
 
-(let ((mainbg (if (display-graphic-p) "#222222" "default")))
+(let ((mainbg (when (display-graphic-p) "#222222")));; "default")))
   (custom-theme-set-faces
    'ahungry ;; This is the theme name
    `(default ((t (:foreground "#ffffff" :background ,mainbg
@@ -67,7 +92,7 @@
    '(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"))))
    '(message-header-subject ((t (:foreground "#ffffff"))))
    '(message-header-to ((t (:foreground "#ffffff"))))
    '(message-header-cc ((t (:foreground "#ffffff"))))
-   '(org-hide ((t (:foreground "#009933"))))
+   '(mm-uu-extract ((t (:foreground "#0066ff"))))
+   '(org-hide ((t (:foreground "#222222"))))
    '(org-level-1 ((t (:bold t :foreground "#4477ff" :height 1.5))))
    '(org-level-2 ((t (:bold nil :foreground "#ffc800" :height 1.2))))
    '(org-level-3 ((t (:bold t :foreground "#00aa33" :height 1.0))))
    '(org-block ((t (:foreground "#999999"))))
    '(org-quote ((t (:inherit org-block :bold t :slant italic))))
    '(org-verse ((t (:inherit org-block :bold t :slant italic))))
+   '(org-table ((t (:foreground "#0055ff"))))
    '(org-todo ((t (:bold t :foreground "#ff0099"))))
    '(org-done ((t (:bold t :foreground "#00cc33"))))
    '(org-agenda-structure ((t (:weight bold :foreground "#f68585"))))
    '(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-document-info-keyword ((t (:weight normal :foreground "#aaaaaa"))))
    '(org-warning ((t (:weight normal :foreground "#ee0033"))))
-   '(magit-header ((t (:foreground "#ffc800"))))
-   '(magit-diff-add ((t (:foreground "#00ff00"))))
-   '(magit-diff-del ((t (:foreground "#ff0000"))))
-   '(magit-item-highlight ((t (:background "#111111" :slant normal :weight extra-bold :inverse-video nil))))
+   '(magit-hash ((t (:foreground "#6699aa"))))
+   '(magit-branch-local ((t (:foreground "#0066ff"))))
+   '(magit-branch-remote ((t (:foreground "#ffcc44"))))
+   '(magit-diffstat-added ((t (:foreground "#00ff66"))))
+   '(magit-diff-added-highlight ((t (:foreground "#33ff00" :weight normal))))
+   '(magit-diff-added ((t (:foreground "#44aa00" :weight normal))))
+   '(magit-diff-removed-highlight ((t (:foreground "#ff0033" :weight normal))))
+   '(magit-diff-removed ((t (:foreground "#aa0044" :weight normal))))
+   '(magit-diff-hunk-heading ((t (:foreground "#aaaa00"))))
+   '(magit-diff-hunk-heading-highlight ((t (:foreground "#ffff00"))))
+   '(magit-diffstat-removed ((t (:foreground "#ff0066"))))
+   '(magit-diff-context-highlight ((t (:foreground "#ffffff"))))
+   '(magit-section-heading ((t (:foreground "#ff0066"))))
+   '(magit-section-highlight ((t (:weight bold))));;:foreground "#ffffff"))))
    '(minibuffer-prompt ((t (:foreground "#0055ff" :bold t))))
    '(web-mode-html-tag-bracket-face ((t (:foreground "#666666"))))
+   '(helm-selection ((t (:foreground "#ff0099" :italic t :bold t :background "#f2e997"))))
+   '(helm-match ((t (:foreground "gold1"))))
+   '(helm-visible-mark ((t (:background "#f2e997" :foreground "#ff0099" :bold nil :italic nil))))
    )
   (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