(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))