From 7df14e4ac2dcdc8fbdf647bff31c9e03f33bd73a Mon Sep 17 00:00:00 2001 From: Daniel M German Date: Thu, 6 Jun 2024 23:34:28 -0700 Subject: [PATCH] lisp/ob-sqlite.el: add a new parameter called readonly. If present, the database is open in read-only mode. This is implemented by passing the parameter -readonly to sqlite --- lisp/ob-sqlite.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/ob-sqlite.el b/lisp/ob-sqlite.el index 96d93b815..b15c4f4d3 100644 --- a/lisp/ob-sqlite.el +++ b/lisp/ob-sqlite.el @@ -52,7 +52,8 @@ (line . :any) (list . :any) (separator . :any) - (nullvalue . :any)) + (nullvalue . :any) + (readonly . :any)) "Sqlite specific header args.") (defun org-babel-expand-body:sqlite (body params) @@ -77,10 +78,10 @@ This function is called by `org-babel-execute-src-block'." (separator (cdr (assq :separator params))) (nullvalue (cdr (assq :nullvalue params))) (headers-p (equal "yes" (cdr (assq :colnames params)))) - (others (delq nil (mapcar + (others (delq nil (mapcar (lambda (arg) (car (assq arg params))) (list :header :echo :bail :column - :csv :html :line :list))))) + :csv :html :line :list :readonly))))) (with-temp-buffer (insert (org-babel-eval @@ -88,7 +89,7 @@ This function is called by `org-babel-execute-src-block'." "%cmd %header %separator %nullvalue %others %csv %db " (list (cons "cmd" org-babel-sqlite3-command) - (cons "header" (if headers-p "-header" "-noheader")) + (cons "header" (if headers-p "-header" "-noheader")) (cons "separator" (if separator (format "-separator %s" separator) "")) (cons "nullvalue" -- 2.45.1