3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-11 11:31:38 +02:00
Code Issues Projects Releases Packages Wiki Activity

Restructure the source directory tree.

Browse source 
In order to provide space for other applications
that shares source with the main app.
This commit is contained in:
Andrey Antukh 2016-06-14 17:39:44 +03:00
parent ab36a12385
commit 929a0a84da
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
141 changed files with 955 additions and 947 deletions
Download patch file Download diff file Expand all files Collapse all files

49
src/uxbox/main/ui/workspace/scroll.cljs Normal file
View file

@ -0,0 +1,49 @@
;; 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.main.ui.workspace.scroll
(:require [beicon.core :as rx]
[lentes.core :as l]
[uxbox.main.constants :as c]
[uxbox.common.rstore :as rs]
[uxbox.main.state :as ust]
[uxbox.main.data.shapes :as uds]
[uxbox.main.ui.core :as uuc]
[uxbox.main.ui.mixins :as mx]
[uxbox.main.ui.workspace.base :as uuwb]
[uxbox.common.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))))