add xtdb

deps.edn

@@ -4,6 +4,11 @@
           ;; logging, required by jetty:
         org.slf4j/slf4j-simple {:mvn/version "2.0.16"}
 
+        ;; db
+        com.xtdb/xtdb-api {:mvn/version "2.0.0-beta9"}
+        com.github.seancorfield/next.jdbc {:mvn/version "1.3.1002"}
+        org.postgresql/postgresql {:mvn/version "42.7.6"}
+
 ;; json decoding
         metosin/muuntaja {:mvn/version "0.6.11"}
 

src/snippets/config.clj

@@ -0,0 +1,13 @@
+(ns snippets.config)
+
+;; (require '[environ.core :refer [env]])
+(defn get-config [] (read-string (slurp "config.edn")))
+
+;; (def config
+;;   (merge
+;;    (read-string (slurp "config.edn"))
+   ;; {:db {:host (env :db-host)
+   ;;       :port (Integer. (env :db-port))
+   ;;       :user (env :db-user)
+   ;;       :password (env :db-password)
+   ;;       :dbname (env :db-name)}}))

src/snippets/core.clj

@@ -0,0 +1 @@
+(ns snippets.core)

src/snippets/db.clj

@@ -0,0 +1,21 @@
+(ns snippets.db
+  (:require
+   [snippets.config :as config]
+   [xtdb.api :as xt]))
+
+(def client
+  (let
+   [c (:xtdb (config/get-config))]
+    (xt/client
+     {:host (:host c)
+      :port (:port c)
+      :user "xtdb"
+     ;; :password "xtdb"
+      :dbname "xtdb"})))
+
+(defn uuid [] (str (java.util.UUID/randomUUID)))
+
+(defn save-snippet [snippet]
+  (xt/execute-tx client [[:put-docs :snippets (merge snippet {:xt/id (uuid)})]]))
+
+;; (xt/q client ['(from :users [{:name "travis"}])])