update packages and add valign

This commit is contained in:
2026-04-05 20:00:27 +02:00
parent b062fb98e3
commit 03fb00e374
640 changed files with 109768 additions and 39311 deletions

View File

@@ -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)))