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

Add: Save position when refreshing search buffers

Browse source
This commit is contained in:
Adam Porter 2019-08-31 23:21:28 -05:00
parent dbd385c664
commit 932960c686
2 changed files with 14 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

20
org-ql-agenda.el
View file

@ -252,13 +252,19 @@ TITLE: An optional string displayed in the header."
(defun org-ql-search-refresh ()
"Refresh current `org-ql-search' buffer."
(interactive)
(org-ql-agenda--agenda org-ql-buffers-files
org-ql-query
:sort org-ql-sort
:narrow org-ql-narrow
:super-groups org-ql-super-groups
:title org-ql-title
:buffer (current-buffer)))
(let ((current-line (buffer-substring-no-properties (line-beginning-position) (line-end-position)))
(old-pos (point)))
(org-ql-agenda--agenda org-ql-buffers-files
org-ql-query
:sort org-ql-sort
:narrow org-ql-narrow
:super-groups org-ql-super-groups
:title org-ql-title
:buffer (current-buffer))
(goto-char (point-min))
(or (search-forward current-line nil t)
(goto-char old-pos))
(beginning-of-line)))
(defun org-ql-search-save ()
"Save current `org-ql-search' buffer to `org-ql-views'."