yogsototh/emacs-doom-themes
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove -palette indirection

Browse source
This commit is contained in:
Gerry Agbobada 2019-11-04 00:12:14 +01:00
parent 4869112148
commit 96b230df64
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
test/test-helper.el
View file

@ -7,7 +7,6 @@
(require 'doom-themes-base)
(defalias '-color-p 'doom-themes--colors-p)
(setq -palette 'doom-themes--colors)
;; (defalias '-build-face 'doom-themes--build-face)
(defun -build-face (face)
@ -20,9 +19,9 @@
(defmacro -with-colors! (colors &rest body)
(declare (indent defun))
`(let ((,-palette ',colors))
`(let ((doom-themes--colors ',colors))
(let* (,@colors)
(setq ,-palette
(setq doom-themes--colors
(list ,@(cl-loop for (var val) in colors
collect `(cons ',var ,val))))
,@body)))