192 lines
12 KiB
EmacsLisp
192 lines
12 KiB
EmacsLisp
;;; clues-theme.el --- an Emacs 24 theme which may well be fully awesome...
|
|
;;
|
|
;; Author: Jason Milkins <jasonm23@gmail.com>
|
|
;; Url: https://github.com/emacsfodder/emacs-clues-theme
|
|
;; Version: 1.0.1
|
|
;; Package-Requires: ((emacs "24.0"))
|
|
;;
|
|
;;; Changelog
|
|
;;
|
|
;; 1.0.1 - Source URL fixed
|
|
;;
|
|
;; 1.0.0 - tagged for Debian.
|
|
;;
|
|
;; 20140923.1012: Remove change to linum height, fix rainbow delimiters faces settings.
|
|
;;
|
|
;; 20140922.1722: Add highlight-indentation-mode support
|
|
;;
|
|
;; 20140417.1000: Improve visibility of diff backgrounds
|
|
;;
|
|
;; 20140410.1055: Improve visibility of linenums
|
|
;;
|
|
;; 20140228.0154: Improve visibility of region and secondary-selection
|
|
;;
|
|
;; 20140227.0115: Improve visibility of header-line
|
|
;;
|
|
;; 20130908.0801: Added git-gutter, diff support
|
|
;;
|
|
;; 20130908.0722: Update Js3 theming
|
|
;;
|
|
;; 20130906.1159: Fix commentary block
|
|
;;
|
|
;; 20130906.0211: Fix Magit item hightlight
|
|
;;
|
|
;; 20130905.2230: Updated header and minor changes
|
|
;;
|
|
;; 20130820.0702: Flymake/Flyspell error/warn to
|
|
;; underlines. Desaturated function name font lock fg.
|
|
;;
|
|
;; 20130720.559: Added rainbow mode switch (for editing) and fixed
|
|
;; default for terminal friendly use
|
|
;;
|
|
;; 20130715.0319: Modified keyword color
|
|
;;
|
|
;; 20130715.0252: Modifications for various colors. Added CUA
|
|
;; rectangle coloring. Highlight background and Button colors changed
|
|
;; for better visibility, reduced garish-icity ... That, is not a word.
|
|
;;
|
|
;; 20130714.2351: Background color normalised, based on pull by
|
|
;; Kaustav Das Modak (Github: kaustavdm) Added Rainbow delimeters
|
|
;;
|
|
;; 0.1.0: Basic start, the theme is really a note to myself -> Make
|
|
;; theme editor
|
|
;;
|
|
;; This program is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, version 3 of the License.
|
|
;;
|
|
;; This file is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
;;
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with GNU Emacs.
|
|
;;
|
|
;; This file is not a part of Emacs
|
|
|
|
;;; Commentary:
|
|
;;
|
|
;; Clues was initially based on a Visual Studio theme called 'Blues 'n
|
|
;; Roots' however it's a long way from looking much like it, aside
|
|
;; from the occasional color accent, Blues (despite it's name) has a
|
|
;; more toasted caramel flavor. Clues on the other hand is made up of
|
|
;; cooling colors with a couple of flecks of light cream/brown/orange
|
|
;; to break up any monotony, with yellow/gold rainbow-delimiters.
|
|
;;
|
|
;; Clues has become my working theme of choice since about 7/20/2013,
|
|
;; and when used with xterm-frobs.el, it looks great in the terminal
|
|
;; as well as the GUI.
|
|
;;
|
|
|
|
(deftheme clues
|
|
"clues theme - an Emacs 24 theme which may well be fully awesome...")
|
|
|
|
(custom-theme-set-variables
|
|
'clues
|
|
'(fringe-mode 8 nil (fringe))
|
|
'(linum-format " %4d \u2502 ")
|
|
'(main-line-color1 "#222232")
|
|
'(main-line-color2 "#333343")
|
|
'(powerline-color1 "#222232")
|
|
'(powerline-color2 "#333343"))
|
|
|
|
(custom-theme-set-faces
|
|
'clues
|
|
'(cursor ((t ( :background "orange" ))))
|
|
'(default
|
|
(
|
|
(((class color) (min-colors 16777216)) (:foreground "#C0E9F6" :background "#110B14"))
|
|
(((class color) (min-colors 88)) (:foreground "#fff" :background "#110B14"))
|
|
(((class color) (min-colors 16)) (:foreground "#fff" :background "#000"))
|
|
(((class color) (min-colors 8)) (:foreground "#fff" :background "#000")))
|
|
)
|
|
'(linum ((t (:foreground "#6a6a6a" :background "#000" ))))
|
|
'(minibuffer-prompt ((t (:foreground "#1278A8" :background nil :weight bold ))))
|
|
'(escape-glyph ((t (:foreground "orange" :background nil ))))
|
|
'(highlight ((t (:foreground "orange" :background nil ))))
|
|
'(region ((t ( :background "#342858" ))))
|
|
'(shadow ((t (:foreground "#777777" :background nil ))))
|
|
'(secondary-selection ((t ( :background "#342858" ))))
|
|
'(trailing-whitespace ((t (:foreground "#FFFFFF" :background "#C74000" ))))
|
|
'(font-lock-builtin-face ((t (:foreground "#55B1E2" :background nil ))))
|
|
'(font-lock-comment-face ((t (:foreground "#90A0A0" :background nil :slant italic ))))
|
|
'(font-lock-constant-face ((t (:foreground "#CFC5A9" :background nil ))))
|
|
`(font-lock-doc-string-face ((t (:foreground "#DFD3E9" :background nil ))))
|
|
'(font-lock-function-name-face ((t (:foreground "#BFC3A9" :background nil ))))
|
|
'(font-lock-keyword-face ((t (:foreground "#55C0D2" :background nil ))))
|
|
'(font-lock-negation-char-face ((t (:foreground "#C75311" :background nil ))))
|
|
'(font-lock-string-face ((t (:foreground "#94D4D9" :background nil ))))
|
|
'(font-lock-variable-name-face ((t (:foreground "#BDBA9F" :background nil ))))
|
|
'(font-lock-comment-delimiter-face ((t (:foreground "#3499aa" :background nil :inherit (font-lock-comment-face) ))))
|
|
'(font-lock-preprocessor-face ((t (:foreground "#A16C26" :background nil :inherit (font-lock-builtin-face) ))))
|
|
'(font-lock-regexp-grouping-backslash ((t (:foreground "#f66500" :background nil :inherit (bold) ))))
|
|
'(font-lock-regexp-grouping-construct ((t (:foreground "red" :background nil :inherit (bold) ))))
|
|
'(font-lock-doc-face ((t (:foreground "#90A0A0" :background nil :inherit (font-lock-string-face) ))))
|
|
'(font-lock-warning-face ((t (:foreground "#008000" :background nil :inherit (error) ))))
|
|
'(font-lock-type-face ((t (:foreground "#55aadd" :background nil :inherit (default) ))))
|
|
'(link ((t (:foreground "#00b7f0" :background nil :underline t ))))
|
|
'(link-visited ((t (:foreground "#4488cc" :underline t :inherit (link) ))))
|
|
'(button ((t (:foreground "#FFFFFF" :background "#444444" :underline t :inherit (link) ))))
|
|
'(fringe ((t ( :background "#110B14" ))))
|
|
'(next-error ((t ( :inherit (region) ))))
|
|
'(query-replace ((t ( :inherit (isearch) ))))
|
|
'(header-line ((t (:foreground "#EEEEEE" :background "#444444" :box nil :inherit (mode-line) ))))
|
|
'(mode-line-highlight ((t ( :box nil ))))
|
|
'(mode-line-emphasis ((t ( :weight bold ))))
|
|
'(mode-line-buffer-id ((t ( :box nil :weight bold ))))
|
|
'(mode-line-inactive ((t (:foreground "#555555" :background "#111111" :box nil :weight light :inherit (mode-line) ))))
|
|
'(mode-line ((t (:foreground "#777777" :background "#111111" :box nil :inherit (variable-pitch) ))))
|
|
'(isearch ((t (:foreground "#99ccee" :background "#444444" ))))
|
|
'(isearch-fail ((t ( :background "#ffaaaa" ))))
|
|
'(lazy-highlight ((t ( :background "#77bbdd" ))))
|
|
'(match ((t ( :background "#3388cc" ))))
|
|
'(tooltip ((t (:foreground "black" :background "LightYellow" :inherit (variable-pitch) ))))
|
|
'(highlight-indentation-face ((t ( :background "#122930" ))))
|
|
'(js3-function-param-face ((t (:foreground "#BFC3A9" ))))
|
|
'(js3-external-variable-face ((t (:foreground "#F0B090" :bold t ))))
|
|
'(cua-rectangle ((t (:foreground "#E0E4CC" :background "#342858" ))))
|
|
;; flyspell-mode
|
|
`(flyspell-incorrect ((t (:underline "#AA0000" :background nil :inherit nil ))))
|
|
`(flyspell-duplicate ((t (:underline "#009945" :background nil :inherit nil ))))
|
|
;; flymake-mode
|
|
`(flymake-errline ((t (:underline "#AA0000" :background nil :inherit nil ))))
|
|
`(flymake-warnline ((t (:underline "#009945" :background nil :inherit nil ))))
|
|
;; Magit hightlight
|
|
`(magit-item-highlight ((t (:foreground "white" :background "#1278A8" :inherit nil ))))
|
|
;;git-gutter
|
|
'(git-gutter:added ((t (:foreground "#609f60" :bold t))))
|
|
'(git-gutter:modified ((t (:foreground "#3388cc" :bold t))))
|
|
'(git-gutter:deleted ((t (:foreground "#cc3333" :bold t))))
|
|
'(diff-added ((t (:background "#305030"))))
|
|
'(diff-removed ((t (:background "#903010"))))
|
|
'(diff-changed ((t (:background "#103090"))))
|
|
'(diff-file-header ((t (:background "#362145"))))
|
|
'(diff-context ((t (:foreground "#E0E4CC"))))
|
|
'(diff-hunk-header ((t (:background "#242130"))))
|
|
|
|
'(rainbow-delimiters-depth-1-face ((t (:foreground "#99998A" ))))
|
|
'(rainbow-delimiters-depth-2-face ((t (:foreground "#776644" ))))
|
|
'(rainbow-delimiters-depth-3-face ((t (:foreground "#888866" ))))
|
|
'(rainbow-delimiters-depth-4-face ((t (:foreground "#AAAA88" ))))
|
|
'(rainbow-delimiters-depth-5-face ((t (:foreground "#CCCCAA" ))))
|
|
'(rainbow-delimiters-depth-6-face ((t (:foreground "#DEDEAA" ))))
|
|
'(rainbow-delimiters-depth-7-face ((t (:foreground "#EFEFBB" ))))
|
|
'(rainbow-delimiters-depth-8-face ((t (:foreground "#FFFFCC" ))))
|
|
'(rainbow-delimiters-depth-9-face ((t (:foreground "#FFFFEE" ))))
|
|
'(rainbow-delimiters-depth-unmatched-face ((t (:foreground "#AA0000" ))))
|
|
)
|
|
|
|
;;;###autoload
|
|
(when load-file-name
|
|
(add-to-list 'custom-theme-load-path
|
|
(file-name-as-directory (file-name-directory load-file-name))))
|
|
|
|
(provide-theme 'clues)
|
|
|
|
;; Local Variables:
|
|
;; eval: (when (fboundp 'rainbow-mode) (rainbow-mode +1))
|
|
;; End:
|
|
|
|
;;; clues-theme.el ends here
|