Re: Bug: Revert orgtbl-create-or-convert-from-region [6.33x]

[Daniel Hornung <daniel.hornung@ds.mpg.de>]

[-- Attachment #1: Type: Text/Plain, Size: 2091 bytes --]

On Monday, August 05, 2013 11:16:55 Thorsten Jolitz wrote:
> Daniel Hornung <daniel.hornung@ds.mpg.de> writes:
> > I think one great way to increase the usefulness of org-mode would be a
> > function which turns a table into a csv or tsv block of text again.
> > 
> > I assume that the functionality exists already in org-table-export, I
> > would just wish for this to be exposed as a function which converts the
> > table in place instead of writing it into a new file (org-table-export
> > does not allow overwriting the current file).
> > 
> > This would finally give a comfortable way to edit tsv or csv tables
> > without hassles in emacs.
> 
> Would you need something more sophisticated than this?
> 
> #+TBLNAME: tbl
> 
> | header 1 | header 2 | header 3 |
> |
> |----------+----------+----------|
> |
> | label1   |        3 |       99 |
> | label2   |        2 |       66 |
> | label3   |        7 |      231 |
> 
> #+TBLFM: $3=$2*33
> 
> #+HEADER: :var table=tbl :hlines no
> #+HEADER: :results list verbatim
> #+begin_src emacs-lisp
> (defun tbl2csv (table-as-lisp)
>   (mapconcat
>    (lambda (row)
>      (mapconcat
>       (lambda (cell)
>          (format "%s" cell))
>       row ","))
>    table-as-lisp ","))
> 
> (tbl2csv table)
> #+end_src
> 
> #+results:
> : "header 1,header 2,header 3,label1,3,99,label2,2,66,label3,7,231"
> 
> --
> cheers,
> Thorsten

The idea looks OK, although I did not get it to run with C-x C-e (copied the 
content into a new buffer, entered org-mode and executed the elisp code).  For 
more specific handling of e.g. strings, the code used in
http://orgmode.org/w/?p=org-mode.git;a=blob;f=lisp/org-table.el;hb=HEAD#l601
looks more like it could be used already, though. Plus, it allows to specify 
the column and row separators (e.g. "\t" and "\n").

Cheers,
Daniel

-- 
Max-Planck-Institute for Dynamics and Self-Organization
Laboratory for Fluid Dynamics, Pattern Formation and Biocomplexity
Biomedical Physics Group

Am Fassberg 17
D-37077 Goettingen

(+49) 551 5176 373

[-- Attachment #2: This is a digitally signed message part. --]
[-- Type: application/pgp-signature, Size: 836 bytes --]