-
Notifications
You must be signed in to change notification settings - Fork 3
/
color-theme-cobalt.el
79 lines (75 loc) · 4.36 KB
/
color-theme-cobalt.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
;; Cobalt Color Theme for Emacs.
;;
;; Based loosely off color-theme-twilight by Marcus Crafter and default themes in the color-theme package
;; I'm sure I am missing some stuff, feel free to fork and fix
;;
;; To use add the following to your .emacs file
;; (require 'color-theme)
;; (color-theme-initialize)
;; (load-file "~/.emacs.d/color-theme-cobalt/color-theme-cobalt.el")
;; (color-theme-cobalt)
;;
;; Thanks to Jacob Rus, the Textmate Cobalt author and Marcus Crafter
;;
(defun color-theme-cobalt ()
"Color based off the TextMate Cobalt theme by Jacob Rus
and the Textmate Twilight Color Theme port by Marcus Crafter"
(interactive)
(color-theme-install
'(color-theme-cobalt
((background-color . "#092E52")
(foreground-color . "white"))
nil
(default ((t (nil))))
(fringe ((t (:background "#092E52"))))
(default ((t (:background "#141414" :foreground "#CACACA"))))
(blue ((t (:foreground "blue"))))
(border-glyph ((t (nil))))
(buffers-tab ((t (:background "#141414" :foreground "#CACACA"))))
(font-lock-builtin-face ((t (:foreground "#CACACA"))))
(font-lock-comment-face ((t (:italic t :foreground "#329BFF"))))
(font-lock-constant-face ((t (:foreground "#FB7A9E"))))
(font-lock-doc-string-face ((t (:foreground "DarkOrange"))))
(font-lock-function-name-face ((t (:foreground "#FCE200"))))
(font-lock-keyword-face ((t (:foreground "#FBAD00"))))
(font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
(font-lock-reference-face ((t (:foreground "SlateBlue"))))
(font-lock-regexp-grouping-backslash ((t (:foreground "#E9C062"))))
(font-lock-regexp-grouping-construct ((t (:foreground "red"))))
(minibuffer-prompt ((t (:foreground "#FCFD00"))))
(ido-subdir ((t (:foreground "#CF6A4C"))))
(ido-first-match ((t (:weight bold :foreground "#FCFD00"))))
(ido-only-match ((t (:weight bold :foreground "8F9D6A"))))
(mumamo-background-chunk-submode ((t (:background "#222222"))))
(font-lock-string-face ((t (:foreground "#53DD00"))))
(font-lock-type-face ((t (:foreground "#FCFD00"))))
(font-lock-warning-face ((t (:background "#EE799F" :foreground "red"))))
(gui-element ((t (:background "#D4D0C8" :foreground "black"))))
(region ((t (:background "#27292A"))))
(modeline ((t (:background "lightgray" :foreground "black" :box (:line-width -1 :style released-button :family "helv")))))
(modeline-buffer-id ((t (:background "lightgray" :foreground "#092E52" :slant normal :weight bold :width normal :family "outline-verdana"))))
(modeline-mousable ((t (:background "white" :foreground "DeepSkyBlue3"))))
(modeline-mousable-minor-mode ((t (:background "white" :foreground "DeepSkyBlue3"))))
(highlight ((t (:background "#111111"))))
(highline-face ((t (:background "SeaGreen"))))
(left-margin ((t (nil))))
(text-cursor ((t (:background "yellow" :foreground "black"))))
(toolbar ((t (nil))))
(underline ((nil (:underline nil))))
(ecb-token-header-face ((t (:background "#092E52"))))
(font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightGoldenrod" :slant italic :weight bold))))
;; (font-lock-builtin-face ((t (:bold t :foreground "LightSteelBlue" :weight bold))))
;; (font-lock-comment-face ((t (:italic t :foreground "medium aquamarine" :slant italic))))
;; (font-lock-constant-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
;; (font-lock-doc-face ((t (:bold t :weight bold))))
;; (font-lock-doc-string-face ((t (:bold t :foreground "aquamarine" :weight bold))))
;; (font-lock-exit-face ((t (:foreground "green"))))
;; (font-lock-function-name-face ((t (:italic t :bold t :foreground "LightSkyBlue" :slant italic :weight bold))))
;; (font-lock-keyword-face ((t (:bold t :foreground "Cyan" :weight bold))))
;; (font-lock-preprocessor-face ((t (:foreground "Gray85"))))
;; (font-lock-reference-face ((t (:foreground "cyan"))))
;; (font-lock-string-face ((t (:italic t :foreground "aquamarine" :slant italic))))
;; (font-lock-type-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
;; (font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightGoldenrod" :slant italic :weight bold))))
;; (font-lock-warning-face ((t (:bold t :foreground "Salmon" :weight bold))))
(zmacs-region ((t (:background "snow" :foreground "blue")))))))