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

Fix: Abbreviate file paths in created org-ql bookmarks

Browse source
This commit is contained in:
Akira Komamura 2021-04-17 13:01:11 +09:00 • committed by Adam Porter
parent 9dfa534e60
commit da2bab2552
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
org-ql-view.el
View file

@ -533,12 +533,13 @@ 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) (cl-typecase b-f (b-f) (abbreviate-file-name
(string b-f) (cl-typecase b-f
(buffer (or (buffer-file-name b-f) (string b-f)
(when (buffer-base-buffer b-f) (buffer (or (buffer-file-name b-f)
(buffer-file-name (buffer-base-buffer b-f))))) (when (buffer-base-buffer b-f)
(t (user-error "Only file-backed buffers can be bookmarked by Org QL View: %s" 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))))))
(-let* ((plist (org-ql-view--plist (current-buffer))) (-let* ((plist (org-ql-view--plist (current-buffer)))
((&plist :buffers-files) plist)) ((&plist :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.