[nongnu] elpa/emacsql d04ef64ce0 109/427: Add IF NOT EXISTS and TEMPORARY to CREATE TABLE.

[ELPA Syncer]

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

    Add IF NOT EXISTS and TEMPORARY to CREATE TABLE.
---
 README.md  |  1 +
 emacsql.el | 14 +++++++++++---
 2 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/README.md b/README.md
index dfbf1a6438..77fea6ca74 100644
--- a/README.md
+++ b/README.md
@@ -116,6 +116,7 @@ Provides `CREATE TABLE`.
 
 ```el
 [:create-table employees [name (id integer :primary) (salary float)]]
+[:create-table (:temporary :if-not-exists employees) ...]
 ```
 
 #### :drop-table `<table>`
diff --git a/emacsql.el b/emacsql.el
index e946a29422..9335f45cbf 100644
--- a/emacsql.el
+++ b/emacsql.el
@@ -501,9 +501,17 @@ definitions for return from a `emacsql-defexpander'."
     (combine (emacsql--expr expr))))
 
 (emacsql-defexpander :create-table (table schema)
-  (emacsql-with-vars "CREATE TABLE "
-    (format "%s (%s)" (var table :identifier)
-            (emacsql--schema-to-string schema))))
+  (emacsql-with-vars "CREATE "
+    (let (temporary if-not-exists name)
+      (dolist (item (if (listp table) table (list table)))
+        (cl-case item
+          (:if-not-exists (setf if-not-exists "IF NOT EXISTS"))
+          (:temporary (setf temporary "TEMPORARY"))
+          (otherwise (setf name (var item :identifier)))))
+      (let* ((items (list temporary "TABLE" if-not-exists name))
+             (spec (remove-if-not #'identity items)))
+        (format "%s (%s)" (mapconcat #'identity spec " ")
+                (emacsql--schema-to-string schema))))))
 
 (emacsql-defexpander :drop-table (table)
   (emacsql-with-vars "DROP TABLE "