[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/transient ea5ac99ffc 303/366: transient-show-help: Supp
From: |
Jonas Bernoulli |
Subject: |
[elpa] externals/transient ea5ac99ffc 303/366: transient-show-help: Support per-object help functions |
Date: |
Tue, 25 Jan 2022 18:54:49 -0500 (EST) |
branch: externals/transient
commit ea5ac99ffc9e6acf1abe65625e053ef47ac5045c
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
transient-show-help: Support per-object help functions
---
lisp/transient.el | 25 ++++++++++++++++---------
1 file changed, 16 insertions(+), 9 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 782a76441c..24cea4084d 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -598,8 +598,9 @@ If `transient-save-history' is nil, then do nothing."
(history :initarg :history :initform nil)
(history-pos :initarg :history-pos :initform 0)
(history-key :initarg :history-key :initform nil)
- (man-page :initarg :man-page :initform nil)
+ (show-help :initarg :show-help :initform nil)
(info-manual :initarg :info-manual :initform nil)
+ (man-page :initarg :man-page :initform nil)
(transient-suffix :initarg :transient-suffix :initform nil)
(transient-non-suffix :initarg :transient-non-suffix :initform nil)
(incompatible :initarg :incompatible :initform nil)
@@ -665,6 +666,7 @@ slot is non-nil."
(transient :initarg :transient)
(format :initarg :format :initform " %k %d")
(description :initarg :description :initform nil)
+ (show-help :initarg :show-help :initform nil)
(inapt :initform nil)
(inapt-if
:initarg :inapt-if
@@ -3279,8 +3281,9 @@ a prefix command, while porting a regular keymap to a
transient."
(cl-defmethod transient-show-help ((obj transient-prefix))
"Show the info manual, manpage or command doc-string.
Show the first one that is specified."
- (with-slots (info-manual man-page command) obj
- (cond (info-manual (transient--show-manual info-manual))
+ (with-slots (show-help info-manual man-page command) obj
+ (cond (show-help (funcall show-help obj))
+ (info-manual (transient--show-manual info-manual))
(man-page (transient--show-manpage man-page))
(t (transient--describe-function command)))))
@@ -3293,17 +3296,21 @@ Show the first one that is specified."
'transient--prefix)))
(and prefix (not (eq (oref transient--prefix command) this-command))
(prog1 t (transient-show-help prefix)))))
- (t (transient--describe-function this-command))))
+ (t (if-let ((show-help (oref obj show-help)))
+ (funcall show-help obj)
+ (transient--describe-function this-command)))))
(cl-defmethod transient-show-help ((obj transient-infix))
"Show the manpage if defined or the command doc-string.
If the manpage is specified, then try to jump to the correct
location."
- (if-let ((man-page (oref transient--prefix man-page))
- (argument (and (slot-boundp obj 'argument)
- (oref obj argument))))
- (transient--show-manpage man-page argument)
- (transient--describe-function this-command)))
+ (if-let ((show-help (oref obj show-help)))
+ (funcall show-help obj)
+ (if-let ((man-page (oref transient--prefix man-page))
+ (argument (and (slot-boundp obj 'argument)
+ (oref obj argument))))
+ (transient--show-manpage man-page argument)
+ (transient--describe-function this-command))))
;; `cl-generic-generalizers' doesn't support `command' et al.
(cl-defmethod transient-show-help (cmd)
- [elpa] externals/transient eb28c513a8 253/366: Release version 0.3.3, (continued)
- [elpa] externals/transient eb28c513a8 253/366: Release version 0.3.3, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 6e741ee2bd 260/366: Stop using oref-default to get default value of object-allocated slot, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 90a0562200 265/366: transient-highlight-higher-levels: New option, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 769219b5f5 272/366: Enable section movement, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 626d105ecf 274/366: transient--read-number-N: Return empty string instead of nil, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 57942fe961 280/366: manual: No longer depend on the ox-extra package, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient badebdd1c1 288/366: Set local checkdoc-symbol-words, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 7976562a3c 291/366: Sharp-quote functions, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 74cba5a418 296/366: Release version 0.3.7, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient df1ba0f144 301/366: transient-show-help: Cosmetics, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient ea5ac99ffc 303/366: transient-show-help: Support per-object help functions,
Jonas Bernoulli <=
- [elpa] externals/transient f4790969fe 312/366: make: Add stats target, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 28491e1f8e 321/366: Properly deal with stealth undefined command, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient 143a13938c 323/366: transient-infix-read: Always enable-recursive-minibuffers, Jonas Bernoulli, 2022/01/25
- [elpa] externals/transient f2e0dfcc4b 330/366: transient--get-predicate-for: Ignore error in transient--suffix-symbol, Jonas Bernoulli, 2022/01/25