52 lines
2.5 KiB
EmacsLisp
52 lines
2.5 KiB
EmacsLisp
|
|
(defun color-theme-barak ()
|
|
"Color theme by Barak Michener, created 08-11-2010"
|
|
(interactive)
|
|
(color-theme-install
|
|
'(color-theme-barak
|
|
((background-color . "#000000")
|
|
(background-mode . dark)
|
|
(border-color . "#000000")
|
|
(cursor-color . "#A7A7A7")
|
|
(foreground-color . "#E0E0E0")
|
|
(mouse-color . "sienna1"))
|
|
(default ((t (:background "#000000" :foreground "#E0E0E0"))))
|
|
(blue ((t (:foreground "blue"))))
|
|
(bold ((t (:bold t))))
|
|
(bold-italic ((t (:bold t))))
|
|
(border-glyph ((t (nil))))
|
|
(buffers-tab ((t (:background "#121212" :foreground "#E0E0E0"))))
|
|
(font-lock-builtin-face ((t (:foreground "#E0E0E0"))))
|
|
(font-lock-comment-face ((t (:foreground "#238E23"))))
|
|
(font-lock-constant-face ((t (:foreground "#E3AC3D"))))
|
|
(font-lock-doc-string-face ((t (:foreground "DarkOrange"))))
|
|
(font-lock-function-name-face ((t (:foreground "#C5A6FF"))))
|
|
(font-lock-keyword-face ((t (:bold t :foreground "#4876FF"))))
|
|
(font-lock-preprocessor-face ((t (:foreground "#E9DFEF"))))
|
|
(font-lock-reference-face ((t (:foreground "#E1634F"))))
|
|
(font-lock-regexp-grouping-backslash ((t (:foreground "#E9C062"))))
|
|
(font-lock-regexp-grouping-construct ((t (:foreground "red"))))
|
|
(font-lock-string-face ((t (:foreground "#F05656"))))
|
|
(font-lock-type-face ((t (:foreground "#73E1E6"))))
|
|
(font-lock-variable-name-face ((t (:foreground "#00BFFF"))))
|
|
(font-lock-warning-face ((t (:bold t :foreground "Pink"))))
|
|
(gui-element ((t (:background "#D4D0C8" :foreground "black"))))
|
|
(region ((t (:background "#364458"))))
|
|
(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))))
|
|
(tabbar-default ((t (:background "black" :foreground "grey75"))))
|
|
(tabbar-selected ((t (:background "grey75" :foreground "black"))))
|
|
(tabbar-highlight ((t (:bold t))))
|
|
(underline ((nil (:underline nil))))
|
|
(zmacs-region ((t (:background "snow" :foreground "ble")))))))
|
|
(defun color-theme-barak-extras ()
|
|
; Highlight numbers
|
|
(add-hook 'after-change-major-mode-hook
|
|
(lambda () (font-lock-add-keywords
|
|
nil
|
|
'(("\\<\\(\\(0[xX]\\|0[bB]\\)?-?[0-9a-fA-F]+\\.?[0-9]*?[fFlL]?\\)\\>" 1 '((t (:foreground "#E3AC3D")))))))))
|