23 lines
1,002 B
EmacsLisp
23 lines
1,002 B
EmacsLisp
|
(eval-when-compile
|
||
|
|
(require 'color-theme))
|
||
|
|
|
||
|
|
(defun color-theme-example ()
|
||
|
|
"Example theme. Carbon copy of color-theme-gnome contributed by Jonadab."
|
||
|
|
(interactive)
|
||
|
|
(color-theme-install
|
||
|
|
'(color-theme-example
|
||
|
|
((foreground-color . "wheat")
|
||
|
|
(background-color . "darkslategrey")
|
||
|
|
(background-mode . dark))
|
||
|
|
(default ((t (nil))))
|
||
|
|
(region ((t (:foreground "cyan" :background "dark cyan"))))
|
||
|
|
(underline ((t (:foreground "yellow" :underline t))))
|
||
|
|
(modeline ((t (:foreground "dark cyan" :background "wheat"))))
|
||
|
|
(modeline-buffer-id ((t (:foreground "dark cyan" :background "wheat"))))
|
||
|
|
(modeline-mousable ((t (:foreground "dark cyan" :background "wheat"))))
|
||
|
|
(modeline-mousable-minor-mode ((t (:foreground "dark cyan" :background "wheat"))))
|
||
|
|
(italic ((t (:foreground "dark red" :italic t))))
|
||
|
|
(bold-italic ((t (:foreground "dark red" :bold t :italic t))))
|
||
|
|
(font-lock-comment-face ((t (:foreground "Firebrick"))))
|
||
|
|
(bold ((t (:bold)))))))
|