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