my-proj.models.posts.clj

(ns your-proj.models.posts
  (:require [coast.db :as db])
  (:refer-clojure :exclude [update]))

(def columns [:title :body])

(defn all []
  (db/query :posts/all))

(defn find-by-id [id]
  (db/query :posts/find-by-id {:id id}))

(defn insert [m]
  (->> (select-keys m columns)
       (db/insert :posts)))

(defn update [id m]
  (as-> (select-keys m columns) %
        (db/update :posts % :posts/where {:id id})))

(defn delete [id]
  (db/delete :posts :posts/where {:id id}))