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

Working version with Color palette and faces palette

Browse Source
This commit is contained in:
Paul Provost 2020-02-26 14:36:51 -05:00
parent 1073faabad
commit 589a48ba6c
1 changed files with 31 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
petrol-theme.el
View File

@ -45,24 +45,39 @@
(deftheme petrol (deftheme petrol
"Petrol light color theme.") "Petrol light color theme.")
(let ((class '((class color) (min-colors 89))) ;;,--------------
;;| Color Palette
;;`--------------
;;,----------------- (defvar petrol-colors-alist
;;| Generic colors. '(
;;`----------------- ("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.")
(petrol-blue "#006c96") (defmacro petrol-with-color-variables (&rest body)
(petrol-orange "#cc6d00") "`let' bind all colors defined in `petrol-colors-alist' around BODY.
(petrol-purple "#6c4ca8") Also bind `class' to ((class color) (min-colors 89))."
(petrol-red "#d0372d") (declare (indent 0))
`(let* ((class '((class color) (min-colors 89)))
;;,------------------ ,@(mapcar (lambda (cons)
;;| Specific colors. (list (intern (car cons)) (cdr cons)))
;;`------------------ petrol-colors-alist
(petrol-link '(:weight normal :foreground petrol-blue)) )
(petrol-link-visited '(:weight normal :foreground petrol-purple)) (petrol-link `(:weight normal :foreground ,petrol-blue))
(petrol-link-visited `(:weight normal :foreground ,petrol-purple))
)
,@body))
) (petrol-with-color-variables
(custom-theme-set-faces (custom-theme-set-faces
'petrol 'petrol
`(default ((,class (:background "#f6f6ed" :foreground "#454545")))) `(default ((,class (:background "#f6f6ed" :foreground "#454545"))))
@ -315,7 +330,7 @@
`(org-level-7 ((,class (:height 1.0 :weight bold :foreground "#008080")))) `(org-level-7 ((,class (:height 1.0 :weight bold :foreground "#008080"))))
`(org-level-8 ((,class (:height 1.0 :weight bold :foreground "#6c7378")))) `(org-level-8 ((,class (:height 1.0 :weight bold :foreground "#6c7378"))))
`(org-link ((,class ,link))) `(org-link ((,class ,petrol-link)))
`(org-block ((,class (:background "#f2f2f2")))) `(org-block ((,class (:background "#f2f2f2"))))
`(org-block-background ((,class (:background "#f2f2f2")))) `(org-block-background ((,class (:background "#f2f2f2"))))