dotfiles

commit 73a0d32eba566a61483db08a197148646ac672e4
parent 5c916cbb4f2e6b89d9fb36052506ad6d425830f0
Author: Kévin Le Gouguec <kevin.legouguec@gmail.com>
Date:   Fri, 30 Dec 2022 15:03:33 +0100

Make setopt handle multiple variable/value pairs

Also move it up, closer to Custom-related stuff.

Diffstat:
M
.emacs
 | 
10
++++++----

1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/.emacs b/.emacs
@@ -16,6 +16,12 @@
 (setq custom-file "~/.emacs-custom.el")
 (load custom-file)
 
+(if (fboundp 'setopt)
+    (defalias 'my/setopt 'setopt)
+  (defmacro my/setopt (&rest pairs)
+    (while pairs
+      (customize-set-variable (pop pairs) (pop pairs)))))
+
 ;; Some list variables I don't set via Custom.  I can't tell Custom
 ;; "add this element, take those two away": I need to "set in stone"
 ;; an exhaustive list that will make me (1) scratch my head a few
@@ -28,10 +34,6 @@
   (declare (indent 1))
   (thread-first
     l (seq-union to-add) (seq-difference to-remove)))
-
-(if (fboundp 'setopt)
-    (defalias 'my/setopt 'setopt)
-  (defalias 'my/setopt 'customize-set-variable))
 
 ;;; Key bindings.