branch: externals/transient
commit ebe9d9d3545e6e2552cfa4279fedb6ccbd9dd4cb
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
transient-{set,save}-value: New generic functions
---
lisp/transient.el | 22 +++++++++++++++-------
1 file changed, 15 insertions(+), 7 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index c441903ecc..10787e13ee 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1825,17 +1825,12 @@ transient is active."
(defun transient-set ()
"Save the value of the active transient for this Emacs session."
(interactive)
- (oset (oref transient--prefix prototype) value (transient-args))
- (transient--history-push))
+ (transient-set-value transient--prefix))
(defun transient-save ()
"Save the value of the active transient persistenly across Emacs sessions."
(interactive)
- (let ((value (transient-args)))
- (oset (oref transient--prefix prototype) value value)
- (setf (alist-get (oref transient--prefix command) transient-values) value)
- (transient-save-values))
- (transient--history-push))
+ (transient-save-value transient--prefix))
(defun transient-history-next ()
"Switch to the next value used for the active transient."
@@ -2175,6 +2170,19 @@ This implementation should be suitable for almost all
infix
commands. It simply calls `oset'."
(oset obj value value))
+(cl-defmethod transient-set-value ((obj transient-prefix))
+ (oset (oref obj prototype) value (transient-args))
+ (transient--history-push))
+
+;;;; Save
+
+(cl-defmethod transient-save-value ((obj transient-prefix))
+ (let ((value (transient-args)))
+ (oset (oref obj prototype) value value)
+ (setf (alist-get (oref obj command) transient-values) value)
+ (transient-save-values))
+ (transient--history-push))
+
;;;; Use
(cl-defgeneric transient-infix-value (obj)
