From: Robert Hambrock <roberthambr...@gmail.com>
* lisp/ob-clojure.el (org-babel-execute:clojure): Implemented :target,
which allows selection of connection.
* lisp/ob-clojure.el (org-babel-execute:clojurescript): New
ClojureScript interface that uses :target flag to specify `cljs`
evaluation target.
---
lisp/ob-clojure.el | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/lisp/ob-clojure.el b/lisp/ob-clojure.el
index 93674b552..7f7c24ff1 100644
--- a/lisp/ob-clojure.el
+++ b/lisp/ob-clojure.el
@@ -129,7 +129,8 @@ using the :show-process parameter."
(cider
(require 'cider)
(let ((result-params (cdr (assq :result-params params)))
- (show (cdr (assq :show-process params))))
+ (show (cdr (assq :show-process params)))
+ (connection (cider-current-connection (cdr (assq :target
params)))))
(if (member show '(nil "no"))
;; Run code without showing the process.
(progn
@@ -137,7 +138,7 @@ using the :show-process parameter."
(let ((nrepl-sync-request-timeout
org-babel-clojure-sync-nrepl-timeout))
(nrepl-sync-request:eval expanded
- (cider-current-connection))))
+ connection)))
(setq result
(concat
(nrepl-dict-get response
@@ -171,7 +172,7 @@ using the :show-process parameter."
(nrepl--merge response resp)
;; Update the status of the nREPL output session.
(setq status (nrepl-dict-get response "status")))
- (cider-current-connection))
+ connection)
;; Wait until the nREPL code finished to be processed.
(while (not (member "done" status))
@@ -211,6 +212,9 @@ using the :show-process parameter."
(condition-case nil (org-babel-script-escape result)
(error result)))))
+(defun org-babel-execute:clojurescript (body params)
+ (org-babel-execute:clojure body (cons '(:target . "cljs") params)))
+
(provide 'ob-clojure)
;;; ob-clojure.el ends here
--
2.16.3
