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

Fix: (org-ql-view-bookmark-make-record) List of filenames

Browse source 
Fixes #148.  Thanks to @tpeacock19 for reporting.
This commit is contained in:
Adam Porter 2020-11-14 20:35:52 -06:00
parent 1b12d4e9b0
commit 0a2b751464
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
org-ql-view.el
View file

@ -544,10 +544,12 @@ dates in the past, and negative for dates in the future."
(defun org-ql-view-bookmark-make-record () (defun org-ql-view-bookmark-make-record ()
"Return a bookmark record for the current Org QL View buffer." "Return a bookmark record for the current Org QL View buffer."
(cl-labels ((file-nameize (cl-labels ((file-nameize
(b-f) (or (buffer-file-name b-f) (b-f) (cl-typecase b-f
(when (buffer-base-buffer b-f) (string b-f)
(buffer-file-name (buffer-base-buffer b-f))) (buffer (or (buffer-file-name b-f)
(user-error "Only file-backed buffers can be bookmarked by Org QL View: %s" b-f)))) (when (buffer-base-buffer b-f)
(buffer-file-name (buffer-base-buffer b-f)))))
(t (user-error "Only file-backed buffers can be bookmarked by Org QL View: %s" b-f)))))
(pcase-let* ((plist (org-ql-view--plist (current-buffer))) (pcase-let* ((plist (org-ql-view--plist (current-buffer)))
((map :buffers-files) plist)) ((map :buffers-files) plist))
;; Replace buffers with their filenames, and signal error if any are not file-backed. ;; Replace buffers with their filenames, and signal error if any are not file-backed.