[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/hyperdrive fae8e08978 19/33: Change: (--easy-menu-contents
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/hyperdrive fae8e08978 19/33: Change: (--easy-menu-contents) Move "Current Drive" into "Current" |
Date: |
Wed, 11 Oct 2023 22:00:45 -0400 (EDT) |
branch: elpa/hyperdrive
commit fae8e089783a3a72984c75216a5e93a42e0b1b05
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>
Change: (--easy-menu-contents) Move "Current Drive" into "Current"
---
hyperdrive.el | 62 ++++++++++++++++++++++++++++++-----------------------------
1 file changed, 32 insertions(+), 30 deletions(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index 22f448b210..aeca7c93ed 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -812,42 +812,44 @@ The return value of this function is the retrieval
buffer."
"---"
["New Drive" hyperdrive-new
:help "Create a new hyperdrive"]
- ("Current Drive"
- :active hyperdrive-current-entry
- :label (if-let* ((entry hyperdrive-current-entry)
- (hyperdrive (hyperdrive-entry-hyperdrive entry)))
- (format "Current drive (%s)" (hyperdrive--format-host
hyperdrive :with-label t))
- "Current drive")
- ["Petname" hyperdrive-set-petname
- :help "Set petname for hyperdrive"
- :label
- (format "Set petname: %s"
- (pcase (hyperdrive-petname (hyperdrive-entry-hyperdrive
hyperdrive-current-entry))
- (`nil "none")
- (it it)))]
- ["Nickname" hyperdrive-set-nickname
- :help "Set nickname for hyperdrive"
- :active (hyperdrive-writablep (hyperdrive-entry-hyperdrive
hyperdrive-current-entry))
- :label
- (format "Set nickname: %s"
- (pcase (alist-get 'name
- (hyperdrive-metadata
- (hyperdrive-entry-hyperdrive
- hyperdrive-current-entry)))
- (`nil "none")
- (it it)))]
- "---"
- ["Describe" hyperdrive-describe-hyperdrive
- :help "Display information about hyperdrive"]
- ["Purge" hyperdrive-purge
- :help "Purge all local data about hyperdrive"])
- "---"
+ ;; TODO: Add "Drives" section with dynamically generated
+ ;; sub-submenus, e.g. "Drives">"petname:foo">(["Set Petname"
+ ;; :label (hyperdrive-entry-petname drive)] ["Purge"])
("Current"
:active hyperdrive-current-entry
:label (if-let* ((entry hyperdrive-current-entry))
(format "Current: «%s»"
(hyperdrive-entry-description entry))
"Current")
+ ("Current Drive"
+ :active hyperdrive-current-entry
+ :label (if-let* ((entry hyperdrive-current-entry)
+ (hyperdrive (hyperdrive-entry-hyperdrive entry)))
+ (format "Current Drive «%s»" (hyperdrive--format-host
hyperdrive :with-label t))
+ "Current Drive")
+ ["Petname" hyperdrive-set-petname
+ :help "Set petname for hyperdrive"
+ :label
+ (format "Set petname: «%s»"
+ (pcase (hyperdrive-petname (hyperdrive-entry-hyperdrive
hyperdrive-current-entry))
+ (`nil "none")
+ (it it)))]
+ ["Nickname" hyperdrive-set-nickname
+ :help "Set nickname for hyperdrive"
+ :active (hyperdrive-writablep (hyperdrive-entry-hyperdrive
hyperdrive-current-entry))
+ :label
+ (format "Set nickname: «%s»"
+ (pcase (alist-get 'name
+ (hyperdrive-metadata
+ (hyperdrive-entry-hyperdrive
+ hyperdrive-current-entry)))
+ (`nil "none")
+ (it it)))]
+ "---"
+ ["Describe" hyperdrive-describe-hyperdrive
+ :help "Display information about hyperdrive"]
+ ["Purge" hyperdrive-purge
+ :help "Purge all local data about hyperdrive"])
("Current File/Directory"
:label (format "Current %s: «%s»"
(if (hyperdrive--entry-directory-p
hyperdrive-current-entry)
- [nongnu] elpa/hyperdrive 1b56ecd041 11/33: Change: (--easy-menu-contents) Format with parens instead of colon, (continued)
- [nongnu] elpa/hyperdrive 1b56ecd041 11/33: Change: (--easy-menu-contents) Format with parens instead of colon, ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive 6740906e5f 07/33: Change: (hyperdrive--easy-menu-contents) Move "Gateway" to top, ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive 14718b1018 16/33: Comment: Add TODO, ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive f9542ce234 03/33: Add: (hyperdrive-global-easy-menu) Add easy menu, ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive a36f4fe719 08/33: Add: (hyperdrive-{customize, info-manual}) Miscellaneous commands, ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive 34c5f384a2 18/33: Change: (--easy-menu-contents) Move "Version" submenu to end, ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive e82e9db0b2 22/33: Change: Make "Drives" subcommands use appropriate drive, ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive 0e17d571f6 28/33: Comment: Add to TODO, ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive b1402fe8d8 29/33: Change: (-global-easy-menu) Allow copying URL of current directory, ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive 46e3e034ac 13/33: Change: (--easy-menu-contents) Add "Current" > "Version" submenu, ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive fae8e08978 19/33: Change: (--easy-menu-contents) Move "Current Drive" into "Current",
ELPA Syncer <=
- [nongnu] elpa/hyperdrive 73e8e8ab68 20/33: Change: (hyperdrive-global-easy-menu) WIP, ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive 1d911fee7f 33/33: Change: (hyperdrive-global-easy-menu) Add "Sort Directory" submenu, ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive a416692858 01/33: Change: (hyperdrive-menu) "Hyperdrives" -> "Hyperdrive", ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive 5100391bdd 05/33: Change: (hyperdrive--easy-menu-contents) Add "Bookmark" submenu, ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive a971395216 09/33: Change: (--easy-menu-contents) Add "Customize" and "Info Manual", ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive c47455dbe7 21/33: Add workaround for Emacs bug, ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive dc59d7f775 23/33: Change: (-global-easy-menu) Move find/view file into "Drives", ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive 77301eeddb 25/33: Change: (-global-easy-menu) Move "Describe" to top of submenu, ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive 029f2b12aa 27/33: Comment: Remove TODO, ELPA Syncer, 2023/10/11
- [nongnu] elpa/hyperdrive 1001388732 15/33: Change: (hyperdrive--easy-menu-contents) Use :active in "Bookmark", ELPA Syncer, 2023/10/11