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

Merge: v0.7.3

Browse source
This commit is contained in:
Adam Porter 2023-10-23 18:55:00 -05:00
commit ee01bcb6e8
5 changed files with 140 additions and 107 deletions
Download patch file Download diff file Expand all files Collapse all files

10
org-ql-find.el
View file

@ -41,6 +41,7 @@
(defcustom org-ql-find-goto-hook '(org-show-entry org-reveal)
"Functions called when selecting an entry."
;; TODO: Add common choices, including `org-tree-to-indirect-buffer'.
:type 'hook)
(defcustom org-ql-find-display-buffer-action '(display-buffer-same-window)
@ -86,10 +87,11 @@ single predicate)."
:query-prefix query-prefix
:query-filter query-filter
:prompt prompt)))
(org-with-point-at marker
(display-buffer (current-buffer) org-ql-find-display-buffer-action)
(select-window (get-buffer-window (current-buffer)))
(run-hook-with-args 'org-ql-find-goto-hook))))
(set-buffer (marker-buffer marker))
(goto-char marker)
(display-buffer (current-buffer) org-ql-find-display-buffer-action)
(select-window (get-buffer-window (current-buffer)))
(run-hook-with-args 'org-ql-find-goto-hook)))
;;;###autoload
(defun org-ql-refile (marker)