Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-13 10:38:13 -05:00
Code Issues Activity

Improved go-to event impl.

Browse source
This commit is contained in:
Andrey Antukh 2016-03-15 20:56:39 +02:00
parent fd2c27cdd6
commit 3e42e95151
1 changed files with 15 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/uxbox/data/projects.cljs
View file

@ -161,16 +161,20 @@
"A shortcut event that redirects the user to the
first page of the project."
([projectid]
(go-to projectid nil))
(reify
rs/WatchEvent
(-apply-watch [_ state]
(println "go-to" projectid)
(let [pages (stpr/project-pages state projectid)
pageid (:id (first pages))
params {:project-uuid projectid
:page-uuid pageid}]
(rx/of (r/navigate :workspace/page params))))))
([projectid pageid]
(reify
rs/EffectEvent
(-apply-effect [_ state]
(if pageid
(rs/emit! (r/navigate :workspace/page {:project-uuid projectid
:page-uuid pageid}))
(let [pages (stpr/project-pages state projectid)
pageid (:id (first pages))]
(println "selected" pageid "projectid" projectid)
(rs/emit! (r/navigate :workspace/page {:project-uuid projectid
:page-uuid pageid}))))))))
rs/WatchEvent
(-apply-watch [_ state]
(let [params {:project-uuid projectid
:page-uuid pageid}]
(rx/of (r/navigate :workspace/page params)))))))