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

Work on multi-select menus.

Browse source
This commit is contained in:
Simon Brooke 2018-10-04 19:14:09 +01:00
parent 3c8a16aa4f
commit 7d76a151c1
1 changed files with 26 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
src/adl_support/utils.clj
View file

@ -346,24 +346,34 @@
"Return the canonical name of the HugSQL query to return all records on "Return the canonical name of the HugSQL query to return all records on
`farside` which match a given record on `nearside`, where `nearide` and `farside` which match a given record on `nearside`, where `nearide` and
`farside` are both entities." `farside` are both entities."
[property nearside farside] ([property nearside farside as-symbol?]
(if (let [n (case (-> property :attrs :type)
(and ;; TODO: I am deeply susicious of this. It's just improbable that
(property? property) ;; the same recipe should work for all three cases.
(entity? nearside) ("link" "list") (str "list-"
(entity? farside)) (safe-name farside :sql) "-by-"
(case (-> property :attrs :type) (singularise (safe-name nearside :sql)))
("link" "list") (str "list-" "entity" (str "list-"
(safe-name farside :sql) "-by-" (safe-name farside :sql) "-by-"
(singularise (safe-name nearside :sql))) (singularise (safe-name nearside :sql)))
"entity" (str "get-" (singularise (safe-name farside :sql))) ;; default
;; default (str "ERROR-bad-property-type-"
(str "ERROR-bad-property-type-" (-> ~property :attrs :type) "-of-"
(-> ~property :attrs :type) "-of-" (-> ~property :attrs :name)))]
(-> ~property :attrs :name))) (if
(do (and
(*warn* "Argument passed to `list-related-query-name` was a non-entity") (property? property)
nil))) (entity? nearside)
(entity? farside))
(if
as-symbol?
(symbol (str "db/" n))
n)
(do
(*warn* "Argument passed to `list-related-query-name` was a non-entity")
nil))))
([property nearside farside]
(list-related-query-name property nearside farside false)))
(defn property-for-field (defn property-for-field