paul/emacs-petrol-theme
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Reverted technique from zenburn

Browse Source 
Uses self-generating code, which is difficult to read and debug.
This commit is contained in:
Paul Provost 2020-02-27 07:24:52 -05:00
parent 589a48ba6c
commit f1a4746135
1 changed files with 18 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
petrol-theme.el
View File

@ -45,42 +45,27 @@
(deftheme petrol
"Petrol light color theme.")
;;,--------------
;;| Color Palette
;;`--------------
(let* ((class '((class color) (min-colors 89)))
(defvar petrol-colors-alist
'(
("petrol-fg" . "#454545")
("petrol-bg" . "#f6f6ed")
("petrol-blue" . "#006c96")
("petrol-orange" . "#cc6d00")
("petrol-purple" . "#6c4ca8")
("petrol-red" . "#d0372d")
)
"List of Petrol colors.
Each element has the form (NAME . HEX).
`+N' suffixes indicate a color is lighter.
`-N' suffixes indicate a color is darker.")
(defmacro petrol-with-color-variables (&rest body)
"`let' bind all colors defined in `petrol-colors-alist' around BODY.
Also bind `class' to ((class color) (min-colors 89))."
(declare (indent 0))
`(let* ((class '((class color) (min-colors 89)))
,@(mapcar (lambda (cons)
(list (intern (car cons)) (cdr cons)))
petrol-colors-alist
)
(petrol-link `(:weight normal :foreground ,petrol-blue))
(petrol-link-visited `(:weight normal :foreground ,petrol-purple))
)
,@body))
(petrol-with-color-variables
;;,-----------------
;;| Generic colors.
;;`-----------------
(petrol-fg "#454545")
(petrol-bg "#f6f6ed")
(petrol-blue "#006c96")
(petrol-orange "#cc6d00")
(petrol-purple "#6c4ca8")
(petrol-red "#d0372d")
;;,------------------
;;| Specific colors.
;;`------------------
(petrol-link `(:weight normal :foreground ,petrol-blue))
(petrol-link-visited `(:weight normal :foreground ,petrol-purple))
)
(custom-theme-set-faces
'petrol
`(default ((,class (:background "#f6f6ed" :foreground "#454545"))))
`(default ((,class (:background ,petrol-bg :foreground ,petrol-fg))))
`(cursor ((,class (:background "#00638a" :foreground "#f2f2f2" ))))