🐛 Many bugfixes.

This commit is contained in:
Andrey Antukh 2020-02-19 19:20:13 +01:00
parent 86a55fd292
commit ff43df6822
10 changed files with 97 additions and 112 deletions

View file

@ -54,6 +54,11 @@
(-> (l/key :selected)
(l/derive workspace-local)))
(defn make-selected
[id]
(-> (l/lens #(contains? % id))
(l/derive selected-shapes)))
(def selected-canvas
(-> (l/key :selected-canvas)
(l/derive workspace-local)))