diff options
| author | stardiviner <numbchild@gmail.com> | 2018-03-26 09:47:54 +0800 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-04-14 17:54:02 +0200 |
| commit | 8835ee750ed6581fc04f4e9b16b7291d6846ad7f (patch) | |
| tree | d777bb831de0561fd09b643473422ddf401fd799 | |
| parent | 0104bea3ad2ac3285d18eb29dac85d08425c4cc7 (diff) | |
| download | org-mode-8835ee750ed6581fc04f4e9b16b7291d6846ad7f.tar.gz | |
* ob-clojure-literate: Support vars initialization when prepare session
* contrib/lisp/ob-clojure-literate.el (org-babel-clojure-var-to-clojure):
(org-babel-variable-assignments:clojure): Support vars initialization
when prepare session.
| -rw-r--r-- | contrib/lisp/ob-clojure-literate.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/contrib/lisp/ob-clojure-literate.el b/contrib/lisp/ob-clojure-literate.el index 71ea909..2d1d30d 100644 --- a/contrib/lisp/ob-clojure-literate.el +++ b/contrib/lisp/ob-clojure-literate.el @@ -221,7 +221,14 @@ If it is a directory, `ob-clojure-literate' will try to create Clojure project a (defun org-babel-clojure-var-to-clojure (var) "Convert src block's `VAR' to Clojure variable." - ;; TODO: reference `org-babel-python-var-to-python' + (if (listp var) + (replace-regexp-in-string "(" "'(" var) + (cond + ((stringp var) + ;; wrap org-babel passed in header argument value with quote in Clojure. + (format "\"%s\"" var)) + (t + (format "%s" var)))) ) (defun org-babel-variable-assignments:clojure (params) @@ -230,8 +237,7 @@ If it is a directory, `ob-clojure-literate' will try to create Clojure project a (lambda (pair) (format "(def %s %s)" (car pair) - ;; (org-babel-clojure-var-to-clojure (cdr pair)) - (cdr pair))) + (org-babel-clojure-var-to-clojure (cdr pair)))) (org-babel--get-vars params))) ;;; Support header arguments :results graphics :file "image.png" by inject Clojure code. |