From mboxrd@z Thu Jan  1 00:00:00 1970
From: Phill Wolf <phill.wolf@gmail.com>
Subject: Re: org-clojure - How to emit an example block?
Date: Sat, 8 Feb 2014 18:29:24 -0500
Message-ID: <CAH+qJs+S5++ywC8Mjfxy8b3asQehnvRAG2vq9feXw2L9pJgmgw@mail.gmail.com>
References: <CAH+qJsLgxCSp_y9cNP+BbaUP2wKY3kt6YBX7GLew6722Wb6xoQ@mail.gmail.com>
	<m2bnyhp7yg.fsf@tsdye.com>
Mime-Version: 1.0
Content-Type: multipart/alternative; boundary=001a11c12c6010134d04f1ed7a7a
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:54539)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <phill.wolf@gmail.com>) id 1WCHKw-0002Wo-C3
	for emacs-orgmode@gnu.org; Sat, 08 Feb 2014 18:29:27 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <phill.wolf@gmail.com>) id 1WCHKu-0002sv-UK
	for emacs-orgmode@gnu.org; Sat, 08 Feb 2014 18:29:26 -0500
Received: from mail-qc0-x232.google.com ([2607:f8b0:400d:c01::232]:50304)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <phill.wolf@gmail.com>) id 1WCHKu-0002sp-Oz
	for emacs-orgmode@gnu.org; Sat, 08 Feb 2014 18:29:24 -0500
Received: by mail-qc0-f178.google.com with SMTP id m20so8309369qcx.37
	for <emacs-orgmode@gnu.org>; Sat, 08 Feb 2014 15:29:24 -0800 (PST)
In-Reply-To: <m2bnyhp7yg.fsf@tsdye.com>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: "Thomas S. Dye" <tsd@tsdye.com>
Cc: emacs-orgmode@gnu.org

--001a11c12c6010134d04f1ed7a7a
Content-Type: text/plain; charset=UTF-8

ob-clojure.el should use separate cider functions for value and output
results, in order to avoid expressing standard output as some kind of
programming-language string with embedded \n notation.  I experimentally
adjusted my copy of ob-clojure (obtained from git clone -b master today)
like this:

(1) In the cider block, access the result-params.
(2) Put either 'cider-get-value or 'cider-get-raw-value into a variable,
depending on the result-params.
(3) funcall the variable instead of using cider-get-raw-value directly.
(0) Up at the top, add a declare-function for cider-get-value, next to the
declare-function for cider-get-raw-value.

(defun org-babel-execute:clojure (body params)
  "Execute a block of Clojure code with Babel."
  (let ((expanded (org-babel-expand-body:clojure body params))
    result)
    (case org-babel-clojure-backend
      (cider
       (require 'cider)
       (let* ((result-params (cdr (assoc :result-params params)))
              (cider-call-fn (cond ((member "output" result-params)
'cider-get-value)
                                   ((member "value" result-params)
'cider-get-raw-value)
                                   (t 'cider-get-raw-value))))
         (setq result
               (or (funcall cider-call-fn [...]

Together with :wrap example as suggested by Thomas S. Dye, the results are
exemplary.

--001a11c12c6010134d04f1ed7a7a
Content-Type: text/html; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

<div dir=3D"ltr"><div class=3D"gmail_extra">ob-clojure.el should use separa=
te cider functions for value and output results, in order to avoid expressi=
ng standard output as some kind of programming-language string with embedde=
d \n notation.=C2=A0 I experimentally adjusted my copy of ob-clojure (obtai=
ned from git clone -b master today) like this:<br>
<br></div><div class=3D"gmail_extra">(1) In the cider block, access the res=
ult-params. <br>(2) Put either &#39;cider-get-value or &#39;cider-get-raw-v=
alue into a variable, depending on the result-params. <br>(3) funcall the v=
ariable instead of using cider-get-raw-value directly.<br>
</div><div class=3D"gmail_extra">(0) Up at the top, add a declare-function =
for cider-get-value, next to the declare-function for cider-get-raw-value.<=
/div><div class=3D"gmail_extra"><br>(defun org-babel-execute:clojure (body =
params)<br>
=C2=A0 &quot;Execute a block of Clojure code with Babel.&quot;<br>=C2=A0 (l=
et ((expanded (org-babel-expand-body:clojure body params))<br>=C2=A0=C2=A0=
=C2=A0 result)<br>=C2=A0=C2=A0=C2=A0 (case org-babel-clojure-backend<br>=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0 (cider<br>=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 =
(require &#39;cider)<br>
</div>=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (let* ((result-params (cdr (asso=
c :result-params params))) <br><div class=3D"gmail_extra">=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (cider-call=
-fn (cond ((member &quot;output&quot; result-params) &#39;cider-get-value) =
<br>=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ((member &quot=
;value&quot; result-params) &#39;cider-get-raw-value)<br>
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (t &#39;cider-get-ra=
w-value)))) <br>=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (setq resu=
lt<br>=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=
=A0=C2=A0=C2=A0 (or (funcall cider-call-fn [...]<br><br></div><div class=3D=
"gmail_extra">Together with :wrap example as suggested by Thomas S. Dye, th=
e results are exemplary.</div>
</div>

--001a11c12c6010134d04f1ed7a7a--