summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2016-11-19 07:39:05 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2016-11-19 07:39:05 +0100
commit2c466ebff2f589652926ae111a2c3238cd342939 (patch)
treee4bb54bf612b1c99b5d18da891a5276f95dbf8db
parentcd4186c5c363881a13d00463fbc1ba21018c95fd (diff)
downloadorg-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-NEWS2
-rw-r--r--lisp/ob-clojure.el6
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