magit / transient Goto Github PK

((magit-log
  (transient:magit-log:--first-parent . 1)
  (transient:magit-log:--no-merges . 1)))

/usr/local/Cellar/emacs-plus/26.1/Emacs.app/Contents/MacOS/Emacs -Q --eval \(setq\ debug-on-error\ t\) -L $HOME/.emacs.d/elpa/dash-20190413.1058/ -L $HOME/elpa/transient-20190419.2124/ -L $HOME/.emacs.d/elpa/with-editor-20190224.931/ -L $HOME/.emacs.d/elpa/magit-20190420.1907/ -L $HOME/.emacs.d/elpa/git-commit-20190413.1201/ -l $HOME/.emacs.d/elpa/magit-20190420.1907/magit`

       (transient-append-suffix
         'magit-merge "a"
         '("u"
           "Catch Up To Upstream"
           glyph-setup-merge-catch-up-to-upstream))

Debugger entered--Lisp error: (wrong-type-argument listp "")
  #f(compiled-function (suffix) #<bytecode 0x4476d0dd>)("")
  cl-member(nil ((1 transient-suffix (:key "p" :description "Preview merge" :command magit-merge-preview)) "" (1 transient-suffix (:key "s" :description "Squash merge" :command magit-merge-squash)) (1 transient-suffix (:key "i" :description "Merge into" :command magit-merge-into))) :if #f(compiled-function (suffix) #<bytecode 0x4476d0dd>))
  apply(cl-member nil ((1 transient-suffix (:key "p" :description "Preview merge" :command magit-merge-preview)) "" (1 transient-suffix (:key "s" :description "Squash merge" :command magit-merge-squash)) (1 transient-suffix (:key "i" :description "Merge into" :command magit-merge-into))) :if #f(compiled-function (suffix) #<bytecode 0x4476d0dd>) nil)
  cl-member-if(#f(compiled-function (suffix) #<bytecode 0x4476d0dd>) ((1 transient-suffix (:key "p" :description "Preview merge" :command magit-merge-preview)) "" (1 transient-suffix (:key "s" :description "Squash merge" :command magit-merge-squash)) (1 transient-suffix (:key "i" :description "Merge into" :command magit-merge-into))))
  transient--group-member("u" [1 transient-column nil ((1 transient-suffix (:key "p" :description "Preview merge" :command magit-merge-preview)) "" (1 transient-suffix (:key "s" :description "Squash merge" :command magit-merge-squash)) (1 transient-suffix (:key "i" :description "Merge into" :command magit-merge-into)))])
  transient--layout-member-1("u" [1 transient-column nil ((1 transient-suffix (:key "p" :description "Preview merge" :command magit-merge-preview)) "" (1 transient-suffix (:key "s" :description "Squash merge" :command magit-merge-squash)) (1 transient-suffix (:key "i" :description "Merge into" :command magit-merge-into)))] remove)
  transient--layout-member-1("u" [1 transient-columns (:description "Actions" :if-not magit-merge-in-progress-p) ([1 transient-column nil ((1 transient-suffix (:key "m" :description "Merge" :command magit-merge-plain)) (1 transient-suffix (:key "e" :description "Merge and edit message" :command magit-merge-editmsg)) (1 transient-suffix (:key "n" :description "Merge but don't commit" :command magit-merge-nocommit)) (1 transient-suffix (:key "a" :description "Absorb" :command magit-merge-absorb)))] [1 transient-column nil ((1 transient-suffix (:key "p" :description "Preview merge" :command magit-merge-preview)) "" (1 transient-suffix (:key "s" :description "Squash merge" :command magit-merge-squash)) (1 transient-suffix (:key "i" :description "Merge into" :command magit-merge-into)))])] remove)
  transient--layout-member-1("u" ([1 transient-column (:description "Arguments" :if-not magit-merge-in-progress-p) ((1 transient-switch (:key "-f" :description "Fast-forward only" :argument "--ff-only" :command transient:magit-merge:--ff-only)) (1 transient-switch (:key "-n" :description "No fast-forward" :argument "--no-ff" :command transient:magit-merge:--no-ff)) (1 transient-suffix (:command magit-merge:--strategy)) (5 transient-suffix (:command magit:--gpg-sign)))] [1 transient-columns (:description "Actions" :if-not magit-merge-in-progress-p) ([1 transient-column nil ((1 transient-suffix (:key "m" :description "Merge" :command magit-merge-plain)) (1 transient-suffix (:key "e" :description "Merge and edit message" :command magit-merge-editmsg)) (1 transient-suffix (:key "n" :description "Merge but don't commit" :command magit-merge-nocommit)) (1 transient-suffix (:key "a" :description "Absorb" :command magit-merge-absorb)))] [1 transient-column nil ((1 transient-suffix (:key "p" :description "Preview merge" :command magit-merge-preview)) "" (1 transient-suffix (:key "s" :description "Squash merge" :command magit-merge-squash)) (1 transient-suffix (:key "i" :description "Merge into" :command magit-merge-into)))])] [1 transient-column (:description "Actions" :if magit-merge-in-progress-p) ((1 transient-suffix (:key "m" :description "Commit merge" :command magit-commit-create)) (1 transient-suffix (:key "a" :description "Abort merge" :command magit-merge-abort)))]) remove)
  transient--layout-member("u" magit-merge remove)
  transient-remove-suffix(magit-merge "u")
  transient--insert-suffix(magit-merge "a" ("u" "Catch Up To Upstream" glyph-setup-merge-catch-up-to-upstream) append)
  transient-append-suffix(magit-merge "a" ("u" "Catch Up To Upstream" glyph-setup-merge-catch-up-to-upstream))
  eval((transient-append-suffix (quote magit-merge) "a" (quote ("u" "Catch Up To Upstream" glyph-setup-merge-catch-up-to-upstream))) nil)
  elisp--eval-last-sexp(nil)
  eval-last-sexp(nil)
  funcall-interactively(eval-last-sexp nil)
  call-interactively(eval-last-sexp nil nil)
  command-execute(eval-last-sexp)

Magit 20190525.1118, Git 2.21.0, Emacs 26.2, darwin

   [("p" "Preview merge"          magit-merge-preview)
    ""
    ("s" "Squash merge"           magit-merge-squash)

(magit-format-patch:--output-directory #s(#22=#s(eieio--class
transient-option #23="Class used for command-line argument that can
take a value." (#20=#s(eieio--class transient-argument #21="Abstract
superclass for infix arguments." (#17=#s(eieio--class transient-infix
#19="Transient infix command." (#14=#s(eieio--class transient-suffix
#16="Superclass for suffix command." (#2=#s(eieio--class
transient-child #3="Abstract superclass for group and and suffix
classes.

It is undefined what happens if more than one `if*' predicate slot is
non-nil." nil [#s(cl-slot-descriptor level 1 t ((:documentation
. #4="Enable if level of prefix is equal or greater.")))
#s(cl-slot-descriptor if nil t ((:documentation . #5="Enable if
predicate returns non-nil."))) #s(cl-slot-descriptor if-not nil t
((:documentation . #6="Enable if predicate returns nil.")))
#s(cl-slot-descriptor if-non-nil nil t ((:documentation . #7="Enable
if variable's value is non-nil."))) #s(cl-slot-descriptor if-nil nil t
((:documentation . #8="Enable if variable's value is nil.")))
#s(cl-slot-descriptor if-mode nil t ((:documentation . #9="Enable if
major-mode matches value."))) #s(cl-slot-descriptor if-not-mode nil t
((:documentation . #10="Enable if major-mode does not match value.")))
#s(cl-slot-descriptor if-derived nil t ((:documentation . #11="Enable
if major-mode derives from value."))) #s(cl-slot-descriptor
if-not-derived nil t ((:documentation . #12="Enable if major-mode does
not derive from value.")))] #s(hash-table size 65 test eq rehash-size
1.5 rehash-threshold 0.8125 data (level 0 if 1 if-not 2 if-non-nil 3
if-nil 4 if-mode 5 if-not-mode 6 if-derived 7 if-not-derived 8))
(transient-group transient-suffix) ((:level . level) (:if . if)
(:if-not . if-not) (:if-non-nil . if-non-nil) (:if-nil . if-nil)
(:if-mode . if-mode) (:if-not-mode . if-not-mode) (:if-derived
. if-derived) (:if-not-derived . if-not-derived)) #1=[] #1# #s(#2# 1
nil nil nil nil nil nil nil nil) (:custom-groups nil :documentation
#3# :abstract t))) [#s(cl-slot-descriptor level 1 t ((:documentation
. #4#))) #s(cl-slot-descriptor if nil t ((:documentation . #5#)))
#s(cl-slot-descriptor if-not nil t ((:documentation . #6#)))
#s(cl-slot-descriptor if-non-nil nil t ((:documentation . #7#)))
#s(cl-slot-descriptor if-nil nil t ((:documentation . #8#)))
#s(cl-slot-descriptor if-mode nil t ((:documentation . #9#)))
#s(cl-slot-descriptor if-not-mode nil t ((:documentation . #10#)))
#s(cl-slot-descriptor if-derived nil t ((:documentation . #11#)))
#s(cl-slot-descriptor if-not-derived nil t ((:documentation . #12#)))
#s(cl-slot-descriptor key #13=#:unbound t nil) #s(cl-slot-descriptor
command #13# t nil) #s(cl-slot-descriptor transient #13# t nil)
#s(cl-slot-descriptor format #15=" %k %d" t nil) #s(cl-slot-descriptor
description nil t nil)] #s(hash-table size 65 test eq rehash-size 1.5
rehash-threshold 0.8125 data (level 0 if 1 if-not 2 if-non-nil 3
if-nil 4 if-mode 5 if-not-mode 6 if-derived 7 if-not-derived 8 key 9
command 10 transient 11 format 12 description 13))
(magit--git-submodule-suffix transient-infix) ((:level . level) (:if
. if) (:if-not . if-not) (:if-non-nil . if-non-nil) (:if-nil . if-nil)
(:if-mode . if-mode) (:if-not-mode . if-not-mode) (:if-derived
. if-derived) (:if-not-derived . if-not-derived) (:key . key)
(:command . command) (:transient . transient) (:format . format)
(:description . description)) #1# #1# #s(#14# 1 nil nil nil nil nil
nil nil nil #13# #13# #13# #15# nil) (:custom-groups nil
:documentation #16#))) [#s(cl-slot-descriptor level 1 t
((:documentation . #4#))) #s(cl-slot-descriptor if nil t
((:documentation . #5#))) #s(cl-slot-descriptor if-not nil t
((:documentation . #6#))) #s(cl-slot-descriptor if-non-nil nil t
((:documentation . #7#))) #s(cl-slot-descriptor if-nil nil t
((:documentation . #8#))) #s(cl-slot-descriptor if-mode nil t
((:documentation . #9#))) #s(cl-slot-descriptor if-not-mode nil t
((:documentation . #10#))) #s(cl-slot-descriptor if-derived nil t
((:documentation . #11#))) #s(cl-slot-descriptor if-not-derived nil t
((:documentation . #12#))) #s(cl-slot-descriptor key #13# t nil)
#s(cl-slot-descriptor command #13# t nil) #s(cl-slot-descriptor
transient t t nil) #s(cl-slot-descriptor format #18=" %k %d (%v)" t
nil) #s(cl-slot-descriptor description nil t nil)
#s(cl-slot-descriptor argument #13# t nil) #s(cl-slot-descriptor
shortarg #13# t nil) #s(cl-slot-descriptor value nil t nil)
#s(cl-slot-descriptor multi-value nil t nil) #s(cl-slot-descriptor
allow-empty nil t nil) #s(cl-slot-descriptor history-key nil t nil)
#s(cl-slot-descriptor reader nil t nil) #s(cl-slot-descriptor prompt
nil t nil) #s(cl-slot-descriptor choices nil t nil)] #s(hash-table
size 65 test eq rehash-size 1.5 rehash-threshold 0.8125 data (level 0
if 1 if-not 2 if-non-nil 3 if-nil 4 if-mode 5 if-not-mode 6 if-derived
7 if-not-derived 8 key 9 command 10 transient 11 format 12 description
13 argument 14 shortarg 15 value 16 multi-value 17 allow-empty 18
history-key 19 reader 20 prompt 21 choices 22)) (transient-files
transient-variable transient-argument) ((:level . level) (:if . if)
(:if-not . if-not) (:if-non-nil . if-non-nil) (:if-nil . if-nil)
(:if-mode . if-mode) (:if-not-mode . if-not-mode) (:if-derived
. if-derived) (:if-not-derived . if-not-derived) (:key . key)
(:command . command) (:transient . transient) (:format . format)
(:description . description) (:argument . argument) (:shortarg
. shortarg) (:multi-value . multi-value) (:allow-empty . allow-empty)
(:history-key . history-key) (:reader . reader) (:prompt . prompt)
(:choices . choices)) #1# #1# #s(#17# 1 nil nil nil nil nil nil nil
nil #13# #13# t #18# nil #13# #13# nil nil nil nil nil nil nil)
(:custom-groups nil :documentation #19# :abstract t)))
[#s(cl-slot-descriptor level 1 t ((:documentation . #4#)))
#s(cl-slot-descriptor if nil t ((:documentation . #5#)))
#s(cl-slot-descriptor if-not nil t ((:documentation . #6#)))
#s(cl-slot-descriptor if-non-nil nil t ((:documentation . #7#)))
#s(cl-slot-descriptor if-nil nil t ((:documentation . #8#)))
#s(cl-slot-descriptor if-mode nil t ((:documentation . #9#)))
#s(cl-slot-descriptor if-not-mode nil t ((:documentation . #10#)))
#s(cl-slot-descriptor if-derived nil t ((:documentation . #11#)))
#s(cl-slot-descriptor if-not-derived nil t ((:documentation . #12#)))
#s(cl-slot-descriptor key #13# t nil) #s(cl-slot-descriptor command
#13# t nil) #s(cl-slot-descriptor transient t t nil)
#s(cl-slot-descriptor format #18# t nil) #s(cl-slot-descriptor
description nil t nil) #s(cl-slot-descriptor argument #13# t nil)
#s(cl-slot-descriptor shortarg #13# t nil) #s(cl-slot-descriptor value
nil t nil) #s(cl-slot-descriptor multi-value nil t nil)
#s(cl-slot-descriptor allow-empty nil t nil) #s(cl-slot-descriptor
history-key nil t nil) #s(cl-slot-descriptor reader nil t nil)
#s(cl-slot-descriptor prompt nil t nil) #s(cl-slot-descriptor choices
nil t nil)] #s(hash-table size 65 test eq rehash-size 1.5
rehash-threshold 0.8125 data (level 0 if 1 if-not 2 if-non-nil 3
if-nil 4 if-mode 5 if-not-mode 6 if-derived 7 if-not-derived 8 key 9
command 10 transient 11 format 12 description 13 argument 14 shortarg
15 value 16 multi-value 17 allow-empty 18 history-key 19 reader 20
prompt 21 choices 22)) (transient-switches transient-option
transient-switch) ((:level . level) (:if . if) (:if-not . if-not)
(:if-non-nil . if-non-nil) (:if-nil . if-nil) (:if-mode . if-mode)
(:if-not-mode . if-not-mode) (:if-derived . if-derived)
(:if-not-derived . if-not-derived) (:key . key) (:command . command)
(:transient . transient) (:format . format) (:description
. description) (:argument . argument) (:shortarg . shortarg)
(:multi-value . multi-value) (:allow-empty . allow-empty)
(:history-key . history-key) (:reader . reader) (:prompt . prompt)
(:choices . choices)) #1# #1# #s(#20# 1 nil nil nil nil nil nil nil
nil #13# #13# t #18# nil #13# #13# nil nil nil nil nil nil nil)
(:custom-groups nil :documentation #21# :abstract t)))
[#s(cl-slot-descriptor level 1 t ((:documentation . #4#)))
#s(cl-slot-descriptor if nil t ((:documentation . #5#)))
#s(cl-slot-descriptor if-not nil t ((:documentation . #6#)))
#s(cl-slot-descriptor if-non-nil nil t ((:documentation . #7#)))
#s(cl-slot-descriptor if-nil nil t ((:documentation . #8#)))
#s(cl-slot-descriptor if-mode nil t ((:documentation . #9#)))
#s(cl-slot-descriptor if-not-mode nil t ((:documentation . #10#)))
#s(cl-slot-descriptor if-derived nil t ((:documentation . #11#)))
#s(cl-slot-descriptor if-not-derived nil t ((:documentation . #12#)))
#s(cl-slot-descriptor key #13# t nil) #s(cl-slot-descriptor command
#13# t nil) #s(cl-slot-descriptor transient t t nil)
#s(cl-slot-descriptor format #18# t nil) #s(cl-slot-descriptor
description nil t nil) #s(cl-slot-descriptor argument #13# t nil)
#s(cl-slot-descriptor shortarg #13# t nil) #s(cl-slot-descriptor value
nil t nil) #s(cl-slot-descriptor multi-value nil t nil)
#s(cl-slot-descriptor allow-empty nil t nil) #s(cl-slot-descriptor
history-key nil t nil) #s(cl-slot-descriptor reader nil t nil)
#s(cl-slot-descriptor prompt nil t nil) #s(cl-slot-descriptor choices
nil t nil)] #s(hash-table size 65 test eq rehash-size 1.5
rehash-threshold 0.8125 data (level 0 if 1 if-not 2 if-non-nil 3
if-nil 4 if-mode 5 if-not-mode 6 if-derived 7 if-not-derived 8 key 9
command 10 transient 11 format 12 description 13 argument 14 shortarg
15 value 16 multi-value 17 allow-empty 18 history-key 19 reader 20
prompt 21 choices 22)) nil ((:level . level) (:if . if) (:if-not
. if-not) (:if-non-nil . if-non-nil) (:if-nil . if-nil) (:if-mode
. if-mode) (:if-not-mode . if-not-mode) (:if-derived . if-derived)
(:if-not-derived . if-not-derived) (:key . key) (:command . command)
(:transient . transient) (:format . format) (:description
. description) (:argument . argument) (:shortarg . shortarg)
(:multi-value . multi-value) (:allow-empty . allow-empty)
(:history-key . history-key) (:reader . reader) (:prompt . prompt)
(:choices . choices)) #1# #1# #s(#22# 1 nil nil nil nil nil nil nil
nil #13# #13# t #18# nil #13# #13# nil nil nil nil nil nil nil)
(:custom-groups nil :documentation #23#)) 1 nil nil nil nil nil nil
nil nil "C-m o " magit-format-patch:--output-directory t #18# "Output
directory" "--output-directory=" "-o" #24="/home/micha/today/" nil nil
nil transient-read-existing-directory nil nil) #24#)

transient-20190319.1928/transient.el
2388:         (cc (-reductions-from (apply-partially #'+ 3) 0 cw)))

dash-20190320.1406/dash.el
287:(defun -reductions-from (fn init list)
300:See also: `-reductions-from', `-reductions-r', `-reduce-r'"
301:  (and list (-reductions-from fn (car list) (cdr list))))
2741:                             "-reductions-from"

Debugger entered--Lisp error: (error "cl-etypecase failed: [eieio-class-tag--transient-column 1 nil nil nil nil nil nil nil nil ([eieio-class-tag--transient-suffix 1 nil nil nil nil nil nil nil nil p pc1-do unbound  %k %d pc1-do]) nil Prefix Command 1], (integer string list transient-group transient-suffix)")
  signal(error ("cl-etypecase failed: [eieio-class-tag--transient-column 1 nil nil nil nil nil nil nil nil ([eieio-class-tag--transient-suffix 1 nil nil nil nil nil nil nil nil p pc1-do unbound  %k %d pc1-do]) nil Prefix Command 1], (integer string list transient-group transient-suffix)"))
  error("cl-etypecase failed: %s, %s" [eieio-class-tag--transient-column 1 nil nil nil nil nil nil nil nil ([eieio-class-tag--transient-suffix 1 nil nil nil nil nil nil nil nil "p" pc1-do unbound " %k %d" "pc1-do"]) nil "Prefix Command 1"] (integer string list transient-group transient-suffix))
  #[257 "\211\250\203�

In GNU Emacs 25.3.1 (x86_64-w64-mingw32)
 of 2017-09-26 built on LAPHROAIG
Windowing system distributor 'Microsoft Corp.', version 10.0.16299

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  transient--use-level-p(nil)
  transient--init-suffix(nil nil)
  transient--init-child(nil nil)
  #f(compiled-function (c) #<bytecode 0x41d47af9>)(nil)
  mapcan(#f(compiled-function (c) #<bytecode 0x41d47af9>) ((1 transient-suffix (:key "s" :description "new spin-off" :command magit-branch-spinoff)) (1 transient-suffix (:key "n" :description "new branch" :command magit-branch-create)) (5 transient-suffix (:key "W" :description "new worktree" :command magit-worktree-branch)) (1 transient-suffix (:key "Y" :description "from pull-request" :command forge-branch-pullreq)) nil))
  cl-mapcan(#f(compiled-function (c) #<bytecode 0x41d47af9>) ((1 transient-suffix (:key "s" :description "new spin-off" :command magit-branch-spinoff)) (1 transient-suffix (:key "n" :description "new branch" :command magit-branch-create)) (5 transient-suffix (:key "W" :description "new worktree" :command magit-worktree-branch)) (1 transient-suffix (:key "Y" :description "from pull-request" :command forge-branch-pullreq)) nil))
  transient--init-group(nil [1 transient-column (:description "Create") ((1 transient-suffix (:key "s" :description "new spin-off" :command magit-branch-spinoff)) (1 transient-suffix (:key "n" :description "new branch" :command magit-branch-create)) (5 transient-suffix (:key "W" :description "new worktree" :command magit-worktree-branch)) (1 transient-suffix (:key "Y" :description "from pull-request" :command forge-branch-pullreq)) nil)])
  transient--init-child(nil [1 transient-column (:description "Create") ((1 transient-suffix (:key "s" :description "new spin-off" :command magit-branch-spinoff)) (1 transient-suffix (:key "n" :description "new branch" :command magit-branch-create)) (5 transient-suffix (:key "W" :description "new worktree" :command magit-worktree-branch)) (1 transient-suffix (:key "Y" :description "from pull-request" :command forge-branch-pullreq)) nil)])
  #f(compiled-function (c) #<bytecode 0x41d47a11>)([1 transient-column (:description "Create") ((1 transient-suffix (:key "s" :description "new spin-off" :command magit-branch-spinoff)) (1 transient-suffix (:key "n" :description "new branch" :command magit-branch-create)) (5 transient-suffix (:key "W" :description "new worktree" :command magit-worktree-branch)) (1 transient-suffix (:key "Y" :description "from pull-request" :command forge-branch-pullreq)) nil)])
  mapcan(#f(compiled-function (c) #<bytecode 0x41d47a11>) ([1 transient-column (:description "Checkout") ((1 transient-suffix (:key "l" :description "local branch" :command magit-branch-checkout)) (1 transient-suffix (:key "c" :description "new branch" :command magit-branch-and-checkout)) (5 transient-suffix (:key "w" :description "new worktree" :command magit-worktree-checkout)) (1 transient-suffix (:key "y" :description "pull-request" :command forge-checkout-pullreq)) (6 transient-suffix (:key "o" :description "new orphan" :command magit-branch-orphan)) (1 transient-suffix (:key "b" :description "dwim" :command magit-checkout)))] [1 transient-column (:description "Create") ((1 transient-suffix (:key "s" :description "new spin-off" :command magit-branch-spinoff)) (1 transient-suffix (:key "n" :description "new branch" :command magit-branch-create)) (5 transient-suffix (:key "W" :description "new worktree" :command magit-worktree-branch)) (1 transient-suffix (:key "Y" :description "from pull-request" :command forge-branch-pullreq)) nil)] [1 transient-column (:description "Do") ((1 transient-suffix (:key "C" :description "configure..." :command magit-branch-configure)) (1 transient-suffix (:key "m" :description "rename" :command magit-branch-rename)) (1 transient-suffix (:key "X" :description "reset" :command magit-branch-reset)) (1 transient-suffix (:key "x" :description "delete" :command magit-branch-delete)))]))
  cl-mapcan(#f(compiled-function (c) #<bytecode 0x41d47a11>) ([1 transient-column (:description "Checkout") ((1 transient-suffix (:key "l" :description "local branch" :command magit-branch-checkout)) (1 transient-suffix (:key "c" :description "new branch" :command magit-branch-and-checkout)) (5 transient-suffix (:key "w" :description "new worktree" :command magit-worktree-checkout)) (1 transient-suffix (:key "y" :description "pull-request" :command forge-checkout-pullreq)) (6 transient-suffix (:key "o" :description "new orphan" :command magit-branch-orphan)) (1 transient-suffix (:key "b" :description "dwim" :command magit-checkout)))] [1 transient-column (:description "Create") ((1 transient-suffix (:key "s" :description "new spin-off" :command magit-branch-spinoff)) (1 transient-suffix (:key "n" :description "new branch" :command magit-branch-create)) (5 transient-suffix (:key "W" :description "new worktree" :command magit-worktree-branch)) (1 transient-suffix (:key "Y" :description "from pull-request" :command forge-branch-pullreq)) nil)] [1 transient-column (:description "Do") ((1 transient-suffix (:key "C" :description "configure..." :command magit-branch-configure)) (1 transient-suffix (:key "m" :description "rename" :command magit-branch-rename)) (1 transient-suffix (:key "X" :description "reset" :command magit-branch-reset)) (1 transient-suffix (:key "x" :description "delete" :command magit-branch-delete)))]))
  transient--init-group(nil [1 transient-columns nil ([1 transient-column (:description "Checkout") ((1 transient-suffix (:key "l" :description "local branch" :command magit-branch-checkout)) (1 transient-suffix (:key "c" :description "new branch" :command magit-branch-and-checkout)) (5 transient-suffix (:key "w" :description "new worktree" :command magit-worktree-checkout)) (1 transient-suffix (:key "y" :description "pull-request" :command forge-checkout-pullreq)) (6 transient-suffix (:key "o" :description "new orphan" :command magit-branch-orphan)) (1 transient-suffix (:key "b" :description "dwim" :command magit-checkout)))] [1 transient-column (:description "Create") ((1 transient-suffix (:key "s" :description "new spin-off" :command magit-branch-spinoff)) (1 transient-suffix (:key "n" :description "new branch" :command magit-branch-create)) (5 transient-suffix (:key "W" :description "new worktree" :command magit-worktree-branch)) (1 transient-suffix (:key "Y" :description "from pull-request" :command forge-branch-pullreq)) nil)] [1 transient-column (:description "Do") ((1 transient-suffix (:key "C" :description "configure..." :command magit-branch-configure)) (1 transient-suffix (:key "m" :description "rename" :command magit-branch-rename)) (1 transient-suffix (:key "X" :description "reset" :command magit-branch-reset)) (1 transient-suffix (:key "x" :description "delete" :command magit-branch-delete)))])])
  transient--init-child(nil [1 transient-columns nil ([1 transient-column (:description "Checkout") ((1 transient-suffix (:key "l" :description "local branch" :command magit-branch-checkout)) (1 transient-suffix (:key "c" :description "new branch" :command magit-branch-and-checkout)) (5 transient-suffix (:key "w" :description "new worktree" :command magit-worktree-checkout)) (1 transient-suffix (:key "y" :description "pull-request" :command forge-checkout-pullreq)) (6 transient-suffix (:key "o" :description "new orphan" :command magit-branch-orphan)) (1 transient-suffix (:key "b" :description "dwim" :command magit-checkout)))] [1 transient-column (:description "Create") ((1 transient-suffix (:key "s" :description "new spin-off" :command magit-branch-spinoff)) (1 transient-suffix (:key "n" :description "new branch" :command magit-branch-create)) (5 transient-suffix (:key "W" :description "new worktree" :command magit-worktree-branch)) (1 transient-suffix (:key "Y" :description "from pull-request" :command forge-branch-pullreq)) nil)] [1 transient-column (:description "Do") ((1 transient-suffix (:key "C" :description "configure..." :command magit-branch-configure)) (1 transient-suffix (:key "m" :description "rename" :command magit-branch-rename)) (1 transient-suffix (:key "X" :description "reset" :command magit-branch-reset)) (1 transient-suffix (:key "x" :description "delete" :command magit-branch-delete)))])])
  #f(compiled-function (c) #<bytecode 0x442a2939>)([1 transient-columns nil ([1 transient-column (:description "Checkout") ((1 transient-suffix (:key "l" :description "local branch" :command magit-branch-checkout)) (1 transient-suffix (:key "c" :description "new branch" :command magit-branch-and-checkout)) (5 transient-suffix (:key "w" :description "new worktree" :command magit-worktree-checkout)) (1 transient-suffix (:key "y" :description "pull-request" :command forge-checkout-pullreq)) (6 transient-suffix (:key "o" :description "new orphan" :command magit-branch-orphan)) (1 transient-suffix (:key "b" :description "dwim" :command magit-checkout)))] [1 transient-column (:description "Create") ((1 transient-suffix (:key "s" :description "new spin-off" :command magit-branch-spinoff)) (1 transient-suffix (:key "n" :description "new branch" :command magit-branch-create)) (5 transient-suffix (:key "W" :description "new worktree" :command magit-worktree-branch)) (1 transient-suffix (:key "Y" :description "from pull-request" :command forge-branch-pullreq)) nil)] [1 transient-column (:description "Do") ((1 transient-suffix (:key "C" :description "configure..." :command magit-branch-configure)) (1 transient-suffix (:key "m" :description "rename" :command magit-branch-rename)) (1 transient-suffix (:key "X" :description "reset" :command magit-branch-reset)) (1 transient-suffix (:key "x" :description "delete" :command magit-branch-delete)))])])
  mapcan(#f(compiled-function (c) #<bytecode 0x442a2939>) ([1 transient-column (:description "Variables" :if (lambda nil (and magit-branch-direct-configure (oref transient--prefix scope)))) ((1 transient-suffix (:key "d" :command magit-branch\.<branch>\.description)) (1 transient-suffix (:key "u" :command magit-branch\.<branch>\.merge/remote)) (1 transient-suffix (:key "r" :command magit-branch\.<branch>\.rebase)) (1 transient-suffix (:key "p" :command magit-branch\.<branch>\.pushRemote)))] [1 transient-columns nil ([1 transient-column (:description "Checkout") ((1 transient-suffix (:key "l" :description "local branch" :command magit-branch-checkout)) (1 transient-suffix (:key "c" :description "new branch" :command magit-branch-and-checkout)) (5 transient-suffix (:key "w" :description "new worktree" :command magit-worktree-checkout)) (1 transient-suffix (:key "y" :description "pull-request" :command forge-checkout-pullreq)) (6 transient-suffix (:key "o" :description "new orphan" :command magit-branch-orphan)) (1 transient-suffix (:key "b" :description "dwim" :command magit-checkout)))] [1 transient-column (:description "Create") ((1 transient-suffix (:key "s" :description "new spin-off" :command magit-branch-spinoff)) (1 transient-suffix (:key "n" :description "new branch" :command magit-branch-create)) (5 transient-suffix (:key "W" :description "new worktree" :command magit-worktree-branch)) (1 transient-suffix (:key "Y" :description "from pull-request" :command forge-branch-pullreq)) nil)] [1 transient-column (:description "Do") ((1 transient-suffix (:key "C" :description "configure..." :command magit-branch-configure)) (1 transient-suffix (:key "m" :description "rename" :command magit-branch-rename)) (1 transient-suffix (:key "X" :description "reset" :command magit-branch-reset)) (1 transient-suffix (:key "x" :description "delete" :command magit-branch-delete)))])] [1 transient-columns (:hide (lambda nil (and (not (memq ... transient--common-command-prefixes)) (not transient-show-common-commands)))) ([1 transient-column (:description "Value commands") ((1 transient-suffix (:key "C-x s  " :description "Set" :command transient-set)) (1 transient-suffix (:key "C-x C-s" :description "Save" :command transient-save)) (1 transient-suffix (:key "M-p    " :description "Previous value" :command transient-history-prev)) (1 transient-suffix (:key "M-n    " :description "Next value" :command transient-history-next)))] [1 transient-column (:description "Sticky commands") ((1 transient-suffix (:key "C-g" :description "Quit prefix or transient" :command transient-quit-one)) (1 transient-suffix (:key "C-q" :description "Quit transient stack" :command transient-quit-all)) (1 transient-suffix (:key "C-z" :description "Suspend transient stack" :command transient-suspend)))] [1 transient-column (:description "Customize") ((1 transient-suffix (:key "C-x t" :command transient-toggle-common :description ...)) (1 transient-suffix (:key "C-x l" :description "Show/hide suffixes" :command transient-set-level)))])]))
  cl-mapcan(#f(compiled-function (c) #<bytecode 0x442a2939>) ([1 transient-column (:description "Variables" :if (lambda nil (and magit-branch-direct-configure (oref transient--prefix scope)))) ((1 transient-suffix (:key "d" :command magit-branch\.<branch>\.description)) (1 transient-suffix (:key "u" :command magit-branch\.<branch>\.merge/remote)) (1 transient-suffix (:key "r" :command magit-branch\.<branch>\.rebase)) (1 transient-suffix (:key "p" :command magit-branch\.<branch>\.pushRemote)))] [1 transient-columns nil ([1 transient-column (:description "Checkout") ((1 transient-suffix (:key "l" :description "local branch" :command magit-branch-checkout)) (1 transient-suffix (:key "c" :description "new branch" :command magit-branch-and-checkout)) (5 transient-suffix (:key "w" :description "new worktree" :command magit-worktree-checkout)) (1 transient-suffix (:key "y" :description "pull-request" :command forge-checkout-pullreq)) (6 transient-suffix (:key "o" :description "new orphan" :command magit-branch-orphan)) (1 transient-suffix (:key "b" :description "dwim" :command magit-checkout)))] [1 transient-column (:description "Create") ((1 transient-suffix (:key "s" :description "new spin-off" :command magit-branch-spinoff)) (1 transient-suffix (:key "n" :description "new branch" :command magit-branch-create)) (5 transient-suffix (:key "W" :description "new worktree" :command magit-worktree-branch)) (1 transient-suffix (:key "Y" :description "from pull-request" :command forge-branch-pullreq)) nil)] [1 transient-column (:description "Do") ((1 transient-suffix (:key "C" :description "configure..." :command magit-branch-configure)) (1 transient-suffix (:key "m" :description "rename" :command magit-branch-rename)) (1 transient-suffix (:key "X" :description "reset" :command magit-branch-reset)) (1 transient-suffix (:key "x" :description "delete" :command magit-branch-delete)))])] [1 transient-columns (:hide (lambda nil (and (not (memq ... transient--common-command-prefixes)) (not transient-show-common-commands)))) ([1 transient-column (:description "Value commands") ((1 transient-suffix (:key "C-x s  " :description "Set" :command transient-set)) (1 transient-suffix (:key "C-x C-s" :description "Save" :command transient-save)) (1 transient-suffix (:key "M-p    " :description "Previous value" :command transient-history-prev)) (1 transient-suffix (:key "M-n    " :description "Next value" :command transient-history-next)))] [1 transient-column (:description "Sticky commands") ((1 transient-suffix (:key "C-g" :description "Quit prefix or transient" :command transient-quit-one)) (1 transient-suffix (:key "C-q" :description "Quit transient stack" :command transient-quit-all)) (1 transient-suffix (:key "C-z" :description "Suspend transient stack" :command transient-suspend)))] [1 transient-column (:description "Customize") ((1 transient-suffix (:key "C-x t" :command transient-toggle-common :description ...)) (1 transient-suffix (:key "C-x l" :description "Show/hide suffixes" :command transient-set-level)))])]))
  transient--init-objects(magit-branch nil (:scope "master"))
  transient-setup(magit-branch nil nil :scope "master")
  magit-branch("master")
  funcall-interactively(magit-branch "master")
  call-interactively(magit-branch nil nil)
  command-execute(magit-branch)

(define-infix-argument my-magit-patch-create:--start-number ()
    :description "Start number"
    :class 'transient-option
    :argument "--start-number="
    :key "C-m n  "
    :reader 'transient-read-number-N+)
(transient-append-suffix 'magit-patch-create "C-m o" '(my-magit-patch-create:--start-number))

   ("C-m l  " "Add cover letter" "--cover-letter")

(plist-get (nth 2 suf) :key)

  evil-magit         20190216.1721
  forge              20190218.1841
  magit              20190217.2150
  magit-gitflow      20170929.824
  magit-popup        20181204.2031

Emacs => GNU Emacs 26.1 (build 1, x86_64-w64-mingw32)
transient.el => 20190215.1221
magit.el => 20190215.1359

	      ;; Insert a space that aligns the button properly.
	      (propertize " " 'display (list 'space :align-to column)
			  'face 'fixed-pitch)

(define-transient-command matcha-me-space ()
  "Space"
  [["Find"
    ("n" "Sidebar" dired-sidebar-toggle-sidebar)]]
  (interactive)
  (let ((transient-show-popup -.2))
    (transient-setup 'matcha-me-space)))

(defun tinas-suffix ()
  (interactive)
  42)

(define-transient-command tinas-transient
  "An example transient"
  ["Tina’s transient"
   ("t" "Tina’s suffix" tinas-suffix)])

(setq test-var (tinas-transient))
test-var

(defvar rtn-var nil)

(defun tinas-suffix ()
  (interactive)
  (setq rtn-var 42))

(define-transient-command tinas-transient
  "An example transient"
  ["Tina’s transient"
   ("t" "Tina’s suffix" tinas-suffix)])

(defun tinas-transient-wrapper ()
  (interactive)
  (setq rtn-var nil)
  (tinas-transient)
  (prog1 rtn-var
    (setq rtn-var nil)))

(setq test-var (tinas-transient-wrapper))
test-var