[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
- [nongnu] elpa/hyperdrive edd5eb8a06 15/31: Add/Change: (cl-defstruct hyperdrive-mirror-item), (continued)
- [nongnu] elpa/hyperdrive edd5eb8a06 15/31: Add/Change: (cl-defstruct hyperdrive-mirror-item), ELPA Syncer, 2023/11/03
- [nongnu] elpa/hyperdrive 35dbbd86f8 06/31: Change: (hyperdrive-mirror) Remove Status column, ELPA Syncer, 2023/11/03
- [nongnu] elpa/hyperdrive 579d678da7 20/31: Change: Inherit from built-in faces for hyperdrive-mirror-* faces, ELPA Syncer, 2023/11/03
- [nongnu] elpa/hyperdrive 2c38208541 23/31: Comment: Update TODO, ELPA Syncer, 2023/11/03
- [nongnu] elpa/hyperdrive de24c7fffe 31/31: Merge branch 'wip/send-last-modified-header', ELPA Syncer, 2023/11/03
- [nongnu] elpa/hyperdrive 21e55d694e 04/31: Change: (hyperdrive-mirror-files-and-urls) Use plain list, ELPA Syncer, 2023/11/03
- [nongnu] elpa/hyperdrive 93520312ef 05/31: Tidy: (hyperdrive-mirror) Minor optimization, ELPA Syncer, 2023/11/03
- [nongnu] elpa/hyperdrive c47693ff5a 07/31: Tidy: (hyperdrive-mirror-define-key) Don't accept arguments, ELPA Syncer, 2023/11/03
- [nongnu] elpa/hyperdrive 17f3cde160 10/31: Change: (hyperdrive-mirror--insert-taxy) Sort taxys, ELPA Syncer, 2023/11/03
- [nongnu] elpa/hyperdrive 4c44d4fae0 12/31: Tidy: (hyperdrive-mirror-files-and-urls) Reorder format, ELPA Syncer, 2023/11/03
- [nongnu] elpa/hyperdrive e2a76f0b66 18/31: Fix: Abbreviate file name only for display in column,
ELPA Syncer <=
- [nongnu] elpa/hyperdrive 46f6852b47 24/31: Merge branch 'wip/mirror-taxy-magit-section', ELPA Syncer, 2023/11/03
- [nongnu] elpa/hyperdrive 8f1ab68519 26/31: Change: (hyperdrive-mirror) Show short key in URL column, ELPA Syncer, 2023/11/03
- [nongnu] elpa/hyperdrive a5af3356bd 28/31: Change: (hyperdrive-mirror) Compare timestamps to the second, ELPA Syncer, 2023/11/03
- [nongnu] elpa/hyperdrive a6cd445883 21/31: Tidy, ELPA Syncer, 2023/11/03
- [nongnu] elpa/hyperdrive e2e341cd14 27/31: Change: (hyperdrive-upload-file) Send Last-Modified header, ELPA Syncer, 2023/11/03
- [nongnu] elpa/hyperdrive b486684c64 19/31: Change: Show "Ignored" section last, ELPA Syncer, 2023/11/03
- [nongnu] elpa/hyperdrive 01e15b03f9 25/31: Remove: (hyperdrive-mirror) Faces, ELPA Syncer, 2023/11/03
- [nongnu] elpa/hyperdrive 9fd951a926 29/31: Fix: (hyperdrive-mirror--metadata-finally) Don't insert empty sections, ELPA Syncer, 2023/11/03