jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use transient's definition macros by their new names

Browse source 
See https://github.com/magit/transient/issues/192.
This commit is contained in:
Jonas Bernoulli 2022-03-14 15:52:28 +01:00
parent af18eac2b8
commit 3641fdcc15
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
org-ql-view.el
View file

@ -718,7 +718,7 @@ When opened, the link searches the buffer it's opened from."
(unless (or value transient--prefix)
(message "Unset %s" variable))))
(define-transient-command org-ql-view-dispatch ()
(transient-define-prefix org-ql-view-dispatch ()
"Show Org QL View dispatcher."
[["Edit"
("t" org-ql-view--transient-title)
@ -753,7 +753,7 @@ When opened, the link searches the buffer it's opened from."
org-ql-view--format-query
(org-ql-view--font-lock-string 'emacs-lisp-mode)))))
(define-infix-command org-ql-view--transient-title ()
(transient-define-infix org-ql-view--transient-title ()
;; TODO: Add an asterisk or something when the view has been modified but not saved.
:description (lambda () (org-ql-view--format-transient-key-value "Title" org-ql-view-title))
:class 'org-ql-view--variable
@ -766,7 +766,7 @@ When opened, the link searches the buffer it's opened from."
(format "%s" org-ql-view-title))
history)))
(define-infix-command org-ql-view--transient-query ()
(transient-define-infix org-ql-view--transient-query ()
:description (lambda () (org-ql-view--format-transient-lisp-argument "Query" org-ql-view-query))
:class 'org-ql-view--variable
:argument ""
@ -784,7 +784,7 @@ When opened, the link searches the buffer it's opened from."
;; Parse non-sexp query into sexp query.
(org-ql--query-string-to-sexp query)))))
(define-infix-command org-ql-view--transient-in ()
(transient-define-infix org-ql-view--transient-in ()
:description (lambda () (org-ql-view--format-transient-lisp-argument "In buffers/files" org-ql-view-buffers-files))
:class 'org-ql-view--variable
:argument ""
@ -795,7 +795,7 @@ When opened, the link searches the buffer it's opened from."
;; argument, but it gives the same result.
(org-ql-view--complete-buffers-files)))
(define-infix-command org-ql-view--transient-super-groups ()
(transient-define-infix org-ql-view--transient-super-groups ()
:description (lambda ()
(org-ql-view--format-transient-lisp-argument "Group by" org-ql-view-super-groups))
:class 'org-ql-view--variable
@ -806,7 +806,7 @@ When opened, the link searches the buffer it's opened from."
;; FIXME: Figure out how to integrate initial-input and history.
(org-ql-view--complete-super-groups)))
(define-infix-command org-ql-view--transient-sort ()
(transient-define-infix org-ql-view--transient-sort ()
:description
(lambda ()
(org-ql-view--format-transient-lisp-argument "Sort by" (or org-ql-view-sort 'buffer-order)))