[nongnu] elpa/hyperdrive 8f1ab68519 26/31: Change: (hyperdrive-mirror) Show short key in URL column

[ELPA Syncer]

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

    Change: (hyperdrive-mirror) Show short key in URL column
---
 hyperdrive-mirror.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/hyperdrive-mirror.el b/hyperdrive-mirror.el
index b5fe1cdae6..f2cd715968 100644
--- a/hyperdrive-mirror.el
+++ b/hyperdrive-mirror.el
@@ -96,8 +96,10 @@ STATUS is one of:
     (abbreviate-file-name file)))
 
 (hyperdrive-mirror-define-column "Hyperdrive File" ()
-  (pcase-let (((cl-struct hyperdrive-mirror-item url) item))
-    url))
+  (pcase-let* (((cl-struct hyperdrive-mirror-item url) item)
+               (entry (hyperdrive-url-entry url))
+               (short-url (hyperdrive--format-entry-url entry :host-format 
'short-key)))
+    (propertize url 'display short-url)))
 
 (unless hyperdrive-mirror-columns
   (setq-default hyperdrive-mirror-columns