From 52a14c5e2ed83942da7b4c20ba5bb732724fa368 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Sun, 10 Jul 2011 09:38:37 -0600 Subject: [PATCH] ob-clojure: respects "scalar" and "verbatim" results params * lisp/ob-clojure.el (org-babel-execute:clojure): Respects "scalar" and "verbatim" results params. --- lisp/ob-clojure.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ob-clojure.el b/lisp/ob-clojure.el index 541bc1860..a72b14c5e 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)