mirror of
https://github.com/penpot/penpot.git
synced 2026-05-31 04:38:08 +00:00
50 lines
1.9 KiB
Clojure
50 lines
1.9 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) 2015-2016 Andrey Antukh <niwi@niwi.nz>
|
|
;; Copyright (c) 2015-2016 Juan de la Cruz <delacruzgarciajuan@gmail.com>
|
|
|
|
(ns uxbox.ui.workspace.scroll
|
|
(:require-macros [uxbox.util.syntax :refer [define-once]])
|
|
(:require [beicon.core :as rx]
|
|
[lentes.core :as l]
|
|
[uxbox.rstore :as rs]
|
|
[uxbox.state :as ust]
|
|
[uxbox.data.shapes :as uds]
|
|
[uxbox.ui.core :as uuc]
|
|
[uxbox.ui.mixins :as mx]
|
|
[uxbox.ui.workspace.base :as uuwb]
|
|
[uxbox.util.geom.point :as gpt]))
|
|
|
|
(defn watch-scroll-interactions
|
|
[own]
|
|
(letfn [(handle-scroll-interaction []
|
|
(let [stoper (->> uuc/actions-s
|
|
(rx/map :type)
|
|
(rx/filter #(empty? %))
|
|
(rx/take 1))
|
|
local (:rum/local own)
|
|
initial @uuwb/mouse-viewport-a]
|
|
(swap! local assoc :scrolling true)
|
|
(as-> uuwb/mouse-viewport-s $
|
|
(rx/take-until stoper $)
|
|
(rx/subscribe $ #(on-scroll % initial) nil on-scroll-end))))
|
|
|
|
(on-scroll-end []
|
|
(let [local (:rum/local own)]
|
|
(swap! local assoc :scrolling false)))
|
|
|
|
(on-scroll [pt initial]
|
|
(let [{:keys [x y]} (gpt/subtract pt initial)
|
|
el (mx/get-ref-dom own "workspace-canvas")
|
|
cx (.-scrollLeft el)
|
|
cy (.-scrollTop el)]
|
|
(set! (.-scrollLeft el) (- cx x))
|
|
(set! (.-scrollTop el) (- cy y))))]
|
|
(as-> uuc/actions-s $
|
|
(rx/map :type $)
|
|
(rx/dedupe $)
|
|
(rx/filter #(= "ui.workspace.scroll" %) $)
|
|
(rx/on-value $ handle-scroll-interaction))))
|