Bugfix: Update transient command definitions to work with latest transient.el

This commit is contained in:
Gergely Polonkai 2022-12-18 06:20:03 +01:00
parent 5494a70af6
commit 1ce3710340
No known key found for this signature in database
GPG Key ID: 2D2885533B869ED4

View File

@ -3683,40 +3683,40 @@ directory. It is available from [[http://plantuml.com/download][here]].
With the new Transient package it will be easier. I just dont know how to use it yet. With the new Transient package it will be easier. I just dont know how to use it yet.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(define-transient-command gpolonkai/clock-menu () (transient-define-prefix gpolonkai/clock-menu ()
[("I" "Clock in to last clocked task" org-clock-in-last) [("I" "Clock in to last clocked task" org-clock-in-last)
("g" "Go to the currently clocked task" org-clock-goto) ("g" "Go to the currently clocked task" org-clock-goto)
("i" "Clock in here" org-clock-in) ("i" "Clock in here" org-clock-in)
("o" "Clock out" org-clock-out)]) ("o" "Clock out" org-clock-out)])
(define-transient-command gpolonkai/special-files-menu () (transient-define-prefix gpolonkai/special-files-menu ()
[("i" "My Emacs init file" gpolonkai/visit-init-file) [("i" "My Emacs init file" gpolonkai/visit-init-file)
("o" "My main Org file" gpolonkai/visit-org-index)]) ("o" "My main Org file" gpolonkai/visit-org-index)])
(define-transient-command gpolonkai/git-menu () (transient-define-prefix gpolonkai/git-menu ()
[("g" "Update Git gutter everywhere" git-gutter:update-all-windows) [("g" "Update Git gutter everywhere" git-gutter:update-all-windows)
("m" "Show the origin of this line" git-messenger:popup-message) ("m" "Show the origin of this line" git-messenger:popup-message)
("n" "Next hunk" git-gutter:next-hunk) ("n" "Next hunk" git-gutter:next-hunk)
("p" "Previous hunk" git-gutter:previous-hunk)]) ("p" "Previous hunk" git-gutter:previous-hunk)])
(define-transient-command gpolonkai/mail-menu () (transient-define-prefix gpolonkai/mail-menu ()
[("c" "Compose mail" mu4e-compose-new) [("c" "Compose mail" mu4e-compose-new)
("i" "Jump to folder" mu4e~headers-jump-to-maildir) ("i" "Jump to folder" mu4e~headers-jump-to-maildir)
("m" "Mu4e main screen" mu4e) ("m" "Mu4e main screen" mu4e)
("s" "Mu4e search" mu4e-headers-search)]) ("s" "Mu4e search" mu4e-headers-search)])
(define-transient-command gpolonkai/sx-menu () (transient-define-prefix gpolonkai/sx-menu ()
[("i" "Inbox" sx-inbox) [("i" "Inbox" sx-inbox)
("s" "Search" sx-search)]) ("s" "Search" sx-search)])
(define-transient-command gpolonkai/zone-menu () (transient-define-prefix gpolonkai/zone-menu ()
[("i" "Enable zone on idle" gpolonkai/zone-enable) [("i" "Enable zone on idle" gpolonkai/zone-enable)
("q" "Disable zone on idle" zone-leave-me-alone)]) ("q" "Disable zone on idle" zone-leave-me-alone)])
(define-transient-command gpolonkai/python-menu () (transient-define-prefix gpolonkai/python-menu ()
[("p" "Poetry" poetry)]) [("p" "Poetry" poetry)])
(define-transient-command gpolonkai/menu () (transient-define-prefix gpolonkai/menu ()
[("a" "My agenda" gpolonkai/org-agenda-list) [("a" "My agenda" gpolonkai/org-agenda-list)
("b" "Where has my cursor gone?" beacon-blink) ("b" "Where has my cursor gone?" beacon-blink)
("C" "Capture" org-capture) ("C" "Capture" org-capture)