om-next-db-parser-reader.clj

(ns stripboard.db
  (:require [korma.db :refer [sqlite3 defdb]]
            [korma.core :as korma]
            [om.next.server :as om]))

(defdb db (sqlite3 {}))

(defmulti read-table (fn [_ k _] k))

(defmethod read-table :default
  [{:keys [db query]} key {:keys [limit offset order dir where]}]
  {:value (korma/select
            (cond-> (korma/select* key)
              query (#(apply korma/fields % query))
              where (korma/where where)
              limit (korma/limit limit)
              offset (korma/offset offset)
              order (korma/order order dir)))})

(def db-parser (om/parser {:read read-table}))

(clojure.pprint/pprint
  (db-parser {:db db} '[({:jurisdiction [:id :name]}
                          {:limit  2
                           :offset 0
                           :order  :id
                           :where  {:id [> 1]}
                           :dir    :DESC})]))