[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)]
- [nongnu] elpa/hyperdrive 3fb21b9fce 010/123: Tidy, (continued)
- [nongnu] elpa/hyperdrive 3fb21b9fce 010/123: Tidy, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive 4f297bfb6c 007/123: Change: (hyperdrive--format-host) Allow FORMAT to be an atom, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive 1c8a1b2446 021/123: WIP, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive 4146ecd501 039/123: Change: (hyperdrive-set-nickname) Don't say anything in callback, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive 8d40cdba48 036/123: WIP: hyperdrive-menu-up, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive 083056ca9b 029/123: Fix: (hyperdrive--context-entry) With prefix arg, always read entry, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive b1e51aa444 049/123: Comment: Add TODO, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive 46c56c7500 042/123: Tidy: Move require statements to top, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive 4e2280dad6 002/123: WIP, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive cebe60f4f3 004/123: Rename command, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive 017556c164 012/123: WIP,
ELPA Syncer <=
- [nongnu] elpa/hyperdrive a0bf2d496b 013/123: WIP/Tidy, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive a0311e5b9e 017/123: WIP, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive 93433a3bd9 015/123: WIP, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive 0fb87a249f 027/123: Change: (hyperdrive-dir-mode-map) Use hyperdrive-download-entry, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive 47f7f80f8b 018/123: WIP, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive f7a5b31795 043/123: Tidy: (hyperdrive-menu) Add headings for different transients, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive 41abe54c92 019/123: WIP, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive b5e881017c 022/123: WIP, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive 39870e57fc 047/123: Change: (-menu-hyperdrive) Use :class transient-row, ELPA Syncer, 2023/10/06
- [nongnu] elpa/hyperdrive c9d89d6fb9 038/123: Change: (hyperdrive-set-nickname) Accept THEN callback, ELPA Syncer, 2023/10/06