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

Fix: (-view--bookmark-make-record) Replace buffers with filenames

Browse source
This commit is contained in:
Adam Porter 2020-11-02 21:35:42 -06:00
parent e5b4cd1065
commit 028c25c106
1 changed files with 18 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

18
org-ql-view.el
View file

@ -529,10 +529,24 @@ 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
(b-f) (or (buffer-file-name b-f)
(when (buffer-base-buffer b-f)
(buffer-file-name (buffer-base-buffer b-f)))
(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)))
((map :buffers-files) plist))
;; Replace buffers with their filenames, and signal error if any are not file-backed.
(setf plist (plist-put plist :buffers-files
(cl-etypecase buffers-files
(string buffers-files)
(buffer (file-nameize buffers-files))
(list (cl-loop for b-f in buffers-files
collect (file-nameize b-f))))))
(list (concat "Org QL View: " org-ql-view-title) (list (concat "Org QL View: " org-ql-view-title)
(cons 'org-ql-view-plist (org-ql-view--plist (current-buffer))) (cons 'org-ql-view-plist plist)
(cons 'handler #'org-ql-view--bookmark-handler) (cons 'handler #'org-ql-view--bookmark-handler)
(cons 'position (point)))) (cons 'position (point))))))
;;;###autoload ;;;###autoload
(defun org-ql-view--bookmark-handler (bookmark) (defun org-ql-view--bookmark-handler (bookmark)