ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* contrib/lisp/orgtbl-sqlinsert.el (orgtbl-to-sqlinsert): Bugfixes regarding header line formatting

This commit is contained in:
Eric Abrahamsen 2013-06-05 11:44:35 +08:00 committed by Bastien Guerry
parent ce0269fb6b
commit cc7d54515b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
contrib/lisp/orgtbl-sqlinsert.el
View File

@ -70,14 +70,14 @@ this function is called."
(*orgtbl-default-fmt* 'orgtbl-sql-strip-and-quote) (*orgtbl-default-fmt* 'orgtbl-sql-strip-and-quote)
(params2 (params2
(list (list
:sqlname name :sqlname (plist-get params :sqlname)
:tstart (lambda () (concat (if nowebname :tstart (lambda () (concat (if nowebname
(format "<<%s>>= \n" nowebname) (format "<<%s>>= \n" nowebname)
"") "")
"BEGIN TRANSACTION;")) "BEGIN TRANSACTION;"))
:tend (lambda () (concat "COMMIT;" (if nowebname "\n@ " ""))) :tend (lambda () (concat "COMMIT;" (if nowebname "\n@ " "")))
:hfmt (lambda (f) (progn (if firstheader (push f hdrlist)) "")) :hfmt (lambda (f) (progn (if firstheader (push f hdrlist) "")))
:hlfmt (lambda (lst) (setq firstheader nil)) :hlfmt (lambda (&rest cells) (setq firstheader nil))
:lstart (lambda () (concat "INSERT INTO " :lstart (lambda () (concat "INSERT INTO "
sqlname "( " sqlname "( "
(mapconcat 'identity (reverse hdrlist) (mapconcat 'identity (reverse hdrlist)