blob: bbc52c4878a023c661ee71390dc986b964c8a4f1 (
plain) (
blame)
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
|
;; -*- self-compile-mode: t -*-
(eval-when-compile
(require 'color-theme))
(defun color-theme-alex ()
"Color theme by Alexander Sulfrian, created 2012-03-14."
(interactive)
(color-theme-install
'(color-theme-alex
((foreground-color . "grey90")
(background-color . "black")
(background-mode . dark))
(default ((t (:height 79))))
(border ((t (:background "gray50"))))
(fixed-pitch ((t (:family "terminus"))))
(font-lock-comment-face ((nil (:foreground "green3"))))
(font-lock-constant-face ((nil (:weight bold))))
(font-lock-negation-char-face ((t (:foreground "red" :weight bold))))
(font-lock-preprocessor-face ((t (:inherit font-lock-builtin-face :foreground "magenta"))))
(font-lock-string-face ((nil (:foreground "red2"))))
(font-lock-warning-face ((t (:foreground "Red" :weight bold))))
(highlight ((nil (:background "grey10"))))
(linum ((t (:background "gray10" :foreground "gray50" :box nil :overline nil :underline nil :slant normal :weight normal :height 0.75 :width normal))))
(mode-line ((t (:box (:line-width 1 :color "grey75")))))
(mode-line-highlight ((((class color) (min-colors 88)) (:box (:line-width 2 :color "grey40" :style released-button)))))
(mode-line-inactive ((default (:inherit mode-line :foreground "gray60")) (nil nil)))
(region ((((class color) (min-colors 88) (background dark)) (:inverse-video t))))
(scroll-bar ((t (:background "black" :foreground "gray25")))))))
;; '(custom-face-tag ((t (:weight bold))))
;; '(custom-group-tag ((((min-colors 88) (class color) (background light)) (:foreground "blue1" :weight bold))))
;; '(custom-group-tag-1 ((((min-colors 88) (class color) (background light)) (:foreground "red1" :weight bold :height 1.2))))
;; '(custom-variable-tag ((((min-colors 88) (class color) (background light)) (:foreground "blue1" :weight bold))))
;; '(fringe ((((class color) (background light)) (:background "gray80"))))
;; '(isearch ((((class color) (min-colors 88) (background dark)) (:background "yellow3" :foreground "black" :weight bold))))
;; '(italic ((((supports :underline t)) (:underline t))))
;; '(link ((((class color) (min-colors 88) (background dark)) (:foreground "cyan1" :underline t))))
;; '(linum ((t (:background "gray10" :foreground "gray50" :box nil :overline nil :underline nil :slant normal :weight normal :height 0.75 :width normal))))
;; '(menu ((t nil)))
;; '(mumamo-background-chunk-major ((((class color) (min-colors 88) (background light)) nil)))
;; '(mumamo-background-chunk-submode ((((class color) (min-colors 88) (background light)) nil)))
;; '(newsticker-immortal-item-face ((t (:foreground "blue" :slant italic :weight bold))))
;; '(newsticker-new-item-face ((t (:weight bold))))
;; '(newsticker-obsolete-item-face ((t (:strike-through t :weight bold))))
;; '(newsticker-old-item-face ((t (:foreground "red4" :weight bold))))
;; '(shadow ((((class color grayscale) (min-colors 88) (background dark)) (:foreground "grey50"))))
;; '(sml-modeline-end-face ((t (:inherit modeline))))
;; '(sml-modeline-vis-face ((t (:background "gray30"))))
;; '(tooltip ((t (:background "lightyellow" :foreground "black"))))
;; '(variable-pitch ((t (:family "terminus"))))
;; '(vhdl-font-lock-attribute-face ((((class color) (background light)) (:foreground "Orchid"))))
;; '(vhdl-font-lock-directive-face ((((class color) (background light)) (:foreground "cyan3"))))
;; '(vhdl-font-lock-prompt-face ((t (:foreground "Red"))))
;; '(vhl/default-face ((t (:inherit secondary-selection :background "darkred"))))
;; '(widget-button ((t (:background "grey75" :foreground "black" :box (:line-width 2 :color "grey75" :style released-button)))))
;; '(widget-field ((t (:background "gray85" :foreground "black"))))
;; '(widget-single-line-field ((t (:background "gray85")))))
(defun color-theme-alex-console ()
"Color theme by Alexander Sulfrian for console, created 2012-03-14."
(interactive)
(color-theme-alex)
(let ((color-theme-is-cumulative t))
(color-theme-install
'(color-theme-alex-console
((foreground-color . "white"))
(default ((t (:height 0.75))))
(region ((nil (:inverse-video t))))))))
(provide 'color-themes-alex)
|
