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

[stardiviner]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA256


Hi, any update on this patch? I still have this feature reminder in my GTD.
Really hope ob-clojure.el can support ClojureScript too.

If possible, hope this can integrate with current CIDER new session manager 
"sesman".

address@hidden writes:

> 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


- -- 
[ stardiviner ]
       I try to make every word tell the meaning what I want to express.

       Blog: https://stardiviner.github.io/
       IRC(freenode): stardiviner, Matrix: stardiviner
       GPG: F09F650D7D674819892591401B5DF1C95AE89AC3
      
-----BEGIN PGP SIGNATURE-----

iQFIBAEBCAAyFiEE8J9lDX1nSBmJJZFAG13xyVromsMFAl5D+p8UHG51bWJjaGls
ZEBnbWFpbC5jb20ACgkQG13xyVromsNcZwf8DtemZgXwNYF7SidMtURACKAEZkkN
wxRWB6MyZ5O4AbnOxTIwYrp+GiGMshrA24NIsWvb9IPQUK4yquzukxzH+Z1/fpK/
iQpbplhFjIS2Pvzh1o+Fe1nH9jYjJx7gg6JlUAuXiJF0qHntw/XHbPRjOcF7u450
jkN/iyh7UbQd1Ds/Yy/rISi846c4Ezx6eKGH6X5btWvFjF4dop/GxA7WWl73HMyk
769pLiMRZAhy0dIKj1daQ769P0V5dS5XpZvwXy8AxJP/0sjO38x6DLpANRI92C4A
gUpI5q3lGBc4frxHDpudBkIuOhX1e42n+AUGCTXB7b7Ktl7RXiTCwwP/ng==
=KcNL
-----END PGP SIGNATURE-----