[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/hyperdrive 553c71fdc1 04/19: Fix: (h/menu) Display "Versio
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/hyperdrive 553c71fdc1 04/19: Fix: (h/menu) Display "Version: unknown" if entry has not been saved |
Date: |
Sun, 9 Jun 2024 16:00:00 -0400 (EDT) |
branch: elpa/hyperdrive
commit 553c71fdc1790c680e1c9b61936a217a32660d47
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>
Fix: (h/menu) Display "Version: unknown" if entry has not been saved
---
hyperdrive-menu.el | 21 +++++++++++++--------
1 file changed, 13 insertions(+), 8 deletions(-)
diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 31d4b5f974..92477e4878 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -77,14 +77,19 @@
(and (h/menu--scope)
;; TODO: Remove this check and add useful history transient UI.
(not (eq 'h/history-mode major-mode))))
- :description (lambda ()
- (let ((entry (h/menu--scope)))
- (concat (propertize "Version: "
- 'face 'transient-heading)
- (propertize (format "%s"
- (or (he/version entry)
- "latest"))
- 'face 'transient-value))))
+ :description
+ (lambda ()
+ (let* ((entry (h/menu--scope))
+ (version (he/version entry))
+ (existsp (he/exists-p entry)))
+ (concat
+ (propertize "Version: " 'face 'transient-heading)
+ (propertize (format "%s"
+ (cond ((null existsp) "nonexistent")
+ ((eq 'unknown existsp) "unknown")
+ (version version)
+ (t "latest")))
+ 'face 'transient-value))))
("V p" "Previous" h/open-previous-version
:inapt-if-not (lambda ()
(he/previous (h/menu--scope) :cache-only t))
- [nongnu] elpa/hyperdrive 32aed9ca0a 12/19: Comment: (h/history-mode) Update TODO, (continued)
- [nongnu] elpa/hyperdrive 32aed9ca0a 12/19: Comment: (h/history-mode) Update TODO, ELPA Syncer, 2024/06/09
- [nongnu] elpa/hyperdrive 5165fcb6e4 09/19: Meta: Update changelog, ELPA Syncer, 2024/06/09
- [nongnu] elpa/hyperdrive d48e430423 13/19: Fix: (he/next) Return 'unknown when version range data is missing, ELPA Syncer, 2024/06/09
- [nongnu] elpa/hyperdrive 59aeb289b8 15/19: Fix: (hyperdrive-menu) Display correct directory version in transient, ELPA Syncer, 2024/06/09
- [nongnu] elpa/hyperdrive 24df0fa1b7 17/19: Fix: (h/menu-bar-menu) Handle missing version range data edge cases, ELPA Syncer, 2024/06/09
- [nongnu] elpa/hyperdrive 5a0ab0042d 19/19: Docs: Fix typo, ELPA Syncer, 2024/06/09
- [nongnu] elpa/hyperdrive 5249ddb446 01/19: Fix: (he/previous) Handle missing version range data, ELPA Syncer, 2024/06/09
- [nongnu] elpa/hyperdrive 8bf551b596 03/19: Fix: (h/open-previous-version) Handle missing version range data, ELPA Syncer, 2024/06/09
- [nongnu] elpa/hyperdrive 1b29f4ca0b 05/19: Comment: Add NOTE, ELPA Syncer, 2024/06/09
- [nongnu] elpa/hyperdrive 30941b0e30 06/19: Fix: (h/fill-version-ranges) Handle loading history edge case, ELPA Syncer, 2024/06/09
- [nongnu] elpa/hyperdrive 553c71fdc1 04/19: Fix: (h/menu) Display "Version: unknown" if entry has not been saved,
ELPA Syncer <=
- [nongnu] elpa/hyperdrive 6d2047c6f7 02/19: Tidy: (he/previous) Destructure with pcase-let*, ELPA Syncer, 2024/06/09
- [nongnu] elpa/hyperdrive 69e7d4aaaa 08/19: Change: (h/next) Better error message: Missing version range data, ELPA Syncer, 2024/06/09
- [nongnu] elpa/hyperdrive 1090256095 14/19: Comment: (hyperdrive-diff) Fix header, ELPA Syncer, 2024/06/09
- [nongnu] elpa/hyperdrive 10438d21fd 16/19: Tidy: (h/menu-bar-menu) Indentation, ELPA Syncer, 2024/06/09
- [nongnu] elpa/hyperdrive 1c05de7876 18/19: Fix: (h/fill-latest-version) Update docstring, ELPA Syncer, 2024/06/09