summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorstardiviner <numbchild@gmail.com>2018-05-20 02:30:52 +0800
committerBozhidar Batsov <bozhidar.batsov@gmail.com>2018-05-19 21:30:52 +0300
commitdfa45aedac2bd5a8a679472652eae49fb389e318 (patch)
tree641d95ad0cac9e9c410c3571957d43e38ac2cec2
parent45bd3bc238fc7bdd8028690bfefe95906937a57e (diff)
[Fix #2286] Fix eldoc on repl image (#2293)
Basically we were sending image binary data where a string was expected. This commit also addresses one unused variable binding.
-rw-r--r--cider-repl.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/cider-repl.el b/cider-repl.el
index 5cd741f7..61ced97a 100644
--- a/cider-repl.el
+++ b/cider-repl.el
@@ -854,14 +854,14 @@ Returns an image instance with a margin per `cider-repl-image-margin'."
Part of the default `cider-repl-content-type-handler-alist'."
(cider-repl--display-image buffer
(cider-repl--image image 'jpeg t)
- show-prefix bol image))
+ show-prefix bol " "))
(defun cider-repl-handle-png (_type buffer image &optional show-prefix bol)
"A handler for inserting a png IMAGE into a repl BUFFER.
Part of the default `cider-repl-content-type-handler-alist'."
(cider-repl--display-image buffer
(cider-repl--image image 'png t)
- show-prefix bol image))
+ show-prefix bol " "))
(defun cider-repl-handle-external-body (type buffer _ &optional _show-prefix _bol)
"Handler for slurping external content into BUFFER.
@@ -869,7 +869,7 @@ Handles an external-body TYPE by issuing a slurp request to fetch the content."
(if-let* ((args (cadr type))
(access-type (nrepl-dict-get args "access-type")))
(nrepl-send-request
- (list "op" "slurp" "url" (nrepl-dict-get args "URL"))
+ (list "op" "slurp" "url" (nrepl-dict-get args access-type))
(cider-repl-handler buffer)
(cider-current-connection)))
nil)