branch: elpa/hyperdrive
commit 7ed36e416f21d20af9cc9fa0f9ba13cfaca95128
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Change: (-menu-bar-menu) Add "Upload File" submenu in "Drives"
---
hyperdrive.el | 20 ++++++++++++++++++++
1 file changed, 20 insertions(+)
diff --git a/hyperdrive.el b/hyperdrive.el
index 42ec3d97e5..cc10640a2d 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -862,6 +862,16 @@ The return value of this function is the retrieval buffer."
:hyperdrive ,drive
:read-version
current-prefix-arg)))
:help "View a file in
hyperdrive")
+ (vector "Upload File"
+ `(lambda ()
+ (interactive)
+ (let* ((filename
(read-file-name "Upload file: "))
+ (entry
(hyperdrive-read-entry :hyperdrive ,drive
+
:default-path (file-name-nondirectory filename)
+
:latest-version t)))
+ (hyperdrive-upload-file
filename entry)))
+ :active `(hyperdrive-writablep
,drive)
+ :help "Upload a file to
hyperdrive")
"---"
(vector "Petname"
;; HACK: We have to unquote the
value of the entry because it seems that the filter
@@ -924,6 +934,16 @@ The return value of this function is the retrieval buffer."
:hyperdrive (hyperdrive-entry-hyperdrive hyperdrive-current-entry)
:read-version current-prefix-arg)))
:help "View a file in hyperdrive"]
+ ["Upload File"
+ (lambda ()
+ (interactive)
+ (let* ((filename (read-file-name "Upload file: "))
+ (entry (hyperdrive-read-entry :hyperdrive
(hyperdrive-entry-hyperdrive hyperdrive-current-entry)
+ :default-path
(file-name-nondirectory filename)
+ :latest-version t)))
+ (hyperdrive-upload-file filename entry)))
+ :active (hyperdrive-writablep (hyperdrive-entry-hyperdrive
hyperdrive-current-entry))
+ :help "Upload a file to hyperdrive"]
"---"
["Petname"
;; TODO: Remove this and following workarounds for [INSERT-BUG-HERE]
when fixed.
