diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-11-19 07:39:05 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-11-19 07:39:05 +0100 |
commit | 2c466ebff2f589652926ae111a2c3238cd342939 (patch) | |
tree | e4bb54bf612b1c99b5d18da891a5276f95dbf8db | |
parent | cd4186c5c363881a13d00463fbc1ba21018c95fd (diff) | |
download | org-mode-2c466ebff2f589652926ae111a2c3238cd342939.tar.gz |
ob-clojure: Normalize :show-process syntax
* lisp/ob-clojure.el (org-babel-execute:clojure): :show-process
requires a non-nil (and non "no") value.
-rw-r--r-- | etc/ORG-NEWS | 2 | ||||
-rw-r--r-- | lisp/ob-clojure.el | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS index 977b83e..9be2443 100644 --- a/etc/ORG-NEWS +++ b/etc/ORG-NEWS @@ -43,7 +43,7 @@ To show that output you only have to specify the =:show-process= option in the code block's header like this: #+begin_example -,#+BEGIN_SRC clojure :results output :show-process +,#+BEGIN_SRC clojure :results output :show-process t (dotimes [n 10] (println n ".") (Thread/sleep 500)) diff --git a/lisp/ob-clojure.el b/lisp/ob-clojure.el index dff7c23..817031f 100644 --- a/lisp/ob-clojure.el +++ b/lisp/ob-clojure.el @@ -103,14 +103,14 @@ If the value is nil, timeout is disabled." The underlying process performed by the code block can be output using the :show-process parameter." (let ((expanded (org-babel-expand-body:clojure body params)) - (show (assq :show-process params)) (response (list 'dict)) result) (cl-case org-babel-clojure-backend (cider (require 'cider) - (let ((result-params (cdr (assq :result-params params)))) - (if (not show) + (let ((result-params (cdr (assq :result-params params))) + (show (cdr (assq :show-process params)))) + (if (member show '(nil "no")) ;; Run code without showing the process. (progn (setq response |