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

32
src/adl_support/utils.clj
View file

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