diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2011-07-10 09:38:37 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2011-07-10 09:42:54 -0600 |
commit | 52a14c5e2ed83942da7b4c20ba5bb732724fa368 (patch) | |
tree | fd6bb7d5214a2e3361f0b1217628cf1a5c932c5a | |
parent | c6e69cd85b0f838a851e0f28cc2bc8e73722298d (diff) | |
download | org-mode-52a14c5e2ed83942da7b4c20ba5bb732724fa368.tar.gz |
ob-clojure: respects "scalar" and "verbatim" results params
* lisp/ob-clojure.el (org-babel-execute:clojure): Respects "scalar"
and "verbatim" results params.
-rw-r--r-- | lisp/ob-clojure.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/ob-clojure.el b/lisp/ob-clojure.el index 541bc18..a72b14c 100644 --- a/lisp/ob-clojure.el +++ b/lisp/ob-clojure.el @@ -78,11 +78,16 @@ (require 'slime) (require 'swank-clojure) (with-temp-buffer (insert (org-babel-expand-body:clojure body params)) - ((lambda (result) (condition-case nil (org-babel-script-escape result) - (error result))) + ((lambda (result) + (let ((result-params (cdr (assoc :result-params params)))) + (if (or (member "scalar" result-params) + (member "verbatim" result-params)) + result + (condition-case nil (org-babel-script-escape result) + (error result))))) (slime-eval `(swank:interactive-eval-region - ,(buffer-substring-no-properties (point-min) (point-max))) + ,(buffer-substring-no-properties (point-min) (point-max))) (cdr (assoc :package params)))))) (provide 'ob-clojure) |