;;; clues-theme.el --- an Emacs 24 theme which may well be fully awesome... ;; ;; Author: Jason Milkins ;; 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