Merge: Abbreviate filenames in bookmarks

README.org

@@ -533,6 +533,7 @@ Simple links may also be written manually in either sexp or non-sexp form, like:
      -  ~reverse~
      -  ~closed~  (Thanks to [[https://github.com/yejianye][Ryan Ye]].)
 +  Dynamic block column ~closed~.  (Thanks to [[https://github.com/yejianye][Ryan Ye]].)
++  Abbreviate filenames in bookmarks.  (Thanks to [[https://github.com/akirak][Akira Komamura]].)
 
 *Changed*
 +  The order in which sorting functions is applied has been reversed.  For example, ~:sort '(todo priority date)~ now does what ~:sort '(date priority todo)~ did in earlier versions.  (This change is made to enable the new ~reverse~ sorting method.)  Users who have customized =org-ql-views= will need to update the stored views' sorting methods to preserve the desired sort order.

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
+               (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)))
             ((&plist :buffers-files) plist))
       ;; Replace buffers with their filenames, and signal error if any are not file-backed.

org-ql.info

@@ -1000,6 +1000,8 @@ File: README.info,  Node: 06-pre,  Next: 052,  Up: Changelog
         • ‘closed’ (Thanks to Ryan Ye (https://github.com/yejianye).)
    • Dynamic block column ‘closed’.  (Thanks to Ryan Ye
      (https://github.com/yejianye).)
+   • Abbreviate filenames in bookmarks.  (Thanks to Akira Komamura
+     (https://github.com/akirak).)
 
    *Changed*
    • The order in which sorting functions is applied has been reversed.
@@ -1579,31 +1581,31 @@ Node: Links35356
 Node: Tips36043
 Node: Changelog36361
 Node: 06-pre37087
-Node: 05239852
+Node: 05239956
-Node: 05140156
+Node: 05140260
-Node: 0540573
+Node: 0540677
-Node: 04942047
+Node: 04942151
-Node: 04842321
+Node: 04842425
-Node: 04742668
+Node: 04742772
-Node: 04643063
+Node: 04643167
-Node: 04543463
+Node: 04543567
-Node: 04443822
+Node: 04443926
-Node: 04344181
+Node: 04344285
-Node: 04244378
+Node: 04244482
-Node: 04144539
+Node: 04144643
-Node: 0444780
+Node: 0444884
-Node: 03248713
+Node: 03248817
-Node: 03149092
+Node: 03149196
-Node: 0349289
+Node: 0349393
-Node: 02352264
+Node: 02352368
-Node: 02252492
+Node: 02252596
-Node: 02152760
+Node: 02152864
-Node: 0252959
+Node: 0253063
-Node: 0156994
+Node: 0157098
-Node: Notes57095
+Node: Notes57199
-Node: Comparison with Org Agenda searches57257
+Node: Comparison with Org Agenda searches57361
-Node: org-sidebar58129
+Node: org-sidebar58233
-Node: License58408
+Node: License58512
 
 End Tag Table