From cc8000a48bc5fcd0e03747655d1bd8a8669074b7 Mon Sep 17 00:00:00 2001
From: John Bintz <john@coswellproductions.com>
Date: Thu, 14 Jan 2016 07:07:50 -0500
Subject: [PATCH] start work on database support

---
 src/server/picture_processor/db.cljs          | 39 +++++++++++++++++++
 src/server/picture_processor/images/data.cljs |  6 +++
 .../{images.cljs => images/process.cljs}      |  2 +-
 3 files changed, 46 insertions(+), 1 deletion(-)
 create mode 100644 src/server/picture_processor/db.cljs
 create mode 100644 src/server/picture_processor/images/data.cljs
 rename src/server/picture_processor/{images.cljs => images/process.cljs} (94%)

diff --git a/src/server/picture_processor/db.cljs b/src/server/picture_processor/db.cljs
new file mode 100644
index 0000000..b9f61ad
--- /dev/null
+++ b/src/server/picture_processor/db.cljs
@@ -0,0 +1,39 @@
+(ns picture-processor.db)
+
+(def sqlite3 (js/require "sqlite3"))
+(def database (aget sqlite3 "Database"))
+
+(def -db (atom nil))
+
+(defn connection
+  "Get the current database connection"
+  []
+  @-db)
+
+(defn open
+  "Open the database connection"
+  []
+  (reset! -db (database. "db/dev.db")))
+
+(defn close
+  "Close the database connection"
+  []
+  (.close @-db)
+  (reset! -db nil))
+
+(defn in-series
+  "Run SQL commands in series"
+  [code]
+  (.serialize @-db (code @-db)))
+
+(defn run
+  "Run SQL command"
+  [cmd & args]
+  (let [statement (.prepare @-db cmd)]
+    (apply (.run statement & )
+    )
+  )
+
+(in-series (fn [db]
+             (.log js/console (.run db))
+             ))
diff --git a/src/server/picture_processor/images/data.cljs b/src/server/picture_processor/images/data.cljs
new file mode 100644
index 0000000..9fee740
--- /dev/null
+++ b/src/server/picture_processor/images/data.cljs
@@ -0,0 +1,6 @@
+(ns picture-processor.images.data)
+
+(defn create
+  [data]
+  "Store an image's info in the database"
+  )
diff --git a/src/server/picture_processor/images.cljs b/src/server/picture_processor/images/process.cljs
similarity index 94%
rename from src/server/picture_processor/images.cljs
rename to src/server/picture_processor/images/process.cljs
index e65467e..08f2c39 100644
--- a/src/server/picture_processor/images.cljs
+++ b/src/server/picture_processor/images/process.cljs
@@ -1,4 +1,4 @@
-(ns picture-processor.images)
+(ns picture-processor.images.process)
 
 (def fs (js/require "fs"))
 (def imagemagick (js/require "imagemagick-native"))