From f26ac6a300a341c1aa4485fc0663dc68616564e8 Mon Sep 17 00:00:00 2001 From: Kévin Le Gouguec Date: Sat, 10 Jun 2023 23:14:28 +0200 Subject: Add "place" setter for theme palette This came in handy in the revamp soon to be committed. --- .emacs.d/eighters-theme.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/.emacs.d/eighters-theme.el b/.emacs.d/eighters-theme.el index 6a8a265..f9781ec 100644 --- 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 -- cgit v1.2.3