branch: elpa/hyperdrive
commit 0fb87a249fa633245ca86f84c92fadfb2d76ff76
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (hyperdrive-dir-mode-map) Use hyperdrive-download-entry
And remove unused hyperdrive-dir-download-file.
---
hyperdrive-dir.el | 15 ++-------------
1 file changed, 2 insertions(+), 13 deletions(-)
diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index 8d5e3c28bf..bf88d2d3b5 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -233,6 +233,7 @@ With point on header, returns directory entry."
(declare-function hyperdrive-find-file "hyperdrive")
(declare-function hyperdrive-up "hyperdrive")
+(declare-function hyperdrive-download-entry "hyperdrive")
(declare-function hyperdrive-describe-hyperdrive "hyperdrive-describe")
(declare-function hyperdrive-menu "hyperdrive")
@@ -244,7 +245,7 @@ With point on header, returns directory entry."
"v" #'hyperdrive-dir-view-file
"j" #'imenu
"w" #'hyperdrive-dir-copy-url
- "d" #'hyperdrive-dir-download-file
+ "d" #'hyperdrive-download-entry
"^" #'hyperdrive-up
"D" #'hyperdrive-dir-delete
"H" #'hyperdrive-dir-history
@@ -290,18 +291,6 @@ Interactively, opens file or directory at point in
(interactive (list (hyperdrive-dir--entry-at-point)))
(hyperdrive-copy-url entry))
-(declare-function hyperdrive-download-entry "hyperdrive")
-
-(defun hyperdrive-dir-download-file (entry filename)
- "Download ENTRY at point to FILENAME on disk."
- (declare (modes hyperdrive-dir-mode))
- (interactive
- (pcase-let* ((entry (hyperdrive-dir--entry-at-point))
- ((cl-struct hyperdrive-entry name) entry)
- (read-filename (read-file-name "Filename: " (expand-file-name
name hyperdrive-download-directory))))
- (list entry read-filename)))
- (hyperdrive-download-entry entry filename))
-
(defun hyperdrive-dir-delete (entry)
"Delete ENTRY."
(declare (modes hyperdrive-dir-mode))
