From mboxrd@z Thu Jan 1 00:00:00 1970 From: Francesco Pizzolante Subject: [babel] double quotes in tables Date: Mon, 14 Dec 2009 17:18:30 +0100 Message-ID: <87iqc9a5rd.fsf@missioncriticalit.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: mailing-list-org-mode Hi, Often, I find useful that babel could generate result tables without the double quotes (") enclosing all the text values in the cells. In order to do that, I added a 'noquotes` option to the :results header argument. Here's my patch. As I'm not an elisp expert, please tell me if there's a better/safer way to do that or maybe that it already exists an option to do that... --8<---------------cut here---------------start------------->8--- diff --git a/contrib/babel/lisp/org-babel.el b/contrib/babel/lisp/org-babel.el index 4c9bff5..13c8237 100644 --- a/contrib/babel/lisp/org-babel.el +++ b/contrib/babel/lisp/org-babel.el @@ -706,6 +706,9 @@ code ---- the results are extracted in the syntax of the source code of the language being evaluated and are added inside of a #+BEGIN_SRC block with the source-code language set appropriately." + (setq outputformat "%S") + (if (member "noquotes" result-params) + (setq outputformat "%s")) (if (stringp result) (progn (setq result (org-babel-clean-text-properties result)) @@ -739,7 +742,7 @@ code ---- the results are extracted in the syntax of the source (if (and (listp (car result)) (listp (cdr (car result)))) result (list result)) - '(:fmt (lambda (cell) (format "%S" cell)))) "\n")) + '(:fmt (lambda (cell) (format outputformat cell)))) "\n")) (forward-line -1) (org-cycle)) ((member "file" result-params) (insert result)) @@ -827,7 +830,8 @@ parameters when merging lists." (let ((results-exclusive-groups '(("file" "vector" "table" "scalar" "raw" "org" "html" "latex" "code" "pp") ("replace" "silent") - ("output" "value"))) + ("output" "value") + ("noquotes"))) (exports-exclusive-groups '(("code" "results" "both" "none"))) params results exports tangle cache vars var ref) --8<---------------cut here---------------end--------------->8--- Thanks, Francesco _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode-mXXj517/zsQ@public.gmane.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode