tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ob-clojure.el (org-babel-execute:clojure): Fix output 

* ob-clojure.el (org-babel-execute:clojure): Use
`org-babel-result-cond' to create the correct output.

Thanks to Soapy Smith who reported this and to Eric Schulte for providing the fix.
This commit is contained in:
Bastien Guerry 2014-01-30 12:10:37 +01:00
parent cf2c7e9f18
commit de087d0bbe
1 changed files with 22 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
lisp/ob-clojure.el
View File

@ -101,37 +101,40 @@
(defun org-babel-execute:clojure (body params) (defun org-babel-execute:clojure (body params)
"Execute a block of Clojure code with Babel." "Execute a block of Clojure code with Babel."
(let ((expanded (org-babel-expand-body:clojure body params))) (let ((expanded (org-babel-expand-body:clojure body params))
result)
(case org-babel-clojure-backend (case org-babel-clojure-backend
(cider (cider
(require 'cider) (require 'cider)
(or (nth 1 (nrepl-send-string-sync (setq result
(or (cider-get-raw-value
(cider-eval-sync
expanded expanded
(cider-current-ns) (cider-current-ns)
(nrepl-current-tooling-session))) (nrepl-current-tooling-session)))
(error "nREPL not connected! Use M-x cider-jack-in RET"))) (error "nREPL not connected! Use M-x cider-jack-in RET"))))
(nrepl (nrepl
(require 'nrepl) (require 'nrepl)
(if (nrepl-current-connection-buffer) (setq result
(let* ((result (nrepl-eval expanded)) (if (nrepl-current-connection-buffer)
(s (plist-get result :stdout)) (let* ((result (nrepl-eval expanded))
(r (plist-get result :value))) (s (plist-get result :stdout))
(if s (concat s "\n" r) r)) (r (plist-get result :value)))
(error "nREPL not connected! Use M-x nrepl-jack-in RET"))) (if s (concat s "\n" r) r))
(error "nREPL not connected! Use M-x nrepl-jack-in RET"))))
(slime (slime
(require 'slime) (require 'slime)
(with-temp-buffer (with-temp-buffer
(insert expanded) (insert expanded)
((lambda (result) (setq result
(let ((result-params (cdr (assoc :result-params params)))) (slime-eval
(org-babel-result-cond result-params `(swank:eval-and-grab-output
result ,(buffer-substring-no-properties (point-min) (point-max)))
(condition-case nil (org-babel-script-escape result) (cdr (assoc :package params)))))))
(error result))))) (org-babel-result-cond (cdr (assoc :result-params params))
(slime-eval result
`(swank:eval-and-grab-output (condition-case nil (org-babel-script-escape result)
,(buffer-substring-no-properties (point-min) (point-max))) (error result)))))
(cdr (assoc :package params)))))))))
(provide 'ob-clojure) (provide 'ob-clojure)