[O] [PATCH 2/4] ob-clojure.el: Add ClojureScript interface

[roberthambrock]

From: Robert Hambrock <address@hidden>

* 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