summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2011-07-10 09:38:37 -0600
committerEric Schulte <schulte.eric@gmail.com>2011-07-10 09:42:54 -0600
commit52a14c5e2ed83942da7b4c20ba5bb732724fa368 (patch)
treefd6bb7d5214a2e3361f0b1217628cf1a5c932c5a
parentc6e69cd85b0f838a851e0f28cc2bc8e73722298d (diff)
downloadorg-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.el11
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)