update packages and add valign
This commit is contained in:
@@ -1,6 +1,6 @@
|
||||
;;; ob-sqlite.el --- Babel Functions for SQLite Databases -*- lexical-binding: t; -*-
|
||||
|
||||
;; Copyright (C) 2010-2025 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2010-2026 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Eric Schulte
|
||||
;; Maintainer: Nick Savage <nick@nicksavage.ca>
|
||||
@@ -36,7 +36,6 @@
|
||||
|
||||
(declare-function org-table-convert-region "org-table"
|
||||
(beg0 end0 &optional separator))
|
||||
(declare-function orgtbl-to-csv "org-table" (table params))
|
||||
(declare-function org-table-to-lisp "org-table" (&optional txt))
|
||||
|
||||
(defvar org-babel-default-header-args:sqlite '())
|
||||
@@ -52,7 +51,8 @@
|
||||
(line . :any)
|
||||
(list . :any)
|
||||
(separator . :any)
|
||||
(nullvalue . :any))
|
||||
(nullvalue . :any)
|
||||
(readonly-p . ((yes no))))
|
||||
"Sqlite specific header args.")
|
||||
|
||||
(defun org-babel-expand-body:sqlite (body params)
|
||||
@@ -76,7 +76,8 @@ This function is called by `org-babel-execute-src-block'."
|
||||
(db (cdr (assq :db params)))
|
||||
(separator (cdr (assq :separator params)))
|
||||
(nullvalue (cdr (assq :nullvalue params)))
|
||||
(headers-p (equal "yes" (cdr (assq :colnames params))))
|
||||
(headers-p (equal "yes" (cdr (assq :colnames params))))
|
||||
(readonly-p (equal "yes" (cdr (assq :readonly params))))
|
||||
(others (delq nil (mapcar
|
||||
(lambda (arg) (car (assq arg params)))
|
||||
(list :header :echo :bail :column
|
||||
@@ -85,7 +86,7 @@ This function is called by `org-babel-execute-src-block'."
|
||||
(insert
|
||||
(org-babel-eval
|
||||
(org-fill-template
|
||||
"%cmd %header %separator %nullvalue %others %csv %db "
|
||||
"%cmd %header %separator %nullvalue %others %csv %readonly %db "
|
||||
(list
|
||||
(cons "cmd" org-babel-sqlite3-command)
|
||||
(cons "header" (if headers-p "-header" "-noheader"))
|
||||
@@ -103,6 +104,8 @@ This function is called by `org-babel-execute-src-block'."
|
||||
(member :html others) separator)
|
||||
""
|
||||
"-csv"))
|
||||
(cons "readonly"
|
||||
(if readonly-p "-readonly" ""))
|
||||
(cons "db" (or db ""))))
|
||||
;; body of the code block
|
||||
(org-babel-expand-body:sqlite body params)))
|
||||
|
||||
Reference in New Issue
Block a user