Re: [O] orgtbl-to-sqlinsert

[Thierry Banel]

Le 03/02/2014 00:47, Thomas S. Dye a écrit :

Aloha Thierry,

Thierry Banel <address@hidden> writes:

Hi Thomas.

I don't understand this behavior yet.
But here is a workaround:
try the   #+ORGTBL: SEND  feature:
1- Add a #+ORGTBL: SEND line
2- Add a BEGIN RECEIVE ORGTBL block
3- Type C-c C-c with cursor on the first pipe of the table

--8<--------------------------->8--
#+ORGTBL: SEND faraway orgtbl-to-sqlinsert :sqlname "foo" :fmt (1 "%s")
| one | two    |
|-----+--------|
|   1 | Buckle |
|   2 | Shoe   |
|   3 | Open   |
|   4 | Door   |

;; BEGIN RECEIVE ORGTBL faraway
BEGIN TRANSACTION;
INSERT INTO foo( one, two ) VALUES ( 1 , 'Buckle' );
INSERT INTO foo( one, two ) VALUES ( 2 , 'Shoe' );
INSERT INTO foo( one, two ) VALUES ( 3 , 'Open' );
INSERT INTO foo( one, two ) VALUES ( 4 , 'Door' );
COMMIT;
;; END RECEIVE ORGTBL faraway

Yes, this works.

Perhaps the table needs to be processed before it is passed to
orgtbl-to-sqlinsert? 

  Note that =orgtbl-to-sqlinsert= takes advantage of org-mode's applying
  the formatting to each cell /before/ checking for a line-formatting
  function.  The header line itself and sectioning line are suppressed
  with the settings

  : :hlfmt (lambda (lst) (setq firstheader nil))
  : :hline nil
  : :remove-nil-lines t

I don't fully understand what this means, but it appears to address the
table header.

All the best,
Tom

Hi again Thomas

Probably the issue is not in orgtbl-to-sqlinsert,
because orgtbl-to-sqlinsert does not receive the header of the table.
Here is another fix which just recovers the lost header and passes it to orgtbl-to-sqlinsert:

---8<----------------------->8---
*** Experiment with orgtbl-sqlinsert

#+name: test-table
| one | two    |
|-----+--------|
|   1 | Buckle |
|   2 | Shoe   |
|   3 | Open   |
|   4 | Door   |

#+name: test-bed
#+header: :var x=test-table
#+begin_src emacs-lisp
(require 'orgtbl-sqlinsert)
(orgtbl-to-sqlinsert
   (cons (cdadr (assoc :colname-names params)) (cons 'hline x))
  '(:sqlname "foo" :fmt (1 "%s")))
#+end_src

#+RESULTS: test-bed
: BEGIN TRANSACTION;
: INSERT INTO foo( one, two ) VALUES ( 1 , 'Buckle' );
: INSERT INTO foo( one, two ) VALUES ( 2 , 'Shoe' );
: INSERT INTO foo( one, two ) VALUES ( 3 , 'Open' );
: INSERT INTO foo( one, two ) VALUES ( 4 , 'Door' );
: COMMIT;
---8<----------------------->8---