mirror of
https://github.com/penpot/penpot.git
synced 2025-02-13 02:28:18 -05:00
154 lines
4.3 KiB
Clojure
154 lines
4.3 KiB
Clojure
(ns uxbox.ui.workspace.base
|
|
(:require [beicon.core :as rx]
|
|
[cats.labs.lens :as l]
|
|
[uxbox.rstore :as rs]
|
|
[uxbox.state :as s]
|
|
[uxbox.data.projects :as dp]
|
|
[uxbox.data.workspace :as dw]
|
|
[uxbox.util.lens :as ul]
|
|
[uxbox.ui.util :as util]
|
|
[goog.events :as events])
|
|
(:import goog.events.EventType))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Lenses
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(def ^:static project-state
|
|
(as-> (ul/dep-in [:projects-by-id] [:workspace :project]) $
|
|
(l/focus-atom $ s/state)))
|
|
|
|
(def ^:static page-state
|
|
(as-> (ul/dep-in [:pages-by-id] [:workspace :page]) $
|
|
(l/focus-atom $ s/state)))
|
|
|
|
(def ^:static pages-state
|
|
(as-> (ul/getter #(let [pid (get-in % [:workspace :project])]
|
|
(dp/project-pages % pid))) $
|
|
(l/focus-atom $ s/state)))
|
|
|
|
(def ^:static workspace-state
|
|
(as-> (l/in [:workspace]) $
|
|
(l/focus-atom $ s/state)))
|
|
|
|
(def ^:static selected-state
|
|
(as-> (l/in [:workspace :selected]) $
|
|
(l/focus-atom $ s/state)))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Scroll Stream
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defonce ^:private scroll-bus (rx/bus))
|
|
(defonce scroll-s (rx/dedupe scroll-bus))
|
|
|
|
(defonce top-scroll-s
|
|
(->> scroll-bus
|
|
(rx/map :top)
|
|
(rx/dedupe)))
|
|
|
|
(defonce left-scroll-s
|
|
(->> scroll-bus
|
|
(rx/map :left)
|
|
(rx/dedupe)))
|
|
|
|
(defonce top-scroll (rx/to-atom top-scroll-s))
|
|
(defonce left-scroll (rx/to-atom left-scroll-s))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Mouse Position Stream
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(def immediate-scheduler js/Rx.Scheduler.immediate)
|
|
(def current-thread-scheduler js/Rx.Scheduler.currentThread)
|
|
|
|
(defn observe-on
|
|
[scheduler ob]
|
|
(.observeOn ob scheduler))
|
|
|
|
(defn subscribe-on
|
|
[scheduler ob]
|
|
(.subscribeOn ob scheduler))
|
|
|
|
;; (defn window
|
|
;; [n ob]
|
|
;; (.windowWithCount ob n))
|
|
|
|
(defonce selected-shape-b (rx/bus))
|
|
|
|
(defonce mouse-b (rx/bus))
|
|
(defonce mouse-s (rx/dedupe mouse-b))
|
|
|
|
;; Deltas
|
|
|
|
(defn- coords-delta
|
|
[[old new]]
|
|
(let [[oldx oldy] old
|
|
[newx newy] new]
|
|
[(- newx oldx)
|
|
(- newy oldy)]))
|
|
|
|
(defonce mouse-delta-s
|
|
(->> mouse-s
|
|
(rx/sample 10)
|
|
(rx/buffer 2 1)
|
|
(rx/map coords-delta)))
|
|
|
|
(defonce _subscription_
|
|
(as-> (rx/with-latest-from vector selected-shape-b mouse-delta-s) $
|
|
(rx/filter #(not= :nothing (second %)) $)
|
|
;; (observe-on current-thread-scheduler $)
|
|
(rx/on-value $ (fn [[delta shape]]
|
|
(rs/emit! (dw/apply-delta (:id shape) delta))))))
|
|
|
|
;; (rx/on-value mouse-delta-s
|
|
;; (fn [val]
|
|
;; (println "delta" val))))
|
|
|
|
;; Materialized views
|
|
|
|
(defonce mouse-position (rx/to-atom (rx/sample 50 mouse-s)))
|
|
;; (defonce mouse-position2 (rx/to-atom mouse-s))
|
|
|
|
|
|
(defn- mouse-mixin-did-mount
|
|
[own]
|
|
(letfn [(on-mousemove [event]
|
|
(let [canvas (util/get-ref-dom own "canvas")
|
|
brect (.getBoundingClientRect canvas)
|
|
offset-x (.-left brect)
|
|
offset-y (.-top brect)
|
|
x (.-clientX event)
|
|
y (.-clientY event)]
|
|
(rx/push! mouse-b [(- x offset-x)
|
|
(- y offset-y)])))]
|
|
(let [key (events/listen js/document EventType.MOUSEMOVE on-mousemove)]
|
|
(js/console.log "mouse-mixin-did-mount" key)
|
|
(assoc own ::eventkey key))))
|
|
|
|
(defn- mouse-mixin-will-unmount
|
|
[own]
|
|
(let [key (::eventkey own)]
|
|
(events/unlistenByKey key)
|
|
(dissoc own ::eventkey)))
|
|
|
|
(defn- mouse-mixin-transfer-state
|
|
[old-own own]
|
|
(let [key (::eventkey old-own)]
|
|
(assoc own ::eventkey key)))
|
|
|
|
(def ^:static mouse-mixin
|
|
{:did-mount mouse-mixin-did-mount
|
|
:will-unmount mouse-mixin-will-unmount
|
|
:transfer-state mouse-mixin-transfer-state})
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Constants
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(def viewport-height 3000)
|
|
(def viewport-width 3000)
|
|
|
|
(def document-start-x 50)
|
|
(def document-start-y 50)
|
|
|