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

Added column-name

Browse source
This commit is contained in:
Simon Brooke 2018-09-16 16:52:28 +01:00
parent 50d50aab94
commit 1860790027
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/adl_support/utils.clj
View file

@ -500,6 +500,14 @@
(user-distinct-properties entity)))) (user-distinct-properties entity))))
(defn column-name
"Return, as a string, the name for the column which represents this `property`."
[property]
(safe-name
(or (-> property :attrs :column) (-> property :attrs :name))
:sql))
(defmacro insertable-properties (defmacro insertable-properties
"Return all the properties of this `entity` (including key properties) into "Return all the properties of this `entity` (including key properties) into
which user-supplied data can be inserted" which user-supplied data can be inserted"