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

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

[nongnu] elpa/hyperdrive 017556c164 012/123: WIP


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 017556c164 012/123: WIP
Date: Fri, 6 Oct 2023 01:00:58 -0400 (EDT)

branch: elpa/hyperdrive
commit 017556c1645261136f624b37b2b38786936d343e
Author: Adam Porter <adam@alphapapa.net>
Commit: Joseph Turner <joseph@ushin.org>

    WIP
---
 hyperdrive.el | 30 ++++++++++++++++++++----------
 1 file changed, 20 insertions(+), 10 deletions(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index e0e1ca8d9c..fb72c084ee 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -770,16 +770,17 @@ The return value of this function is the retrieval 
buffer."
 
 (transient-define-prefix hyperdrive-menu ()
   "Show the hyperdrive transient menu."
-  [ :class transient-row
-    ("w" "Public key" hyperdrive-copy-url
-     :if (lambda () hyperdrive-current-entry)
-     :description (lambda ()
-                    (let ((hyperdrive (hyperdrive-entry-hyperdrive 
hyperdrive-current-entry)))
-                      (format "Public key:%s%s"
-                              (hyperdrive--format-host hyperdrive :format 
'(public-key))
-                              (if-let ((seed (hyperdrive--format-host 
hyperdrive :format '(seed))))
-                                  (format "  Seed:%s" seed) "")))))
 
+  [ :class transient-row
+    :description
+    (lambda ()
+      (let ((hyperdrive (hyperdrive-entry-hyperdrive 
hyperdrive-current-entry)))
+        (format "Public key:%s%s%s"
+                (hyperdrive--format-host hyperdrive :format '(public-key))
+                (if-let ((seed (hyperdrive--format-host hyperdrive :format 
'(seed))))
+                    (format "  Seed:%s" seed) "")
+                (if-let ((domain (hyperdrive--format-host hyperdrive :format 
'(domain))))
+                    (format "  Domain:%s" domain) ""))))
     ("s p" "Petname" hyperdrive-set-petname
      :if (lambda () hyperdrive-current-entry)
      :description (lambda ()
@@ -819,7 +820,16 @@ The return value of this function is the retrieval buffer."
     ("b j" "Jump" hyperdrive-bookmark-jump)
     ("b l" "List" hyperdrive-bookmark-list)
     ("b s" "Set" bookmark-set)]
-   ["Versioning"
+   ["Version"
+    :description (lambda ()
+                   (if-let ((hyperdrive-current-entry)
+                            (hyperdrive (hyperdrive-entry-hyperdrive 
hyperdrive-current-entry)))
+                       (concat (propertize "Version: "
+                                           'face 'transient-heading)
+                               (propertize (prin1-to-string
+                                            (hyperdrive-latest-version 
hyperdrive))
+                                           'face 'transient-value))
+                     "Version"))
     ("v h" "History" hyperdrive-history)
     ("v n" "Next" hyperdrive-next-version)
     ("v p" "Previous" hyperdrive-previous-version)]



reply via email to

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