-
Notifications
You must be signed in to change notification settings - Fork 7
/
conformer.cljs
74 lines (63 loc) · 2.73 KB
/
conformer.cljs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
(ns keechma.next.conformer
(:require [com.fulcrologic.guardrails.core :refer [>defn | ? =>]]
[keechma.next.spec]))
(declare conform-apps)
(defn get-controller-variant [controller-name]
(cond
(and (vector? controller-name) (= 2 (count controller-name))) :identity
(and (vector? controller-name) (= 1 (count controller-name))) :factory
:else :singleton))
(defn get-params-variant [controller-def]
(if (fn? (:keechma.controller/params controller-def)) :dynamic :static))
(>defn get-deps-map [deps]
[:keechma.controller.deps/input => :keechma.controller/dep-map]
(if (map? deps)
deps
(let [deps-maps (reduce
(fn [acc v]
(if (map? v)
(conj acc v)
(conj acc {v v})))
[]
deps)]
(apply merge deps-maps))))
(defn conform-deps [controller]
(let [deps (:keechma.controller/deps controller)]
(if (seq deps)
(let [deps-map (get-deps-map deps)
renamed-deps (into {} (filter (fn [[k v]] (not= k v)) deps-map))]
(assoc controller :keechma.controller/deps (vec (keys deps-map))
:keechma.controller.deps/renamed renamed-deps))
(dissoc controller :keechma.controller/deps))))
(defn conform-controller [[controller-name controller-def]]
(let [controller-variant (get-controller-variant controller-name)
params-variant (get-params-variant controller-def)]
[controller-name
(cond-> controller-def
true (update :keechma.controller/type #(or % (if (vector? controller-name) (first controller-name) controller-name)))
true (assoc :keechma.controller/variant controller-variant)
true conform-deps
(not= :factory controller-variant) (assoc :keechma.controller.params/variant params-variant))]))
(defn conform-controllers [controllers]
(->> controllers
(map conform-controller)
(into {})))
(defn conform-app [[app-name app-def]]
(let [app-variant (if (contains? app-def :keechma.app/load) :dynamic :static)]
[app-name
(cond-> app-def
true (assoc :keechma.app/variant app-variant)
(contains? app-def :keechma/controllers) (update :keechma/controllers conform-controllers)
(contains? app-def :keechma/apps) (update :keechma/apps conform-apps))]))
(defn conform-apps [apps]
(->> apps
(map conform-app)
(into {})))
(>defn conform [app]
[any? => :keechma/app]
(-> app
(update :keechma/controllers conform-controllers)
(update :keechma/apps conform-apps)))
(>defn conform-factory-produced [controller-def]
[any? => :keechma.controller.factory/produced]
(assoc controller-def :keechma.controller.params/variant (get-params-variant controller-def)))