3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-22 13:26:43 +02:00
Code Issues Projects Releases Packages Wiki Activity

Scroll to center on page change

Browse source
This commit is contained in:
Jesús Espino 2016-12-21 08:38:44 +01:00
parent fdf0e6cd7d
commit 1aacfc22ac
2 changed files with 21 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

22
frontend/src/uxbox/main/ui/workspace.cljs
View file

@ -46,24 +46,32 @@
(defn- workspace-did-mount (defn- workspace-did-mount
[own] [own]
(let [[projectid pageid] (:rum/args own) (let [[projectid pageid] (:rum/args own)
dom (mx/ref-node own "workspace-canvas")
scroll-to-center (fn []
;; Set page scroll position
(let [viewport-width (.-offsetWidth dom)
viewport-height (.-offsetHeight dom)
page-width (get-in @wb/page-ref [:metadata :width])
page-height (get-in @wb/page-ref [:metadata :height])]
(set! (.-scrollLeft dom) (- (* (+ 1200 (/ page-width 2)) @wb/zoom-ref) (/ viewport-width 2)))
(set! (.-scrollTop dom) (- (* (+ 1200 (/ page-height 2)) @wb/zoom-ref) (/ viewport-height 2)))))
sub1 (scroll/watch-scroll-interactions own) sub1 (scroll/watch-scroll-interactions own)
dom (mx/ref-node own "workspace-canvas")] sub2 (rx/subscribe wb/page-id-ref-s scroll-to-center)]
(scroll-to-center)
(st/emit! (udp/watch-page-changes pageid) (st/emit! (udp/watch-page-changes pageid)
(udu/watch-page-changes pageid) (udu/watch-page-changes pageid)
(udh/watch-page-changes pageid)) (udh/watch-page-changes pageid))
;; Set initial scroll position (assoc own ::sub1 sub1 ::sub2 sub2)))
(set! (.-scrollLeft dom) (* c/canvas-start-scroll-x @wb/zoom-ref))
(set! (.-scrollTop dom) (* c/canvas-start-scroll-y @wb/zoom-ref))
(assoc own ::sub1 sub1)))
(defn- workspace-will-unmount (defn- workspace-will-unmount
[own] [own]
(st/emit! ::udp/stop-page-watcher) (st/emit! ::udp/stop-page-watcher)
(.close (::sub1 own)) (.close (::sub1 own))
(dissoc own ::sub1)) (.close (::sub2 own))
(dissoc own ::sub1 ::sub2))
(defn- workspace-did-remount (defn- workspace-did-remount
[old-state state] [old-state state]

6
frontend/src/uxbox/main/ui/workspace/base.cljs
View file

@ -39,6 +39,12 @@
(-> (l/lens getter) (-> (l/lens getter)
(l/derive st/state)))) (l/derive st/state))))
(def page-id-ref
(as-> (l/in [:id]) $
(l/derive $ page-ref)))
(def page-id-ref-s (rx/from-atom page-id-ref))
(def selected-shapes-ref (def selected-shapes-ref
(as-> (l/in [:selected]) $ (as-> (l/in [:selected]) $
(l/derive $ workspace-ref))) (l/derive $ workspace-ref)))