0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-18 18:51:29 -05:00

Cosmetic refactor of focuses on workspace base namespace.

This commit is contained in:
Andrey Antukh 2016-12-26 22:28:51 +01:00
parent 7d9280d3da
commit 43bb3a40b3
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95

View file

@ -22,7 +22,7 @@
;; --- Refs
(def workspace-ref
(-> (l/in [:workspace])
(-> (l/key :workspace)
(l/derive st/state)))
(def project-ref
@ -40,26 +40,26 @@
(l/derive st/state))))
(def page-id-ref
(as-> (l/in [:id]) $
(l/derive $ page-ref)))
(-> (l/key :id)
(l/derive page-ref)))
(def page-id-ref-s (rx/from-atom page-id-ref))
(def selected-shapes-ref
(as-> (l/in [:selected]) $
(l/derive $ workspace-ref)))
(-> (l/key :selected)
(l/derive workspace-ref)))
(def toolboxes-ref
(as-> (l/in [:toolboxes]) $
(l/derive $ workspace-ref)))
(-> (l/key :toolboxes)
(l/derive workspace-ref)))
(def flags-ref
(as-> (l/in [:flags]) $
(l/derive $ workspace-ref)))
(-> (l/key :flags)
(l/derive workspace-ref)))
(def shapes-by-id-ref
(as-> (l/key :shapes) $
(l/derive $ st/state)))
(-> (l/key :shapes)
(l/derive st/state)))
(def zoom-ref
(-> (l/in [:workspace :zoom])