[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/hyperdrive a1c98cb709 09/20: Fix: Only show "Selected" men
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/hyperdrive a1c98cb709 09/20: Fix: Only show "Selected" menu for dir buffers |
Date: |
Thu, 12 Oct 2023 19:00:41 -0400 (EDT) |
branch: elpa/hyperdrive
commit a1c98cb70977b9599b53845a47515e8953fe6404
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>
Fix: Only show "Selected" menu for dir buffers
---
hyperdrive.el | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index a7c6a1d523..524f9ae892 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -1012,19 +1012,19 @@ The return value of this function is the retrieval
buffer."
:active (not (eq major-mode 'hyperdrive-dir-mode))
:help "Download current file"])
("Selected"
- :label (let ((entry (hyperdrive--context-entry)))
+ :label (let ((entry-at-point (hyperdrive-dir--entry-at-point)))
(format "Selected %s: «%s»"
- (if (hyperdrive--entry-directory-p entry)
+ (if (hyperdrive--entry-directory-p entry-at-point)
"Directory"
"File")
- (hyperdrive-entry-name entry)))
- :active (and (eq major-mode 'hyperdrive-dir-mode)
- (hyperdrive-dir--entry-at-point))
+ (hyperdrive-entry-name entry-at-point)))
+ :visible (and (eq major-mode 'hyperdrive-dir-mode)
+ (hyperdrive-dir--entry-at-point))
["Download" (lambda ()
(interactive)
(call-interactively #'hyperdrive-download))
- :active (when-let ((entry (hyperdrive--context-entry)))
- (not (hyperdrive--entry-directory-p entry)))
+ :active (when-let ((entry-at-point (hyperdrive-dir--entry-at-point)))
+ (not (hyperdrive--entry-directory-p entry-at-point)))
;; TODO: Change to "file/directory" when it's possible to download a
whole directory
:help "Download file at point"]
["Delete" (lambda ()
@@ -1049,8 +1049,8 @@ The return value of this function is the retrieval
buffer."
["View" (lambda ()
(interactive)
(call-interactively #'hyperdrive-dir-view-file))
- :active (when-let ((entry (hyperdrive--context-entry)))
- (not (hyperdrive--entry-directory-p entry)))
+ :active (when-let ((entry-at-point (hyperdrive-dir--entry-at-point)))
+ (not (hyperdrive--entry-directory-p entry-at-point)))
:help "View file at point"])
("Version"
:label (format "Version (%s)"
- [nongnu] elpa/hyperdrive updated (5d3d0cf953 -> 0d2195a539), ELPA Syncer, 2023/10/12
- [nongnu] elpa/hyperdrive fead4fab52 04/20: Change: Rename menu symbols, ELPA Syncer, 2023/10/12
- [nongnu] elpa/hyperdrive 39d7d831d4 06/20: Fix: (hyperdrive--buffer-visiting-entry-p) Don't test hyperdrive-mode, ELPA Syncer, 2023/10/12
- [nongnu] elpa/hyperdrive 88da2e3910 07/20: Change: Autoload Tools submenu, ELPA Syncer, 2023/10/12
- [nongnu] elpa/hyperdrive a1c98cb709 09/20: Fix: Only show "Selected" menu for dir buffers,
ELPA Syncer <=
- [nongnu] elpa/hyperdrive 790db7b2d8 05/20: Fix: Autoload hyperdrive-mode, ELPA Syncer, 2023/10/12
- [nongnu] elpa/hyperdrive aa5b16bcc5 12/20: Change: (hyperdrive-menu-bar-menu) Add "Refresh", ELPA Syncer, 2023/10/12
- [nongnu] elpa/hyperdrive be6898f307 13/20: Change: (hyperdrive-menu) Add "Refresh", ELPA Syncer, 2023/10/12
- [nongnu] elpa/hyperdrive 251a07c842 18/20: Change: (hyperdrive-history-mode-map) Use single click to open file, ELPA Syncer, 2023/10/12
- [nongnu] elpa/hyperdrive 8a600b90a4 02/20: Fix: Use --context-entry, ELPA Syncer, 2023/10/12
- [nongnu] elpa/hyperdrive 57729766a7 01/20: Change: Put menus in other places, ELPA Syncer, 2023/10/12
- [nongnu] elpa/hyperdrive 7d5a63ac62 03/20: Fix: (hyperdrive-menu-bar-menu), ELPA Syncer, 2023/10/12
- [nongnu] elpa/hyperdrive 086e8358fe 15/20: Change: (-menu-bar-menu) Make "Drives" inactive when no hyperdrives, ELPA Syncer, 2023/10/12
- [nongnu] elpa/hyperdrive 55c04f5d60 11/20: Docs: Update Menu bar support section, ELPA Syncer, 2023/10/12
- [nongnu] elpa/hyperdrive 8d529b74e3 14/20: Fix: (hyperdrive-complete-hyperdrive) Warn when no known hyperdrives, ELPA Syncer, 2023/10/12