metabase.xrays.domain-entities.malli

Generates an accessor, given the symbol and path to the value.

Incoming converter for the replacement value. identity in CLJ.

Generates a setter. Prefixes the symbol with with-, ie. with-foo-bar. in-sym is the name of the incoming converter defined by [[-define-converter]]. Calls that converter on the new value before associng it in.

Generates the outgoing converter from CLJS data structures to vanilla JS objects. Generates nothing in CLJ mode.

Generates a getter that converts back to a JS object, in CLJS. Generates nothing in CLJ. sym is the main symbol, eg. foo-bar. out-sym is the outgoing converter defined by [[-define-js-converter]], eg. foo-bar->.

Generates the getter, setter and necessary JS<->CLJS converters for a single sym and path pair.

In CLJ, this generates the getter, setter and a dummy incoming converter that is just identity.

In CLJS, generates the getter and setter, real converters in both directions, and a getter that returns vanilla JS objects instead of CLJS data.

Generates an accessor (get-in) and updater (assoc-in) for each specified path.

For example: ``` (define-getters-and-setters Question dataset-query [:card :dataset-query] cache-ttl [:card :cache-ttl]) ``` will generate: ``` (mu/defn ^:export dataset-query :- DatasetQuery "Accessor for [:card :dataset-query]." [obj :- Question] (get-in obj [:card :dataset-query]))

;; This converter is always defined, but it's identity in CLJ. ;; Note that it's safe to call these converters even if the incoming data is already CLJS. ;; This is what's generated in CLJS: (def ^:private ->dataset-query (converters/incoming DatasetQuery))

(mu/defn ^:export with-dataset-query :- Question "Updater for [:card :dataset-query]." [obj :- Question new-value :- DatasetQuery] (assoc-in obj [:card :dataset-query] (->dataset-query new-value)))

;; This converter is only generated in CLJS. (def ^:private dataset-query-> (converters/outgoing Question))

;; This function is also only generated in CLJS. (mu/defn ^:export dataset-query-js :- :any "Fetches [:card :dataset-query] and converts it to plain JS." [obj :- Question] (dataset-query-> (dataset-query obj)))

;; ... and the same five things generated for cache-ttl and any other args. ```

You provide the schema for the parent object; the macro will examine that schema to determine the schema for the field being fetched or updated. The updater's name gets prefixed with with-, and the JS-returning getter suffixed with -js.

The converters are private and intended to be internal to the macros. Since they only depend on the schema it's more efficient to compute them once and reuse them.