branch: elpa/hyperdrive
commit c891a898dd375d136b7edb2ea0ccdc1e44e9bb7a
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Fix: (hyperdrive-dir-handler) Display nickname on first load
---
hyperdrive-dir.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index 0fe365b508..518ab3fe1f 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -59,7 +59,11 @@ If THEN, call it in the directory buffer with no arguments."
:version version))
entry-names))
(parent-entry (hyperdrive-parent directory-entry))
- (header (hyperdrive-dir-column-headers
(hyperdrive-entry-description directory-entry)))
+ (header
+ (progn
+ ;; Fill metadata first to get the current nickname.
+ (hyperdrive-fill-metadata hyperdrive)
+ (hyperdrive-dir-column-headers (hyperdrive-entry-description
directory-entry))))
(num-entries (length entries)) (num-filled 0)
;; (debug-start-time (current-time))
(metadata-queue) (ewoc) (prev-entry) (prev-point))
@@ -72,7 +76,6 @@ If THEN, call it in the directory buffer with no arguments."
(ewoc-set-hf ewoc header
(propertize (format "Loading (%s/%s)..."
num-filled num-of)
'face 'font-lock-comment-face)))))
- (hyperdrive-fill-metadata hyperdrive)
(setf directory-entry (hyperdrive--fill directory-entry headers))
(when parent-entry
(setf (alist-get 'display-name (hyperdrive-entry-etc parent-entry))
"../")
