Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-15 17:21:17 -05:00
Code Issues Activity

Restore workspace scroll with space.

Browse source
This commit is contained in:
Andrey Antukh 2016-03-29 22:17:56 +03:00
parent 6f90f343e6
commit 33fd84623f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/uxbox/ui/workspace.cljs
View file

@ -45,7 +45,7 @@
(letfn [(handle-scroll-interaction []
(let [stoper (->> uuc/actions-s
(rx/map :type)
(rx/filter #(not= % :scroll/viewport))
(rx/filter #(empty? %))
(rx/take 1))
local (:rum/local own)
initial @uuwb/mouse-viewport-a]
@ -70,7 +70,7 @@
sub1 (as-> uuc/actions-s $
(rx/map :type $)
(rx/dedupe $)
(rx/filter #(= :scroll/viewport %) $)
(rx/filter #(= "ui.workspace.scroll" %) $)
(rx/on-value $ handle-scroll-interaction))
sub2 (udp/watch-page-changes pageid)]
(set! (.-scrollLeft el) uuwb/canvas-start-scroll-x)