|
14 | 14 | (derive :metadata ::descriptive)
|
15 | 15 | (derive :title ::descriptive)
|
16 | 16 |
|
| 17 | +;; Tool multimethods. |
17 | 18 | (defmulti pointer-down (fn [db _e] (:tool db)))
|
18 | 19 | (defmulti pointer-move (fn [db _e] (:tool db)))
|
19 | 20 | (defmulti pointer-up (fn [db _e] (:tool db)))
|
|
27 | 28 | (defmulti deactivate :tool)
|
28 | 29 | (defmulti properties keyword)
|
29 | 30 |
|
30 |
| -(defmulti render :tag) |
31 |
| -(defmulti render-to-string :tag) |
32 |
| -(defmulti path :tag) |
33 |
| -(defmulti area :tag) |
34 |
| -(defmulti centroid :tag) |
35 |
| -(defmulti snapping-points :tag) |
36 |
| -(defmulti render-edit :tag) |
37 |
| -(defmulti bounds (fn [el _elements] (:tag el))) ; REVIEW |
38 |
| -(defmulti translate (fn [el _offset] (:tag el))) |
39 |
| -(defmulti position (fn [el _position] (:tag el))) |
40 |
| -(defmulti scale (fn [el _ration _pivot-point] (:tag el))) |
41 |
| -(defmulti edit (fn [el _offset _handle] (:tag el))) |
42 |
| - |
43 | 31 | (defmethod pointer-down :default [db _e] db)
|
44 | 32 | (defmethod pointer-up :default [db _e] db)
|
45 | 33 | (defmethod pointer-move :default [db _e] db)
|
|
53 | 41 | (defmethod deactivate :default [db] (assoc db :cursor "default"))
|
54 | 42 | (defmethod properties :default [])
|
55 | 43 |
|
| 44 | +;; Element multimethods. |
| 45 | +(defmulti render :tag) |
| 46 | +(defmulti render-to-string :tag) |
| 47 | +(defmulti path :tag) |
| 48 | +(defmulti area :tag) |
| 49 | +(defmulti centroid :tag) |
| 50 | +(defmulti snapping-points :tag) |
| 51 | +(defmulti render-edit :tag) |
| 52 | +(defmulti bounds (fn [el _elements] (:tag el))) ; REVIEW |
| 53 | +(defmulti translate (fn [el _offset] (:tag el))) |
| 54 | +(defmulti position (fn [el _position] (:tag el))) |
| 55 | +(defmulti scale (fn [el _ration _pivot-point] (:tag el))) |
| 56 | +(defmulti edit (fn [el _offset _handle] (:tag el))) |
| 57 | + |
56 | 58 | (defmethod render :default [])
|
57 | 59 | (defmethod render-to-string :default [element] [render element])
|
58 | 60 | (defmethod render-edit :default [])
|
|
0 commit comments