;;; wheatgrass-theme.el --- custom theme for faces
-;; Copyright (C) 2010-2011 Free Software Foundation, Inc.
+;; Copyright (C) 2010-2015 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;;; Code:
(deftheme wheatgrass
- "A high-contrast theme with a black background.
+ "High-contrast green/blue/brown faces on a black background.
Basic, Font Lock, Isearch, Gnus, and Message faces are included.
The default face foreground is wheat, with other faces in shades
of green, brown, and blue.")
(custom-theme-set-faces
'wheatgrass
`(default ((,class (:foreground "wheat" :background "black"))))
- `(cursor ((,class (:foreground "black" :background "thistle"))))
+ `(cursor ((,class (:background "thistle"))))
+ `(error ((,class (:foreground "salmon1"))))
+ `(warning ((,class (:foreground "orange"))))
+ `(success ((,class (:foreground "yellow green"))))
+ ;; Compilation faces
+ `(compilation-mode-line-fail ((,class (:foreground "dark green"))))
+ `(compilation-mode-line-run ((,class (:foreground "dark goldenrod"))))
+ `(compilation-mode-line-exit ((,class (:foreground "SpringGreen4"))))
;; Highlighting faces
`(highlight ((,class (:foreground "white" :background "dark green"))))
`(region ((,class (:foreground "white" :background "dark green"))))
`(font-lock-string-face ((,class (:foreground "dark khaki"))))
`(font-lock-type-face ((,class (:foreground "aquamarine"))))
`(font-lock-variable-name-face ((,class (:foreground "yellow green"))))
- `(font-lock-warning-face ((,class (:foreground "salmon1"))))
;; Button and link faces
- `(button ((,class (:underline t :foreground "cyan"))))
`(link ((,class (:underline t :foreground "cyan"))))
`(link-visited ((,class (:underline t :foreground "dark cyan"))))
;; Gnus faces