ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update sql insertion command to quote and escape string properly

This commit is contained in:
ndwarshuis 2018-12-23 11:02:45 -05:00
parent 1daec3cce6
commit d769a1c7fc
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
conf.org
View File

@ -2689,7 +2689,15 @@ Org mode is great and all, but in many cases, text files just won't cut it. Hard
"Execute string SQL on database DB executing `sql-sqlite-program'.
Returns the output of CMD. SQL should not contain any quotes as if it
were entered on the shell."
(shell-command-to-string (concat sql-sqlite-program " " db " '" sql "'")))
(shell-command-to-string (concat sql-sqlite-program " " db " \"" sql "\"")))
(defun nd/sql-escape-text (txt)
"Escape and quote TXT in order to insert into sqlite db via 'insert'.
This assumes the insertion command will be run on a shell where the
sql command string is in double quotes."
(let* ((txt-single (replace-regexp-in-string "'" "''" txt nil t))
(txt-double (replace-regexp-in-string "\"" "\\\"" txt-single nil t)))
(concat "'" txt-double "'")))
(defun nd/sql-insert (db tbl data)
"Insert list DATA into TBL in sqlite database DB.