[nongnu] elpa/hyperdrive 98e0b93a1b 07/21: Tidy: (h/dir--yank-media-image-handler) Use h/read-entry defaults

[ELPA Syncer]

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

    Tidy: (h/dir--yank-media-image-handler) Use h/read-entry defaults
---
 hyperdrive-dir.el | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index bfe95d6ff3..3871ffc65a 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -381,11 +381,8 @@ see Info node `(elisp)Yanking Media'."
     ;; TODO: Extend this to other media types?
     (cl-assert (and h/current-entry
                     (h//entry-directory-p h/current-entry)))
-    (pcase-let* (((cl-struct hyperdrive-entry hyperdrive path) h/current-entry)
-                 (entry (h/read-entry :hyperdrive (and (h/writablep hyperdrive)
-                                                       hyperdrive)
-                                      :predicate #'h/writablep
-                                      :default-path path :latest-version t)))
+    (let ((entry (h/read-entry :predicate #'h/writablep :latest-version t
+                               :force-prompt-drive nil)))
       (he/api 'put entry :body image :body-type 'binary
         ;; TODO: Pass MIME type in a header? hyper-gateway detects it for us.
         :then (lambda (_res) (h/open entry))