[nongnu] elpa/emacsql 0f0840ffbf 128/427: Add :default column constraint.

[ELPA Syncer]

branch: elpa/emacsql
commit 0f0840ffbf576a49783eefa2a4b7bb916952349b
Author: Christopher Wellons <wellons@nullprogram.com>
Commit: Christopher Wellons <wellons@nullprogram.com>

    Add :default column constraint.
---
 README.md        | 5 +++--
 emacsql-tests.el | 4 ++++
 emacsql.el       | 2 ++
 3 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index a82a88c6cc..af7699f187 100644
--- a/README.md
+++ b/README.md
@@ -58,8 +58,9 @@ symbol or it can include constraints, such as type and 
uniqueness.
 Because Emacsql stores entire lisp objects as values, the only
 relevant types are `integer`, `float`, and `object` (default).
 
-Additional constraints include `:primary` (aka `PRIMARY KEY`),
-`:unique` (aka `UNIQUE`), `:non-nil` (aka `NOT NULL`).
+Additional columns constraints include `:primary` (aka `PRIMARY KEY`),
+`:unique` (aka `UNIQUE`), `:non-nil` (aka `NOT NULL`), `:default` (aka
+`DEFAULT`).
 
 ```el
 ;; Example schema:
diff --git a/emacsql-tests.el b/emacsql-tests.el
index 3d048e3849..dac5793f89 100644
--- a/emacsql-tests.el
+++ b/emacsql-tests.el
@@ -76,6 +76,10 @@
      "CREATE TABLE foo (a, b, c);")
     ([:create-table (:temporary :if-not-exists x) [y]] '()
      "CREATE TEMPORARY TABLE IF NOT EXISTS x (y);")
+    ([:create-table foo [(a :default 10)]] '()
+     "CREATE TABLE foo (a DEFAULT 10);")
+    ([:create-table foo [(a :primary :non-nil) b]] '()
+     "CREATE TABLE foo (a PRIMARY KEY NOT NULL, b);")
     ([:drop-table $1] '(foo)
      "DROP TABLE foo;")))
 
diff --git a/emacsql.el b/emacsql.el
index 71206e71ab..8861f25ec7 100644
--- a/emacsql.el
+++ b/emacsql.el
@@ -275,6 +275,8 @@ CONN-SPEC is a connection specification like the call to
           (:primary (push "PRIMARY KEY" output))
           (:non-nil (push "NOT NULL" output))
           (:unique  (push "UNIQUE" output))
+          (:default (push "DEFAULT" output)
+                    (push (emacsql-escape-value (pop column)) output))
           (integer  (setf type "INTEGER"))
           (float    (setf type "REAL"))
           (object   (setf type "TEXT"))