public
Created

  • Download Gist
color-theme-library.el
Emacs Lisp
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
(defun color-theme-starlight ()
"Color theme by cheapRoc, based off the Emacs Twilight ColorTheme, created 2008-12-23"
(interactive)
(color-theme-install
'(color-theme-starlight
((background-color . "black")
(background-mode . dark)
(border-color . "black")
(cursor-color . "#A7A7A7")
(foreground-color . "#F8F8F8")
(mouse-color . "#666666"))
(default ((t (:background "black" :foreground "white"))))
(blue ((t (:foreground "blue"))))
(bold ((t (:bold t))))
(bold-italic ((t (:bold t))))
(border-glyph ((t (nil))))
(buffers-tab ((t (:background "black" :foreground "white"))))
(font-lock-builtin-face ((t (:foreground "white"))))
(font-lock-comment-face ((t (:foreground "#5F5A60"))))
(font-lock-constant-face ((t (:foreground "#009BC2"))))
(font-lock-doc-string-face ((t (:foreground "#446481"))))
(font-lock-function-name-face ((t (:foreground "#4E99EF"))))
(font-lock-keyword-face ((t (:foreground "#666666"))))
(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"))))
 
(font-lock-string-face ((t (:foreground "#9F82BA"))))
(font-lock-type-face ((t (:foreground "#F58AF3"))))
(font-lock-variable-name-face ((t (:foreground "#7587A6"))))
(font-lock-warning-face ((t (:bold t :foreground "Pink"))))
(hl-line ((t (:background "#112233"))))
(gui-element ((t (:background "#D4D0C8" :foreground "black"))))
(region ((t (:background "#27292A"))))
(mode-line ((t (:background "grey75" :foreground "black"))))
(highlight ((t (:background "#222222"))))
(highline-face ((t (:background "SeaGreen"))))
(italic ((t (nil))))
(left-margin ((t (nil))))
(text-cursor ((t (:background "yellow" :foreground "black"))))
(toolbar ((t (nil))))
(underline ((nil (:underline nil))))
(zmacs-region ((t (:background "snow" :foreground "blue")))))))
(add-to-list 'color-themes '(color-theme-starlight "Starlight" "cheapRoc"))

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.