Support including a top-level group from a variable

The first prefixes to use this are `magit-{log,diff}{,-refresh}', which see.
magit · Dec 17, 2024 · eebcbe3 · eebcbe3
1 parent be2189a
commit eebcbe3
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/lisp/transient.el b/lisp/transient.el
@@ -1206,6 +1206,16 @@ commands are aliases for."
       (setq level (pop spec)))
     (when (stringp (car spec))
       (setq args (plist-put args :description (pop spec))))
+    ;; Merge value of [... GROUP-VARIABLE], if any.
+    (let ((spec* spec))
+      (while (keywordp (car spec*))
+        (setq spec* (cddr spec*)))
+      (when (and (length= spec* 1) (symbolp (car spec*)))
+        (let ((rest (append (symbol-value (car spec*)) nil))
+              (args nil))
+          (while (keywordp (car rest))
+            (setq args (nconc (list (pop rest) (pop rest)) args)))
+          (setq spec (nconc args (butlast spec) rest)))))
     (while (keywordp (car spec))
       (let* ((key (pop spec))
              (val (if spec (pop spec) (error "No value for `%s'" key))))