dotfiles

commit f26ac6a300a341c1aa4485fc0663dc68616564e8
parent 2a775e7d589fae2dafff0ac46dcbab492d0b04b2
Author: Kévin Le Gouguec <kevin.legouguec@gmail.com>
Date:   Sat, 10 Jun 2023 23:14:28 +0200

Add "place" setter for theme palette

This came in handy in the revamp soon to be committed.

Diffstat:
M
.emacs.d/eighters-theme.el
 | 
5
+++++

1 file changed, 5 insertions(+), 0 deletions(-)
diff --git a/.emacs.d/eighters-theme.el b/.emacs.d/eighters-theme.el
@@ -117,6 +117,11 @@
 (defun eighters-color (symbol)
   (car (alist-get symbol eighters-palette)))
 
+(defun eighters-color-set (symbol value)
+  (setf (car (alist-get symbol eighters-palette)) value))
+
+(gv-define-simple-setter eighters-color eighters-color-set)
+
 (defface eighters-button nil
   "Face for elements that can be \"pushed\" with RET.")
 (defface eighters-citation-1 nil