[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/hyperdrive 2b4ade87bc 2/2: Change: (-dir--yank-media-image
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/hyperdrive 2b4ade87bc 2/2: Change: (-dir--yank-media-image-handler) Open image, not parent |
Date: |
Thu, 7 Sep 2023 03:59:52 -0400 (EDT) |
branch: elpa/hyperdrive
commit 2b4ade87bcbb10c44327cf120b18dba3c85a2716
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>
Change: (-dir--yank-media-image-handler) Open image, not parent
---
hyperdrive-dir.el | 14 +-------------
1 file changed, 1 insertion(+), 13 deletions(-)
diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index babe267e8e..76eaceed57 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -375,19 +375,7 @@ see Info node `(elisp)Yanking Media'."
:body-type 'binary
;; TODO: Pass MIME type in a header? hyper-gateway detects it for us.
:body image :as 'response
- :then (lambda (_res)
- (hyperdrive-open parent
- :then (lambda ()
- (ewoc-goto-node ewoc
- (hyperdrive-ewoc-find-node ewoc entry
- :predicate (lambda (a b)
- (equal
(hyperdrive-entry-path a)
-
(hyperdrive-entry-path b)))))
- (recenter)
- ;; FIXME: Newly-added file is not highlit. Calling
- ;; the `then' callback in a queue finalizer inside
- ;; `hyperdrive-dir-handler' should fix this.
- )))
+ :then (lambda (_res) (hyperdrive-open entry))
:else (lambda (plz-error)
(hyperdrive-message "Unable to yank media: %S" plz-error)))))