Refactor setq-hook!

Simplifies its expanded form and names the hook function to make the
hook's value more readable in help buffers.

core/core-lib.el

@@ -319,13 +319,24 @@ If N and M = 1, there's no benefit to using this macro over `remove-hook'.
   (declare (indent 1))
   (unless (= 0 (% (length rest) 2))
     (signal 'wrong-number-of-arguments (list #'evenp (length rest))))
-  `(add-hook! :append ,hooks
+  (let* ((vars (let ((args rest)
-     ,@(let (forms)
+                     vars)
-         (while rest
+                 (while args
-           (let ((var (pop rest))
+                   (push (symbol-name (car args)) vars)
-                 (val (pop rest)))
+                   (setq args (cddr args)))
-             (push `(setq-local ,var ,val) forms)))
+                 vars))
-         (nreverse forms))))
+         (fnsym (intern (format "doom|setq-%s" (string-join (sort vars #'string-lessp) "-")))))
+    (macroexp-progn
+     (append `((fset ',fnsym
+                     (lambda (&rest _)
+                       ,@(let (forms)
+                           (while rest
+                             (let ((var (pop rest))
+                                   (val (pop rest)))
+                               (push `(set (make-local-variable ',var) ,val) forms)))
+                           (nreverse forms)))))
+             (cl-loop for hook in (doom--resolve-hook-forms hooks)
+                      collect `(add-hook ',hook #',fnsym 'append))))))
 
 (defun advice-add! (symbols where functions)
   "Variadic version of `advice-add'.