1 ;;; light-blue-theme.el --- Custom theme for faces
3 ;; Copyright (C) 2011-2016 Free Software Foundation, Inc.
5 ;; Author: Drew Adams <drew.adams@oracle.com>
7 ;; This file is part of GNU Emacs.
9 ;; GNU Emacs is free software: you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by
11 ;; the Free Software Foundation, either version 3 of the License, or
12 ;; (at your option) any later version.
14 ;; GNU Emacs is distributed in the hope that it will be useful,
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;; GNU General Public License for more details.
19 ;; You should have received a copy of the GNU General Public License
20 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
24 ;; Extracted from the settings in oneonone.el by Drew Adams.
29 "Face colors utilizing a light blue background.")
31 (let ((class '((class color
) (min-colors 89))))
32 (custom-theme-set-faces
34 `(default ((,class
(:background
"LightBlue" :foreground
"black"))))
35 `(cursor ((,class
(:background
"red"))))
36 `(fringe ((,class
(:background
"gray85"))))
38 `(highlight ((,class
(:background
"cyan"))))
39 `(region ((,class
(:background
"MediumAquamarine"))))
40 `(secondary-selection ((,class
(:background
"white" :foreground
"black"))))
41 `(isearch ((,class
(:background
"green" :foreground
"Black"))))
42 `(lazy-highlight ((,class
(:background
"dark turquoise"))))
43 `(query-replace ((,class
(:inherit isearch
:background
"white" :foreground
"black"))))
44 `(match ((,class
(:background
"SkyBlue"))))
46 `(mode-line ((,class
(:background
"PaleGoldenrod" :foreground
"black" :box
(:line-width -
1 :style released-button
)))))
47 `(mode-line-buffer-id ((,class
(:overline
"red" :underline
"red"))))
48 `(mode-line-inactive ((,class
(:inherit mode-line
:background
"LightGray" :foreground
"grey20" :box
(:line-width -
1 :color
"grey75") :weight light
))))
49 ;; Escape and prompt faces
50 `(escape-glyph ((,class
(:background
"gold" :foreground
"blue" :box
(:line-width
1 :color
"blue" :style released-button
)))))
52 `(font-lock-builtin-face ((,class
(:foreground
"#b35caf"))))
53 `(font-lock-constant-face ((,class
(:foreground
"#00006DE06DE0"))))
54 `(font-lock-function-name-face ((,class
(:foreground
"red"))))
55 `(font-lock-keyword-face ((,class
(:foreground
"Blue3"))))
56 `(font-lock-string-face ((,class
(:foreground
"Magenta4"))))
57 `(font-lock-warning-face ((,class
(:foreground
"orange red" :weight bold
))))
59 `(next-error ((,class
(:inherit region
:background
"SkyBlue"))))))
61 (provide-theme 'light-blue
)
67 ;;; light-blue-theme.el ends here