From da2bab2552de50ad8731037428efcd6d652cdc3a Mon Sep 17 00:00:00 2001 From: Akira Komamura Date: Sat, 17 Apr 2021 13:01:11 +0900 Subject: [PATCH] Fix: Abbreviate file paths in created org-ql bookmarks --- org-ql-view.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/org-ql-view.el b/org-ql-view.el index fbfd57b..e571dbf 100644 --- a/org-ql-view.el +++ b/org-ql-view.el @@ -533,12 +533,13 @@ dates in the past, and negative for dates in the future." (defun org-ql-view-bookmark-make-record () "Return a bookmark record for the current Org QL View buffer." (cl-labels ((file-nameize - (b-f) (cl-typecase b-f - (string b-f) - (buffer (or (buffer-file-name 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))))) + (b-f) (abbreviate-file-name + (cl-typecase b-f + (string b-f) + (buffer (or (buffer-file-name 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)))))) (-let* ((plist (org-ql-view--plist (current-buffer))) ((&plist :buffers-files) plist)) ;; Replace buffers with their filenames, and signal error if any are not file-backed.