From ddead52187bfc77e970550ae1fb663b0da88d15f Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Mon, 14 Sep 2026 00:51:56 -0700
Subject: Move database functions to model modules

---
 src/model/sessions.phel | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 src/model/sessions.phel

(limited to 'src/model/sessions.phel')

diff --git a/src/model/sessions.phel b/src/model/sessions.phel
new file mode 100644
index 0000000..6ada967
--- /dev/null
+++ b/src/model/sessions.phel
@@ -0,0 +1,16 @@
+(ns lezer.model.sessions
+  (:require lezer.db :refer [conn])
+  (:require phel.pdo)
+  (:require phel.sql))
+
+(defn for-book [book]
+  (let [[query params] (sql/format
+                        {:select [:*]
+                         :from [:books_sessions]
+                         :where [:= :book_id (:id book)]})]
+    (-> (pdo/prepare conn query)
+        (pdo/execute params)
+        (pdo/fetch-all))))
+
+(defn create [fields]
+  (pdo/insert conn :books_sessions fields))
-- 
cgit v1.3-2-g0d8e