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

Change: (-view--link-open, -view--link-store) Links to views of files

Browse source 
Fixes #147.  Thanks to @tpeacock19 for reporting.
This commit is contained in:
Adam Porter 2020-11-10 18:24:49 -06:00
parent 1b43a88d32
commit 5d563809e2
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
org-ql-view.el
View file

@ -597,8 +597,10 @@ protocol. See, e.g. `org-ql-view--link-store'."
(groups (--when-let (alist-get "super-groups" params nil nil #'string=) (groups (--when-let (alist-get "super-groups" params nil nil #'string=)
(read it))) (read it)))
(title (--when-let (alist-get "title" params nil nil #'string=) (title (--when-let (alist-get "title" params nil nil #'string=)
(read it)))
(buffers-files (--when-let (alist-get "buffers-files" params nil nil #'string=)
(read it)))) (read it))))
(org-ql-search (current-buffer) query (org-ql-search buffers-files query
:sort sort :sort sort
:super-groups groups :super-groups groups
:title title))) :title title)))
@ -610,9 +612,12 @@ When opened, the link searches the buffer it's opened from."
(require 'url-util) (require 'url-util)
(when org-ql-view-query (when org-ql-view-query
(unless (or (bufferp org-ql-view-buffers-files) (unless (or (bufferp org-ql-view-buffers-files)
(= 1 (length org-ql-view-buffers-files))) (and (listp org-ql-view-buffers-files)
(user-error "Only views searching a single buffer may be linked")) (cl-every #'file-exists-p org-ql-view-buffers-files)))
(let* ((params (list (when org-ql-view-super-groups (user-error "Can only store links to views of either a single buffer or a list of files"))
(let* ((params (list (when org-ql-view-buffers-files
(list "buffers-files" (prin1-to-string org-ql-view-buffers-files)))
(when org-ql-view-super-groups
(list "super-groups" (prin1-to-string org-ql-view-super-groups))) (list "super-groups" (prin1-to-string org-ql-view-super-groups)))
(when org-ql-view-sort (when org-ql-view-sort
(list "sort" (prin1-to-string org-ql-view-sort))) (list "sort" (prin1-to-string org-ql-view-sort)))