blob: 3f3795bd554319a52c618fb8c04d29f8190379d8 (
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
|
;; -*- 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))
(border ((t (:background "gray50"))))
(diff-removed ((t (:inherit diff-changed :foreground "red3"))))
(diff-added ((t (:inherit diff-changed :foreground "Lime green"))))
(diff-header ((t (:weight bold :background nil))))
(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))))
(fringe ((t (:background "gray10"))))
(highlight ((nil (:background "grey10"))))
(linum ((t (:background "gray10" :foreground "gray50" :height 0.8))))
(magit-item-highlight ((t (:background "gray10"))))
(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")))))))
(defun color-theme-alex-console ()
"Color theme by Alexander Sulfrian for console, created 2012-03-14."
(interactive)
(color-theme-alex)
(color-theme-install
'(color-theme-alex-console
()
(default ((t (:background nil :foreground "white"))))
(linum ((t (:background nil :foreground "white" :box nil
:strike-through nil :overline nil :underline nil
:slant normal :weight normal))))
(region ((nil (:inverse-video t)))))))
(provide 'color-themes-alex)
|
