[nongnu] elpa/hyperdrive 1e76af0601 11/14: Change: (hyperdrive-menu) Display "./" and "../" for current/parent

[ELPA Syncer]

branch: elpa/hyperdrive
commit 1e76af0601d0d7b1da895a0a7a524740aabaff74
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (hyperdrive-menu) Display "./" and "../" for current/parent
---
 hyperdrive-menu.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 498fef9b0b..ff67fb4591 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -169,9 +169,16 @@
                 (hyperdrive-dir--entry-at-point)))
      :description
      (lambda ()
-       (concat (propertize "Selected: " 'face 'transient-heading)
-               (propertize (hyperdrive-entry-name 
(hyperdrive-dir--entry-at-point))
-                           'face 'transient-value)))
+       (let ((current-entry (oref transient--prefix scope))
+             (selected-entry (hyperdrive-dir--entry-at-point)))
+         (concat (propertize "Selected: " 'face 'transient-heading)
+                 (propertize
+                  (or (and (hyperdrive-entry-equal-p current-entry 
selected-entry)
+                           "./")
+                      (alist-get 'display-name
+                                 (hyperdrive-entry-etc selected-entry))
+                      (hyperdrive-entry-name selected-entry))
+                  'face 'transient-value))))
      :pad-keys t
      ("d" "Download" hyperdrive-download
       :if (lambda ()