emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/hyperdrive e2a76f0b66 18/31: Fix: Abbreviate file name onl


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive e2a76f0b66 18/31: Fix: Abbreviate file name only for display in column
Date: Fri, 3 Nov 2023 22:00:47 -0400 (EDT)

branch: elpa/hyperdrive
commit e2a76f0b66103b9c09ceb404c7f2208dc6a47216
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Fix: Abbreviate file name only for display in column
---
 hyperdrive-mirror.el | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/hyperdrive-mirror.el b/hyperdrive-mirror.el
index 9aaba1fe9f..95e617fd62 100644
--- a/hyperdrive-mirror.el
+++ b/hyperdrive-mirror.el
@@ -93,7 +93,7 @@ STATUS is one of:
 
 (hyperdrive-mirror-define-column "Local File" ()
   (pcase-let (((cl-struct hyperdrive-mirror-item file) item))
-    file))
+    (abbreviate-file-name file)))
 
 (hyperdrive-mirror-define-column "Hyperdrive File" ()
   (pcase-let (((cl-struct hyperdrive-mirror-item url) item))
@@ -326,9 +326,7 @@ grouping keys, as in `hyperdrive-mirror-default-keys'."
                   ;; TODO: Instead of comparing taxy-name strings, could we set
                   ;; taxy-key to `new', `newer', `older', or `same' and then
                   ;; compare keys instead?
-                  #'taxy-name)
-                (taxy-mapcar (pcase-lambda ((cl-struct hyperdrive-mirror-item 
file url status))
-                               (list (abbreviate-file-name file) url 
status)))))
+                  #'taxy-name)))
              (format-cons
               (taxy-magit-section-format-items
                hyperdrive-mirror-columns hyperdrive-mirror-column-formatters



reply via email to

[Prev in Thread] Current Thread [Next in Thread]