[nongnu] elpa/emacsql 77ae713186 046/427: Create table expander.

[ELPA Syncer]

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

    Create table expander.
---
 emacsql-tests.el | 4 +++-
 emacsql.el       | 5 +++++
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/emacsql-tests.el b/emacsql-tests.el
index 59332dbe34..f27fd23860 100644
--- a/emacsql-tests.el
+++ b/emacsql-tests.el
@@ -48,4 +48,6 @@
   (emacsql-tests-query [:select * :from employees] ()
                        "SELECT * FROM employees;")
   (emacsql-tests-query [:select * :from employees :where (< salary 50000)] ()
-                       "SELECT * FROM employees WHERE salary < 50000;"))
+                       "SELECT * FROM employees WHERE salary < 50000;")
+  (emacsql-tests-query [:create-table foo [a b c]] ()
+                       "CREATE TABLE foo (a, b, c);"))
diff --git a/emacsql.el b/emacsql.el
index cbf2634fb6..be59bc2977 100644
--- a/emacsql.el
+++ b/emacsql.el
@@ -411,6 +411,11 @@ definitions for return from a `emacsql-defexpander'."
     (cl-destructuring-bind (op a b) expr
       (format "%s %s %s" (var a :auto) op (var b :auto)))))
 
+(emacsql-defexpander :create-table (table schema)
+  (emacsql-with-vars "CREATE TABLE "
+    (format "%s (%s)" (var table :identifier)
+            (emacsql--schema-to-string schema))))
+
 (provide 'emacsql)
 
 ;;; emacsql.el ends here