88 lines
5.8 KiB
EmacsLisp
88 lines
5.8 KiB
EmacsLisp
; Color definitions
|
|
(defconst jwall-desert-bg "gray20")
|
|
(defconst jwall-desert-fg "GhostWhite")
|
|
(defconst jwall-desert-border-fg "khaki")
|
|
(defconst jwall-desert-cursor "white")
|
|
(defconst jwall-desert-gutter "gray15")
|
|
(defconst jwall-desert-mode-line-fg "gray10")
|
|
(defconst jwall-desert-mode-line-bg "linen")
|
|
(defconst jwall-desert-builtin "MediumPurple3")
|
|
(defconst jwall-desert-comment-fg "LightSkyBlue3")
|
|
(defconst jwall-desert-comment-bg jwall-desert-bg)
|
|
(defconst jwall-desert-function "PaleGreen3")
|
|
(defconst jwall-desert-keyword jwall-desert-border-fg)
|
|
(defconst jwall-desert-string "#ffa0a0")
|
|
(defconst jwall-desert-type jwall-desert-function)
|
|
(defconst jwall-desert-variable jwall-desert-fg)
|
|
(defconst jwall-desert-warning "goldenrod")
|
|
(defconst jwall-desert-todo-bg "OrangeRed")
|
|
(defconst jwall-desert-todo-fg "yellow2")
|
|
(defconst jwall-desert-minibuffer-fg jwall-desert-keyword)
|
|
(defconst jwall-desert-highlight-fg jwall-desert-border-fg)
|
|
(defconst jwall-desert-highlight-bg "OliveDrab")
|
|
(defconst jwall-desert-escape-glyph "#c4a000")
|
|
(defconst jwall-desert-region-fg "#555753")
|
|
(defconst jwall-desert-secondary-select-bg "steel blue")
|
|
(defconst jwall-desert-secondar-tw-bg "red")
|
|
(defconst jwall-desert-constant "pale green")
|
|
(defconst jwall-desert-doc "light sky blue")
|
|
(defconst jwall-desert-link "#729fcf")
|
|
(defconst jwall-desert-link-visited-bg "#3465a4")
|
|
(defconst jwall-desert-header-fg "grey90")
|
|
(defconst jwall-desert-header-bg jwall-desert-bg)
|
|
(defconst jwall-desert-tooltip-fg "black")
|
|
(defconst jwall-desert-tooltip-bg "lightyellow")
|
|
|
|
; Theme customizations
|
|
(when (>= emacs-major-version 24)
|
|
(deftheme jwall-desert-theme
|
|
"Created 2013-04-29.")
|
|
|
|
(custom-theme-set-faces
|
|
'jwall-desert-theme
|
|
'(default ((t (:family "courier" :width normal :height 140 :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :foreground "Grey" :background "Grey15" :stipple nil :inherit nil))))
|
|
'(cursor ((t (:background "white"))))
|
|
'(fixed-pitch ((t (:family "courier"))))
|
|
'(variable-pitch ((t (:family "helv"))))
|
|
'(escape-glyph ((t (:foreground "#c4a000"))))
|
|
'(minibuffer-prompt ((t (:weight bold :foreground "khaki"))))
|
|
'(highlight ((t (:foreground "khaki" :background "OliveDrab"))))
|
|
'(region ((t (:background "#555753" :inherit (highlight)))))
|
|
'(shadow ((((class color grayscale) (min-colors 88) (background light)) (:foreground "grey50")) (((class color grayscale) (min-colors 88) (background dark)) (:foreground "grey70")) (((class color) (min-colors 8) (background light)) (:foreground "green")) (((class color) (min-colors 8) (background dark)) (:foreground "yellow"))))
|
|
'(secondary-selection ((t (:background "steel blue"))))
|
|
'(trailing-whitespace ((t (:background "red"))))
|
|
'(font-lock-builtin-face ((t (:foreground "MediumPurple3"))))
|
|
'(font-lock-comment-delimiter-face ((default (:inherit (font-lock-comment-face)))))
|
|
'(font-lock-comment-face ((t (:background "gray20" :foreground "LightSkyBlue3"))))
|
|
'(font-lock-constant-face ((t (:foreground "pale green"))))
|
|
'(font-lock-doc-face ((t (:foreground "light sky blue"))))
|
|
'(font-lock-function-name-face ((t (:foreground "PaleGreen3"))))
|
|
'(font-lock-keyword-face ((t (:foreground "khaki"))))
|
|
'(font-lock-negation-char-face ((t nil)))
|
|
'(font-lock-preprocessor-face ((t (:inherit (font-lock-builtin-face)))))
|
|
'(font-lock-regexp-grouping-backslash ((t (:inherit (bold)))))
|
|
'(font-lock-regexp-grouping-construct ((t (:inherit (bold)))))
|
|
'(font-lock-string-face ((t (:foreground "#ffa0a0"))))
|
|
'(font-lock-type-face ((t (:foreground "PaleGreen3"))))
|
|
'(font-lock-variable-name-face ((t (:foreground "GhostWhite"))))
|
|
'(font-lock-warning-face ((t (:weight bold :foreground "goldenrod"))))
|
|
'(button ((t (:inherit (link)))))
|
|
'(link ((t (:underline t :foreground "#729fcf"))))
|
|
'(link-visited ((t (:underline t :foreground "#3465a4" :inherit (link)))))
|
|
'(fringe ((t (:background "gray15"))))
|
|
'(header-line ((t (:box nil :foreground "grey90" :background "grey20"))))
|
|
'(tooltip ((t (:foreground "black" :background "lightyellow"))))
|
|
'(mode-line ((t (:box (:line-width -1 :color nil :style released-button) :foreground "gray10" :background "linen"))))
|
|
'(mode-line-buffer-id ((t (:weight bold))))
|
|
'(mode-line-emphasis ((t (:weight bold))))
|
|
'(mode-line-highlight ((((class color) (min-colors 88)) (:box (:line-width 2 :color "grey40" :style released-button))) (t (:inherit (highlight)))))
|
|
'(mode-line-inactive ((t (:box (:line-width -1 :color nil :style released-button) :foreground "linen" :background "gray10"))))
|
|
'(isearch ((t (:foreground "#eeeeec" :background "slate blue"))))
|
|
'(isearch-fail ((((class color) (min-colors 88) (background light)) (:background "RosyBrown1")) (((class color) (min-colors 88) (background dark)) (:background "red4")) (((class color) (min-colors 16)) (:background "red")) (((class color) (min-colors 8)) (:background "red")) (((class color grayscale)) (:foreground "grey")) (t (:inverse-video t))))
|
|
'(lazy-highlight ((((class color) (min-colors 88) (background light)) (:background "paleturquoise")) (((class color) (min-colors 88) (background dark)) (:background "paleturquoise4")) (((class color) (min-colors 16)) (:background "turquoise3")) (((class color) (min-colors 8)) (:background "turquoise3")) (t (:underline t))))
|
|
'(match ((((class color) (min-colors 88) (background light)) (:background "yellow1")) (((class color) (min-colors 88) (background dark)) (:background "RoyalBlue3")) (((class color) (min-colors 8) (background light)) (:foreground "black" :background "yellow")) (((class color) (min-colors 8) (background dark)) (:foreground "white" :background "blue")) (((type tty) (class mono)) (:inverse-video t)) (t (:background "gray"))))
|
|
'(next-error ((t (:inherit (region)))))
|
|
'(query-replace ((t (:inherit (isearch))))))
|
|
(provide-theme 'jwall-desert-theme)
|
|
)
|