[nongnu] elpa/hyperdrive 02da1a2060 2/8: Change: (hyperdrive-upload-files) Positional argument for target-dir

[ELPA Syncer]

branch: elpa/hyperdrive
commit 02da1a2060d7a844ebbb374396c6ba4743bc24ee
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (hyperdrive-upload-files) Positional argument for target-dir
---
 hyperdrive-menu.el | 13 ++++++-------
 hyperdrive.el      | 10 ++++------
 2 files changed, 10 insertions(+), 13 deletions(-)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 630972a8fc..8f5da8f2b0 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -375,18 +375,17 @@
      (list filename entry)))
   (h/upload-file filename entry))
 
-(transient-define-suffix h/menu-upload-files (files hyperdrive &key 
target-directory)
+(transient-define-suffix h/menu-upload-files (files hyperdrive 
target-directory)
   (interactive
    (let ((drive (h/menu--scope)))
      (list
       (h/read-files)
       drive
-      :target-directory (h/read-path
-                         :hyperdrive drive
-                         :prompt "Target directory in `%s'"
-                         :default "/"))))
-  (h/upload-files files hyperdrive
-                  :target-directory target-directory))
+      (h/read-path
+       :hyperdrive drive
+       :prompt "Target directory in `%s'"
+       :default "/"))))
+  (h/upload-files files hyperdrive target-directory))
 
 (transient-define-suffix h/menu-describe-hyperdrive ()
   :description "Describe"
diff --git a/hyperdrive.el b/hyperdrive.el
index 9cb8983c29..0b1b0a0d98 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -662,7 +662,7 @@ After successful upload, call THEN.  When QUEUE, use it."
            while (not (string-blank-p file))
            collect file))
 
-(cl-defun h/upload-files (files hyperdrive &key (target-directory "/"))
+(defun h/upload-files (files hyperdrive target-directory)
   "Upload FILES to TARGET-DIRECTORY in HYPERDRIVE.
 
 Universal prefix argument \\[universal-argument] forces
@@ -673,7 +673,7 @@ Universal prefix argument \\[universal-argument] forces
                                              :force-prompt current-prefix-arg))
           ;; TODO: Consider offering target dirs in hyperdrive with completion.
           (target-dir (h/read-path :hyperdrive hyperdrive :prompt "Target 
directory in `%s'" :default "/")))
-     (list files hyperdrive :target-directory target-dir)))
+     (list files hyperdrive target-dir)))
   (cl-assert (cl-notany #'file-directory-p files))
   (cl-assert (cl-every #'file-readable-p files))
   (setf files (delete-dups files))
@@ -869,8 +869,7 @@ The return value of this function is the retrieval buffer."
                                                                                
    :hyperdrive ,drive
                                                                                
    :prompt "Target directory in `%s'"
                                                                                
    :default "/")))
-                                                                 
(h/upload-files files ,drive
-                                                                               
  :target-directory target-dir)))
+                                                                 
(h/upload-files files ,drive target-dir)))
                                                             :active 
`(h/writablep ,drive)
                                                             :help "Upload 
files to hyperdrive")
                                                     (vector "Mirror" #'h/mirror
@@ -974,8 +973,7 @@ The return value of this function is the retrieval buffer."
                              :hyperdrive drive
                              :prompt "Target directory in `%s'"
                              :default "/")))
-           (h/upload-files files drive
-                           :target-directory target-dir)))
+           (h/upload-files files drive target-dir)))
        :active (h/writablep (he/hyperdrive h/current-entry))
        :help "Upload files to hyperdrive"]
       ["Mirror" h/mirror