0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-13 16:21:57 -05:00

Remove o replace apropriately the transfer-state func on components.

This commit is contained in:
Andrey Antukh 2016-07-09 18:48:17 +03:00
parent 5dc4dec1e0
commit 8b32c69377
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
12 changed files with 21 additions and 53 deletions

View file

@ -139,7 +139,7 @@
(rs/emit! (dd/initialize :dashboard/icons))
own)
(defn icons-page-transfer-state
(defn icons-page-did-remount
[old-state state]
(rs/emit! (dd/initialize :dashboard/icons))
state)
@ -148,7 +148,7 @@
(mx/component
{:render icons-page-render
:will-mount icons-page-will-mount
:transfer-state icons-page-transfer-state
:did-remount icons-page-did-remount
:name "icons-page"
:mixins [mx/static]}))

View file

@ -356,7 +356,7 @@
(di/initialize))
own)
(defn- images-page-transfer-state
(defn- images-page-did-remount
[old-state state]
(rs/emit! (dd/initialize :dashboard/images))
state)
@ -365,6 +365,6 @@
(mx/component
{:render images-page-render
:will-mount images-page-will-mount
:transfer-state images-page-transfer-state
:did-remount images-page-did-remount
:name "images-page"
:mixins [mx/static]}))

View file

@ -234,7 +234,7 @@
(dp/initialize))
own)
(defn projects-page-transfer-state
(defn projects-page-did-remount
[old-state state]
(rs/emit! (dd/initialize :dashboard/projects))
state)
@ -243,7 +243,7 @@
(mx/component
{:render projects-page-render
:will-mount projects-page-will-mount
:transfer-state projects-page-transfer-state
:did-remount projects-page-did-remount
:name "projects-page"
:mixins [rum/static]}))

View file

@ -47,10 +47,6 @@
(events/unlistenByKey (::key own))
(dissoc own ::key))
(defn- lightbox-transfer-state
[old-own own]
(assoc own ::key (::key old-own)))
(defn- lightbox-render
[own]
(let [data (mx/react lightbox-l)
@ -68,7 +64,6 @@
(mx/component
{:name "lightbox"
:render lightbox-render
:transfer-state lightbox-transfer-state
:will-mount lightbox-will-mount
:will-unmount lightbox-will-umount
:mixins [mx/reactive mx/static]}))

View file

@ -65,7 +65,7 @@
(dissoc own ::sub1 ::sub2))
(defn- workspace-transfer-state
(defn- workspace-did-remount
[old-state state]
(let [[projectid pageid] (:rum/args state)
[oldprojectid oldpageid] (:rum/args old-state)]
@ -146,7 +146,7 @@
(def workspace
(mx/component
{:render workspace-render
:transfer-state workspace-transfer-state
:did-remount workspace-did-remount
:will-mount workspace-will-mount
:will-unmount workspace-will-unmount
:did-mount workspace-did-mount

View file

@ -19,23 +19,25 @@
;; --- Lenses
(def ^:const workspace-l
(as-> (l/in [:workspace]) $
(l/derive $ st/state)))
(def workspace-l
(-> (l/in [:workspace])
(l/derive st/state)))
(def ^:const project-l
(def project-l
(letfn [(getter [state]
(let [project (get-in state [:workspace :project])]
(get-in state [:projects-by-id project])))]
(as-> (l/lens getter) $
(l/derive $ st/state))))
(-> (l/lens getter)
(l/derive st/state))))
(def ^:const page-l
(def page-l
(letfn [(getter [state]
(let [page (get-in state [:workspace :page])]
;; (println "page-l$getter" page)
(get-in state [:pages-by-id page])))]
(as-> (l/lens getter) $
(l/derive $ st/state))))
(-> (l/lens getter)
(l/derive st/state))))
(def ^:const selected-shapes-l
(as-> (l/in [:selected]) $

View file

@ -168,13 +168,6 @@
::key2 key2
::key3 key3))))
(defn- viewport-transfer-state
[old-own own]
(->> [::key1 ::key2 ::key3
::sub1 ::sub2]
(select-keys old-own)
(merge own)))
(defn- viewport-will-unmount
[own]
(events/unlistenByKey (::key1 own))
@ -190,5 +183,4 @@
:name "viewport"
:did-mount viewport-did-mount
:will-unmount viewport-will-unmount
:transfer-state viewport-transfer-state
:mixins [mx/reactive]}))

View file

@ -45,10 +45,6 @@
[own]
(assoc own ::sub (watch-draw-actions)))
(defn- draw-area-transfer-state
[oldown own]
(assoc own ::sub (::sub oldown)))
(defn- draw-area-will-unmount
[own]
(.close (::sub own))
@ -60,7 +56,6 @@
:name "draw-area"
:will-mount draw-area-will-mount
:will-unmount draw-area-will-unmount
:transfer-state draw-area-transfer-state
:mixins [mx/static mx/reactive]}))
;; --- Drawing Logic

View file

@ -87,11 +87,6 @@
(subscription)
(dissoc own ::sub)))
(defn- overlay-transfer-state
[old-own own]
(let [sub (::sub old-own)]
(assoc own ::sub sub)))
(declare overlay-line-render)
(defn- overlay-render
@ -115,7 +110,6 @@
{:render #(overlay-render % (:rum/local %))
:will-mount #(overlay-will-mount % (:rum/local %))
:will-unmount overlay-will-unmount
:transfer-state overlay-transfer-state
:name "overlay"
:mixins [mx/static (mx/local) mx/reactive]}))

View file

@ -45,17 +45,12 @@
(.close (::sub own))
(dissoc own ::sub))
(defn- selrect-transfer-state
[oldown own]
(assoc own ::sub (::sub oldown)))
(def selrect
(mx/component
{:render selrect-render
:name "selrect"
:will-mount selrect-will-mount
:will-unmount selrect-will-unmount
:transfer-state selrect-transfer-state
:mixins [mx/static mx/reactive]}))
;; --- Implementation

View file

@ -105,11 +105,6 @@
(.close (::sub own))
(dissoc own ::sub))
(defn- transfer-state
[oldown own]
(assoc own ::sub (::sub oldown)))
(def shortcuts-mixin
{:will-mount will-mount
:will-unmount will-unmount
:transfer-state transfer-state})
:will-unmount will-unmount})

View file

@ -65,7 +65,7 @@
(if (> total 1)
[:a {:on-click on-delete} i/trash])]])))
(def ^:const page-item
(def page-item
(mx/component
{:render page-item-render
:name "page-item"