34 lines
941 B
Clojure
34 lines
941 B
Clojure
(ns auto-ap.db.companies
|
|
(:require [auto-ap.db.utils :refer [clj->db db->clj get-conn query execute!]]
|
|
[auto-ap.entities.companies :as entity]
|
|
[clojure.edn :as edn]
|
|
[clojure.java.jdbc :as j]
|
|
[honeysql.core :as sql]
|
|
[honeysql.helpers :as helpers]))
|
|
|
|
(def base-query (sql/build :select :*
|
|
:from :companies))
|
|
|
|
|
|
(defn get-all []
|
|
(query base-query))
|
|
|
|
(defn get-by-id [id]
|
|
(first (query (-> base-query
|
|
(helpers/merge-where [:= :id id])))))
|
|
(defn upsert [id data]
|
|
(prn (clj->db (select-keys data entity/all-keys)))
|
|
(-> (sql/build
|
|
:update :companies
|
|
:set (clj->db (select-keys data entity/all-keys ))
|
|
:where [:= :id (if (int? id)
|
|
id
|
|
(Integer/parseInt id))])
|
|
execute!)
|
|
(get-by-id (if (int? id)
|
|
id
|
|
(Integer/parseInt id))))
|
|
|
|
|
|
|