simon/adl-support
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Create and Update now work.

Browse source
This commit is contained in:
Simon Brooke 2018-08-05 17:17:57 +01:00
parent 8fbeaa55e3
commit ba1be5dc2e
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/adl_support/forms_support.clj
View file

@ -92,3 +92,14 @@
"Return true if all the keys in `keys` are present in the map `m`." "Return true if all the keys in `keys` are present in the map `m`."
[m keys] [m keys]
`(clojure.set/subset? (set ~keys) (set (keys ~m)))) `(clojure.set/subset? (set ~keys) (set (keys ~m))))
(defmacro prepare-insertion-params
"Params for insertion into the database must have keys for all fields in the
insert query, even if the value of some of those keys is nil. Massage these
`params` to have a value for each field in these `fields`."
[params fields]
`(merge
(reduce {} (map #(hash-map (keyword %) nil) ~fields))
~params))