From 2c466ebff2f589652926ae111a2c3238cd342939 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 19 Nov 2016 07:39:05 +0100 Subject: [PATCH] ob-clojure: Normalize :show-process syntax * lisp/ob-clojure.el (org-babel-execute:clojure): :show-process requires a non-nil (and non "no") value. --- etc/ORG-NEWS | 2 +- lisp/ob-clojure.el | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS index 977b83e01..9be244366 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 dff7c2346..817031f7e 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