3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-07 14:38:33 +02:00
Code Issues Projects Releases Packages Wiki Activity

♻️ Major refactor of page data structure.

Browse source 
In preparation to future collaborative edition.
This commit is contained in:
Andrey Antukh 2019-12-04 20:13:35 +01:00
parent 8c4bdc3f31
commit af62d949d8
33 changed files with 1025 additions and 1124 deletions
Download patch file Download diff file Expand all files Collapse all files

42
frontend/src/uxbox/main/refs.cljs
View file

@ -12,39 +12,57 @@
[uxbox.main.store :as st]))
(def workspace
(letfn [(selector [state]
(let [id (get-in state [:workspace :current])]
(get-in state [:workspace id])))]
(-> (l/lens selector)
(l/derive st/state))))
(-> (l/key :workspace-local)
(l/derive st/state)))
(def workspace-local
(-> (l/key :workspace-local)
(l/derive st/state)))
(def workspace-layout
(-> (l/key :workspace-layout)
(l/derive st/state)))
(def workspace-page
(-> (l/key :workspace-page)
(l/derive st/state)))
(def workspace-data
(-> (l/key :workspace-data)
(l/derive st/state)))
(def selected-shapes
(-> (l/key :selected)
(l/derive workspace)))
(l/derive workspace-local)))
(def selected-canvas
(-> (l/key :selected-canvas)
(l/derive workspace)))
(l/derive workspace-local)))
(def toolboxes
(-> (l/key :toolboxes)
(l/derive workspace)))
(l/derive workspace-local)))
;; DEPRECATED
(def flags
(-> (l/key :flags)
(l/derive workspace)))
(l/derive workspace-local)))
(def selected-flags
(-> (l/key :flags)
(l/derive workspace-local)))
(def selected-zoom
(-> (l/key :zoom)
(l/derive workspace)))
(l/derive workspace-local)))
(def selected-tooltip
(-> (l/key :tooltip)
(l/derive workspace)))
(l/derive workspace-local)))
(def selected-drawing-shape
(-> (l/key :drawing)
(l/derive workspace)))
(l/derive workspace-local)))
(def selected-drawing-tool
(-> (l/key :drawing-tool)