From mboxrd@z Thu Jan 1 00:00:00 1970 From: Eric Schulte Subject: Re: question about :results scalar Date: Tue, 21 Jun 2011 10:40:52 -0700 Message-ID: <87k4cfjbyx.fsf@gmail.com> References: <87oc1twhb7.fsf@gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([140.186.70.92]:38670) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QZ5LS-0006x3-8g for emacs-orgmode@gnu.org; Tue, 21 Jun 2011 14:06:40 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QZ5LP-0002f7-J5 for emacs-orgmode@gnu.org; Tue, 21 Jun 2011 14:06:37 -0400 Received: from mail-pv0-f169.google.com ([74.125.83.169]:48675) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QZ5LP-0002Ls-5n for emacs-orgmode@gnu.org; Tue, 21 Jun 2011 14:06:35 -0400 Received: by mail-pv0-f169.google.com with SMTP id 12so18872pvc.0 for ; Tue, 21 Jun 2011 11:06:34 -0700 (PDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-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: Robert McIntyre Cc: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain Hi Robert, I've added "verbatim" to the Emacs-lisp support. The attached patch should fix the Clojure behavior as well, however since I no longer have a working clojure install on my system, would you mind confirming it's behavior before I push it to the git repository? Thanks -- Eric --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=0001-ob-clojure-respect-the-results-scalar-header-argumen.patch >From 3d8136837979a6cd8e7a3b74be2d5652b81d1e16 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Tue, 21 Jun 2011 10:35:58 -0700 Subject: [PATCH] ob-clojure: respect the ":results scalar" header argument * lisp/ob-clojure.el (org-babel-expand-body:clojure): Move pretty printing out of body expansion. (org-babel-execute:clojure): Now holds pretty printing logic, and respects the ":results scalar" header argument --- lisp/ob-clojure.el | 63 ++++++++++++++++++++++++++++------------------------ 1 files changed, 34 insertions(+), 29 deletions(-) diff --git a/lisp/ob-clojure.el b/lisp/ob-clojure.el index cc6c2de..35e3bd7 100644 --- a/lisp/ob-clojure.el +++ b/lisp/ob-clojure.el @@ -49,39 +49,44 @@ (defun org-babel-expand-body:clojure (body params) "Expand BODY according to PARAMS, return the expanded body." - (let* ((vars (mapcar #'cdr (org-babel-get-header params :var))) - (result-params (cdr (assoc :result-params params))) - (print-level nil) (print-length nil) - (body (org-babel-trim - (if (> (length vars) 0) - (concat "(let [" - (mapconcat - (lambda (var) - (format "%S (quote %S)" (car var) (cdr var))) - vars "\n ") - "]\n" body ")") - body)))) - (if (or (member "code" result-params) - (member "pp" result-params)) - (format - (concat - "(let [org-mode-print-catcher (java.io.StringWriter.)] " - "(clojure.pprint/with-pprint-dispatch clojure.pprint/%s-dispatch " - "(clojure.pprint/pprint (do %s) org-mode-print-catcher) " - "(str org-mode-print-catcher)))") - (if (member "code" result-params) "code" "simple") body) - body))) + (let ((vars (mapcar #'cdr (org-babel-get-header params :var))) + (print-level nil) (print-length nil)) + (org-babel-trim + (if (> (length vars) 0) + (concat "(let [" + (mapconcat + (lambda (var) + (format "%S (quote %S)" (car var) (cdr var))) + vars "\n ") + "]\n" body ")") + body)))) (defun org-babel-execute:clojure (body params) "Execute a block of Clojure code with Babel." (require 'slime) (require 'swank-clojure) - (with-temp-buffer - (insert (org-babel-expand-body:clojure body params)) - ((lambda (result) (condition-case nil (read result) (error result))) - (slime-eval - `(swank:interactive-eval-region - ,(buffer-substring-no-properties (point-min) (point-max))) - (cdr (assoc :package params)))))) + (let ((result-params (cdr (assoc :result-params params))) + (body (org-babel-expand-body:clojure body params))) + (with-temp-buffer + (insert + (if (or (member "code" result-params) + (member "pp" result-params)) + (format + (concat + "(let [org-mode-print-catcher (java.io.StringWriter.)] " + "(clojure.pprint/with-pprint-dispatch clojure.pprint/%s-dispatch " + "(clojure.pprint/pprint (do %s) org-mode-print-catcher) " + "(str org-mode-print-catcher)))") + (if (member "code" result-params) "code" "simple") body) + body)) + ((lambda (result) + (if (or (member "scalar" result-params) + (member "verbatim" result-params)) + result + (condition-case nil (read result) (error result)))) + (slime-eval + `(swank:interactive-eval-region + ,(buffer-substring-no-properties (point-min) (point-max))) + (cdr (assoc :package params))))))) (provide 'ob-clojure) -- 1.7.4.1 --=-=-= Content-Type: text/plain Robert McIntyre writes: > Excellent --- I'm glad that the interaction with emacs-lisp is straightened > out! > > I've been continuing working with source blocks and the same problem seems > to be present with clojure interaction. > > #+begin_src clojure :exports both :results scalar > (ns whatever) > (defn works? [] true) > #+end_src > > #+results: > | function | whatever/works? | > > > The clojure repl would normally output the text > > "#'whatever/works?" > > but this is being converted into an org-mode table, ignoring the :results > scalar declaration. > > futrhermore, the same test with emacs-lisp also fails as in this example > > > #+begin_src clojure :results scalar > '(1 2 3) > #+end_src > > #+results: > | 1 | 2 | 3 | > > ------------------------------------------------------------------------------------------------------- > > > also, although :results scalar still works, :results verbatim does not work > quite yet for emacs-lisp > > #+begin_src emacs-lisp :results scalar > ;;(debug t nil) > '(1 2 3) > #+end_src > > #+results: > : (1 2 3) > > > #+begin_src emacs-lisp :results verbatim > ;;(debug t nil) > '(1 2 3) > #+end_src > > #+results: > | 1 | 2 | 3 | > > > > M-x org-version returns: > Org-mode version 7.5 (release_7.5.414.g56de5.dirty) > > > Thank you so much for your prompt attention to my last comments! > > sincerely, > --Robert McIntyre > > > On Sun, Jun 19, 2011 at 6:08 PM, Eric Schulte wrote: > >> Hi Rob, >> >> Thanks for pointing this out. The emacs-lisp interaction is so simple >> we apparently never implemented checks which are routine in other >> languages. I just pushed up a fix to the git repository so the >> ":results scalar" header argument combination should now be respected >> for emacs-lisp. >> >> Thanks -- Eric >> >> Robert McIntyre writes: >> >> > hi --- I'm working through the org manual and have run into a strange >> > problem with ":results scalar" >> > >> > M-x org-version gives "Org-mode version 7.5 >> (release_7.5.288.gcec8.dirty)". >> > >> > I've made a code block using #+begin_src emacs-lisp :results scalar, >> > with the source just being '(1 2 3), but I get back an org-table >> > instead of the expected : (1 2 3). what am I doing wrong? >> > >> > a minimal example file can be found here: >> > https://gist.github.com/1034648 >> > >> > I also get the same thing when trying the stable Org-mode version 7.5. >> > >> > sincerely, >> > --Robert McIntyre >> > >> >> -- >> Eric Schulte >> http://cs.unm.edu/~eschulte/ >> -- Eric Schulte http://cs.unm.edu/~eschulte/ --=-=-=--