mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-18 20:40:48 +00:00
* lisp/ob-sqlite.el: Add support for :prologue/:epilogue parameters
(org-babel-expand-body:sqlite):
This commit is contained in:
parent
ab4ec726e5
commit
733cb9614c
|
@ -57,8 +57,15 @@
|
||||||
|
|
||||||
(defun org-babel-expand-body:sqlite (body params)
|
(defun org-babel-expand-body:sqlite (body params)
|
||||||
"Expand BODY according to the values of PARAMS."
|
"Expand BODY according to the values of PARAMS."
|
||||||
(org-babel-sql-expand-vars
|
(let ((prologue (cdr (assq :prologue params)))
|
||||||
body (org-babel--get-vars params) t))
|
(epilogue (cdr (assq :epilogue params))))
|
||||||
|
(mapconcat 'identity
|
||||||
|
(list
|
||||||
|
prologue
|
||||||
|
(org-babel-sql-expand-vars
|
||||||
|
body (org-babel--get-vars params) t)
|
||||||
|
epilogue)
|
||||||
|
"\n")))
|
||||||
|
|
||||||
(defvar org-babel-sqlite3-command "sqlite3")
|
(defvar org-babel-sqlite3-command "sqlite3")
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue