branch: elpa/hyperdrive
commit 4ef64969657bb8b38231424b9a843fe2d2f5e22e
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Fix: (h/dir--yank-media-image-handler) Calculate file size
---
hyperdrive-dir.el | 1 +
1 file changed, 1 insertion(+)
diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index f11458e722..78fe1132d1 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -390,6 +390,7 @@ see Info node `(elisp)Yanking Media'."
(h//entry-directory-p h/current-entry)))
(let ((entry (h/read-entry (h//context-hyperdrive :predicate #'h/writablep)
:latest-version t)))
+ (setf (he/size entry) (string-bytes image))
(he/api 'put entry :body image
;; TODO: Pass MIME type in a header? hyper-gateway detects it for us.
:then (lambda (_res) (h/open entry))
