diff --git a/common/app/common/geom/shapes.cljc b/common/app/common/geom/shapes.cljc
index b19a00bcb..844664e22 100644
--- a/common/app/common/geom/shapes.cljc
+++ b/common/app/common/geom/shapes.cljc
@@ -121,8 +121,37 @@
(gpr/join-selrects)))
(defn translate-to-frame
- [shape {:keys [x y]}]
- (move shape (gpt/point (- x) (- y))))
+ [{:keys [type x y] :as shape} {:keys [x y]}]
+ (let [move-point
+ (fn [point]
+ (-> point
+ (update :x - x)
+ (update :y - y)))
+
+ move-segment
+ (fn [segment]
+ (-> segment
+ (d/update-in-when [:params :x] - x)
+ (d/update-in-when [:params :y] - y)
+ (d/update-in-when [:params :c1x] - x)
+ (d/update-in-when [:params :c1y] - y)
+ (d/update-in-when [:params :c2x] - x)
+ (d/update-in-when [:params :c2y] - y)))]
+
+ (-> shape
+ (d/update-when :x - x)
+ (d/update-when :y - y)
+ (update-in [:selrect :x] - x)
+ (update-in [:selrect :y] - y)
+ (update-in [:selrect :x1] - x)
+ (update-in [:selrect :y1] - y)
+ (update-in [:selrect :x2] - x)
+ (update-in [:selrect :y2] - y)
+
+ (d/update-when :points #(map move-point %))
+
+ (cond-> (= :path type)
+ (d/update-when :content #(map move-segment %))))))
;; --- Helpers
diff --git a/frontend/gulpfile.js b/frontend/gulpfile.js
index 20632db9a..dd8922be6 100644
--- a/frontend/gulpfile.js
+++ b/frontend/gulpfile.js
@@ -131,10 +131,17 @@ gulp.task("scss", function() {
.pipe(gulp.dest(paths.output + "css/"));
});
-gulp.task("svg:sprite", function() {
+gulp.task("svg:sprite:icons", function() {
return gulp.src(paths.resources + "images/icons/*.svg")
.pipe(gulpRename({prefix: "icon-"}))
- .pipe(svgSprite({mode:{symbol: {inline: true}}}))
+ .pipe(svgSprite({mode:{symbol: {inline: true, sprite: "icons.svg"}}}))
+ .pipe(gulp.dest(paths.output + "images/sprites/"));
+});
+
+gulp.task("svg:sprite:cursors", function() {
+ return gulp.src(paths.resources + "images/cursors/*.svg")
+ .pipe(gulpRename({prefix: "cursor-"}))
+ .pipe(svgSprite({mode:{symbol: {inline: true, sprite: "cursors.svg"}}}))
.pipe(gulp.dest(paths.output + "images/sprites/"));
});
@@ -143,7 +150,7 @@ gulp.task("template:main", templatePipeline({
output: paths.output
}));
-gulp.task("templates", gulp.series("svg:sprite", "template:main"));
+gulp.task("templates", gulp.series("svg:sprite:icons", "svg:sprite:cursors", "template:main"));
gulp.task("polyfills", function() {
return gulp.src(paths.resources + "polyfills/*.js")
diff --git a/frontend/resources/styles/main/partials/workspace.scss b/frontend/resources/styles/main/partials/workspace.scss
index 3861a5d33..581748154 100644
--- a/frontend/resources/styles/main/partials/workspace.scss
+++ b/frontend/resources/styles/main/partials/workspace.scss
@@ -130,14 +130,11 @@
grid-template-columns: 20px 1fr;
.viewport {
+ cursor: var(--cursor);
grid-column: 1 / span 2;
grid-row: 1 / span 2;
overflow: hidden;
- &.drawing {
- cursor: cell;
- }
-
rect.selection-rect {
fill: rgba(235, 215, 92, 0.1);
stroke: #000000;
diff --git a/frontend/resources/templates/index.mustache b/frontend/resources/templates/index.mustache
index 7011dce99..1000cd746 100644
--- a/frontend/resources/templates/index.mustache
+++ b/frontend/resources/templates/index.mustache
@@ -23,7 +23,8 @@
- {{>../public/images/sprites/symbol/svg/sprite.symbol.svg}}
+ {{>../public/images/sprites/symbol/icons.svg}}
+ {{>../public/images/sprites/symbol/cursors.svg}}
{{# manifest}}
diff --git a/frontend/src/app/main/data/workspace/common.cljs b/frontend/src/app/main/data/workspace/common.cljs
index 857d27957..a65534824 100644
--- a/frontend/src/app/main/data/workspace/common.cljs
+++ b/frontend/src/app/main/data/workspace/common.cljs
@@ -108,7 +108,7 @@
(let [page-id (:current-page-id state)]
(rx/concat
(when (some :page-id changes)
- (rx/of (update-indices page-id)))
+ (rx/of (update-indices page-id changes)))
(when (and save-undo? (seq undo-changes))
(let [entry {:undo-changes undo-changes
@@ -174,14 +174,13 @@
(rx/map (constantly ::index-initialized)))))))
(defn update-indices
- [page-id]
+ [page-id changes]
(ptk/reify ::update-indices
ptk/EffectEvent
(effect [_ state stream]
- (let [objects (lookup-page-objects state page-id)]
- (uw/ask! {:cmd :update-page-indices
- :page-id page-id
- :objects objects})))))
+ (uw/ask! {:cmd :update-page-indices
+ :page-id page-id
+ :changes changes}))))
;; --- Common Helpers & Events
diff --git a/frontend/src/app/main/data/workspace/drawing/box.cljs b/frontend/src/app/main/data/workspace/drawing/box.cljs
index dc6091372..669da547b 100644
--- a/frontend/src/app/main/data/workspace/drawing/box.cljs
+++ b/frontend/src/app/main/data/workspace/drawing/box.cljs
@@ -57,10 +57,10 @@
stoper (rx/filter stoper? stream)
initial @ms/mouse-position
-
page-id (:current-page-id state)
objects (dwc/lookup-page-objects state page-id)
layout (get state :workspace-layout)
+ zoom (get-in state [:workspace-local :zoom] 1)
frames (cp/select-frames objects)
fid (or (->> frames
@@ -80,7 +80,7 @@
(rx/of #(assoc-in state [:workspace-drawing :object] shape))
;; Initial SNAP
- (->> (snap/closest-snap-point page-id [shape] layout initial)
+ (->> (snap/closest-snap-point page-id [shape] layout zoom initial)
(rx/map move-drawing))
(->> ms/mouse-position
@@ -88,7 +88,7 @@
(rx/with-latest vector ms/mouse-position-ctrl)
(rx/switch-map
(fn [[point :as current]]
- (->> (snap/closest-snap-point page-id [shape] layout point)
+ (->> (snap/closest-snap-point page-id [shape] layout zoom point)
(rx/map #(conj current %)))))
(rx/map
(fn [[_ ctrl? point]]
diff --git a/frontend/src/app/main/data/workspace/notifications.cljs b/frontend/src/app/main/data/workspace/notifications.cljs
index 068c8b40a..5bb09a96a 100644
--- a/frontend/src/app/main/data/workspace/notifications.cljs
+++ b/frontend/src/app/main/data/workspace/notifications.cljs
@@ -206,7 +206,7 @@
(rx/merge
(rx/of (dwp/shapes-changes-persisted file-id msg))
(when (seq page-ids)
- (rx/from (map dwc/update-indices page-ids))))))))
+ (rx/from (map dwc/update-indices page-ids changes))))))))
(s/def ::library-change-event
(s/keys :req-un [::type
diff --git a/frontend/src/app/main/data/workspace/transforms.cljs b/frontend/src/app/main/data/workspace/transforms.cljs
index 1fbf6dc35..42907ecde 100644
--- a/frontend/src/app/main/data/workspace/transforms.cljs
+++ b/frontend/src/app/main/data/workspace/transforms.cljs
@@ -140,6 +140,7 @@
stoper (rx/filter ms/mouse-up? stream)
layout (:workspace-layout state)
page-id (:current-page-id state)
+ zoom (get-in state [:workspace-local :zoom] 1)
objects (dwc/lookup-page-objects state page-id)
resizing-shapes (map #(get objects %) ids)
text-shapes-ids (->> resizing-shapes
@@ -151,7 +152,7 @@
(rx/with-latest vector ms/mouse-position-shift)
(rx/map normalize-proportion-lock)
(rx/switch-map (fn [[point :as current]]
- (->> (snap/closest-snap-point page-id resizing-shapes layout point)
+ (->> (snap/closest-snap-point page-id resizing-shapes layout zoom point)
(rx/map #(conj current %)))))
(rx/mapcat (partial resize shape initial-position resizing-shapes))
(rx/take-until stoper))
@@ -284,6 +285,7 @@
shapes (mapv #(get objects %) ids)
stopper (rx/filter ms/mouse-up? stream)
layout (get state :workspace-layout)
+ zoom (get-in state [:workspace-local :zoom] 1)
position (->> ms/mouse-position
@@ -291,7 +293,7 @@
(rx/map #(gpt/to-vec from-position %)))
snap-delta (->> position
- (rx/switch-map #(snap/closest-snap-move page-id shapes objects layout %)))]
+ (rx/switch-map #(snap/closest-snap-move page-id shapes objects layout zoom %)))]
(rx/concat
(->> snap-delta
(rx/with-latest vector position)
diff --git a/frontend/src/app/main/exports.cljs b/frontend/src/app/main/exports.cljs
index 5b3e5dcdb..ecf860ce2 100644
--- a/frontend/src/app/main/exports.cljs
+++ b/frontend/src/app/main/exports.cljs
@@ -50,8 +50,8 @@
(-> rect
(update :x to-finite 0)
(update :y to-finite 0)
- (update :width to-finite 10000)
- (update :height to-finite 10000))))
+ (update :width to-finite 100000)
+ (update :height to-finite 100000))))
(declare shape-wrapper-factory)
diff --git a/frontend/src/app/main/snap.cljs b/frontend/src/app/main/snap.cljs
index 4a77fc6b9..d54cd86c0 100644
--- a/frontend/src/app/main/snap.cljs
+++ b/frontend/src/app/main/snap.cljs
@@ -69,8 +69,9 @@
(rx/map flatten-to-points))))
(defn- search-snap
- [page-id frame-id points coord filter-shapes]
- (let [ranges (->> points
+ [page-id frame-id points coord filter-shapes zoom]
+ (let [snap-accuracy (/ snap-accuracy zoom)
+ ranges (->> points
(map coord)
(mapv #(vector (- % snap-accuracy)
(+ % snap-accuracy))))]
@@ -90,9 +91,9 @@
(gpt/to-vec from to))))
(defn- closest-snap
- [page-id frame-id points filter-shapes]
- (let [snap-x (search-snap page-id frame-id points :x filter-shapes)
- snap-y (search-snap page-id frame-id points :y filter-shapes)]
+ [page-id frame-id points filter-shapes zoom]
+ (let [snap-x (search-snap page-id frame-id points :x filter-shapes zoom)
+ snap-y (search-snap page-id frame-id points :y filter-shapes zoom)]
;; snap-x is the second parameter because is the "source" to combine
(rx/combine-latest snap->vector snap-y snap-x)))
@@ -114,8 +115,9 @@
(and (>= s1c1 s2c1) (<= s1c1 s2c2))
(and (>= s1c2 s2c1) (<= s1c2 s2c2)))))
-(defn calculate-snap [coord selrect shapes-lt shapes-gt]
- (let [dist-lt (fn [other] (sr-distance coord (:selrect other) selrect))
+(defn calculate-snap [coord selrect shapes-lt shapes-gt zoom]
+ (let [snap-distance-accuracy (/ snap-distance-accuracy zoom)
+ dist-lt (fn [other] (sr-distance coord (:selrect other) selrect))
dist-gt (fn [other] (sr-distance coord selrect (:selrect other)))
;; Calculates the snap distance when in the middle of two shapes
@@ -142,7 +144,7 @@
(fn [acc val]
;; Using a number is faster than accesing the variable.
;; Keep up to date with `snap-distance-accuracy`
- (if (and (<= val 10) (>= val (- 10)))
+ (if (and (<= val snap-distance-accuracy) (>= val (- snap-distance-accuracy)))
(min acc val)
acc))
@@ -171,11 +173,11 @@
(if (mth/finite? min-snap) [0 min-snap] nil)))
-(defn search-snap-distance [selrect coord shapes-lt shapes-gt]
+(defn search-snap-distance [selrect coord shapes-lt shapes-gt zoom]
(->> shapes-lt
(rx/combine-latest vector shapes-gt)
(rx/map (fn [[shapes-lt shapes-gt]]
- (calculate-snap coord selrect shapes-lt shapes-gt)))))
+ (calculate-snap coord selrect shapes-lt shapes-gt zoom)))))
(defn select-shapes-area
[page-id shapes objects area-selrect]
@@ -187,7 +189,7 @@
(rx/map (fn [ids] (map #(get objects %) ids)))))
(defn closest-distance-snap
- [page-id shapes objects movev]
+ [page-id shapes objects zoom movev]
(let [frame-id (snap-frame-id shapes)
frame (get objects frame-id)
selrect (->> shapes (map #(gsh/move % movev)) gsh/selection-rect)]
@@ -197,12 +199,12 @@
(let [areas (->> (gsh/selrect->areas (or (:selrect frame)
(gsh/rect->selrect @refs/vbox)) selrect)
(d/mapm #(select-shapes-area page-id shapes objects %2)))
- snap-x (search-snap-distance selrect :x (:left areas) (:right areas))
- snap-y (search-snap-distance selrect :y (:top areas) (:bottom areas))]
+ snap-x (search-snap-distance selrect :x (:left areas) (:right areas) zoom)
+ snap-y (search-snap-distance selrect :y (:top areas) (:bottom areas) zoom)]
(rx/combine-latest snap->vector snap-y snap-x)))))))
(defn closest-snap-point
- [page-id shapes layout point]
+ [page-id shapes layout zoom point]
(let [frame-id (snap-frame-id shapes)
filter-shapes (into #{} (map :id shapes))
filter-shapes (fn [id] (if (= id :layout)
@@ -210,12 +212,12 @@
(not (contains? layout :snap-grid)))
(or (filter-shapes id)
(not (contains? layout :dynamic-alignment)))))]
- (->> (closest-snap page-id frame-id [point] filter-shapes)
+ (->> (closest-snap page-id frame-id [point] filter-shapes zoom)
(rx/map #(or % (gpt/point 0 0)))
(rx/map #(gpt/add point %)))))
(defn closest-snap-move
- [page-id shapes objects layout movev]
+ [page-id shapes objects layout zoom movev]
(let [frame-id (snap-frame-id shapes)
filter-shapes (into #{} (map :id shapes))
filter-shapes (fn [id] (if (= id :layout)
@@ -232,9 +234,9 @@
;; Move the points in the translation vector
(map #(gpt/add % movev)))]
- (->> (rx/merge (closest-snap page-id frame-id shapes-points filter-shapes)
+ (->> (rx/merge (closest-snap page-id frame-id shapes-points filter-shapes zoom)
(when (contains? layout :dynamic-alignment)
- (closest-distance-snap page-id shapes objects movev)))
+ (closest-distance-snap page-id shapes objects zoom movev)))
(rx/reduce gpt/min)
(rx/map #(or % (gpt/point 0 0))))))
diff --git a/frontend/src/app/main/ui/shapes/text.cljs b/frontend/src/app/main/ui/shapes/text.cljs
index 6875ee50d..c22da1aa6 100644
--- a/frontend/src/app/main/ui/shapes/text.cljs
+++ b/frontend/src/app/main/ui/shapes/text.cljs
@@ -121,8 +121,8 @@
:id (:id shape)
:data-colors (retrieve-colors shape)
:transform (geom/transform-matrix shape)
- :width (if (#{:auto-width} grow-type) 10000 width)
- :height (if (#{:auto-height :auto-width} grow-type) 10000 height)
+ :width (if (#{:auto-width} grow-type) 100000 width)
+ :height (if (#{:auto-height :auto-width} grow-type) 100000 height)
:ref ref}
[:& text-content {:shape shape
:content (:content shape)
diff --git a/frontend/src/app/main/ui/workspace/frame_grid.cljs b/frontend/src/app/main/ui/workspace/frame_grid.cljs
index bcec357b8..9f22bbd2d 100644
--- a/frontend/src/app/main/ui/workspace/frame_grid.cljs
+++ b/frontend/src/app/main/ui/workspace/frame_grid.cljs
@@ -89,7 +89,9 @@
(:selected local)))]
(l/derived moving-shapes refs/workspace-local)))
-(mf/defc frame-grid [{:keys [zoom]}]
+(mf/defc frame-grid
+ {::mf/wrap [mf/memo]}
+ [{:keys [zoom]}]
(let [frames (mf/deref refs/workspace-frames)
shapes-moving (mf/deref shapes-moving-ref)]
[:g.grid-display {:style {:pointer-events "none"}}
diff --git a/frontend/src/app/main/ui/workspace/rules.cljs b/frontend/src/app/main/ui/workspace/rules.cljs
index 04db2ae6e..b8eefa2df 100644
--- a/frontend/src/app/main/ui/workspace/rules.cljs
+++ b/frontend/src/app/main/ui/workspace/rules.cljs
@@ -11,7 +11,8 @@
(:require
[rumext.alpha :as mf]
[app.common.math :as mth]
- [app.util.object :as obj]))
+ [app.util.object :as obj]
+ [app.util.timers :as timers]))
(defn- calculate-step-size
[zoom]
@@ -34,49 +35,52 @@
(defn draw-rule!
[dctx {:keys [zoom size start count type] :or {count 200}}]
(when start
- (let [txfm (- (* (- 0 start) zoom) 20)
- minv (max (mth/round start) -10000)
- maxv (min (mth/round (+ start (/ size zoom))) 10000)
- step (calculate-step-size zoom)]
+ (let [txfm (- (* (- 0 start) zoom) 20)
+ step (calculate-step-size zoom)
- (if (= type :horizontal)
- (.translate dctx txfm 0)
- (.translate dctx 0 txfm))
+ minv (max (mth/round start) -100000)
+ minv (* (mth/ceil (/ minv step)) step)
- (obj/set! dctx "font" "12px worksans")
- (obj/set! dctx "fillStyle" "#7B7D85")
- (obj/set! dctx "strokeStyle" "#7B7D85")
- (obj/set! dctx "textAlign" "center")
+ maxv (min (mth/round (+ start (/ size zoom))) 100000)
+ maxv (* (mth/floor (/ maxv step)) step)
- (loop [i minv]
- (when (< i maxv)
- (let [pos (+ (* i zoom) 0)]
- (when (= (mod i step) 0)
- (.save dctx)
- (if (= type :horizontal)
- (do
- (.fillText dctx (str i) pos 13))
- (do
- (.translate dctx 12 pos)
- (.rotate dctx (/ (* 270 js/Math.PI) 180))
- (.fillText dctx (str i) 0 0)))
- (.restore dctx))
- (recur (inc i)))))
+ path (js/Path2D.)]
- (let [path (js/Path2D.)]
- (loop [i minv]
- (if (> i maxv)
- (.stroke dctx path)
- (let [pos (+ (* i zoom) 0)]
- (when (= (mod i step) 0)
- (if (= type :horizontal)
- (do
- (.moveTo path pos 17)
- (.lineTo path pos 20))
- (do
- (.moveTo path 17 pos)
- (.lineTo path 20 pos))))
- (recur (inc i)))))))))
+ (if (= type :horizontal)
+ (.translate dctx txfm 0)
+ (.translate dctx 0 txfm))
+
+ (obj/set! dctx "font" "12px worksans")
+ (obj/set! dctx "fillStyle" "#7B7D85")
+ (obj/set! dctx "strokeStyle" "#7B7D85")
+ (obj/set! dctx "textAlign" "center")
+
+ (loop [i minv]
+ (if (<= i maxv)
+ (let [pos (+ (* i zoom) 0)]
+ (.save dctx)
+ (if (= type :horizontal)
+ (do
+ ;; Write the rule numbers
+ (.fillText dctx (str i) pos 13)
+
+ ;; Build the rules lines
+ (.moveTo path pos 17)
+ (.lineTo path pos 20))
+ (do
+ ;; Write the rule numbers
+ (.translate dctx 12 pos)
+ (.rotate dctx (/ (* 270 js/Math.PI) 180))
+ (.fillText dctx (str i) 0 0)
+
+ ;; Build the rules lines
+ (.moveTo path 17 pos)
+ (.lineTo path 20 pos)))
+ (.restore dctx)
+ (recur (+ i step)))
+
+ ;; Put the path in the canvas
+ (.stroke dctx path))))))
(mf/defc horizontal-rule
diff --git a/frontend/src/app/main/ui/workspace/shapes/frame.cljs b/frontend/src/app/main/ui/workspace/shapes/frame.cljs
index bec720cb5..ff0e4ff0b 100644
--- a/frontend/src/app/main/ui/workspace/shapes/frame.cljs
+++ b/frontend/src/app/main/ui/workspace/shapes/frame.cljs
@@ -60,6 +60,7 @@
edition (mf/deref refs/selected-edition)
label-pos (gpt/point x (- y (/ 10 zoom)))
handle-click (use-select-shape frame edition)
+ handle-mouse-down (we/use-mouse-down frame)
handle-pointer-enter (we/use-pointer-enter frame)
handle-pointer-leave (we/use-pointer-leave frame)]
[:text {:x 0
@@ -68,7 +69,8 @@
:height 20
:class "workspace-frame-label"
:transform (text-transform label-pos zoom)
- :on-mouse-down handle-click
+ :on-click handle-click
+ :on-mouse-down handle-mouse-down
:on-pointer-over handle-pointer-enter
:on-pointer-out handle-pointer-leave}
(:name frame)]))
diff --git a/frontend/src/app/main/ui/workspace/shapes/text/editor.cljs b/frontend/src/app/main/ui/workspace/shapes/text/editor.cljs
index 665065b8f..a610904ca 100644
--- a/frontend/src/app/main/ui/workspace/shapes/text/editor.cljs
+++ b/frontend/src/app/main/ui/workspace/shapes/text/editor.cljs
@@ -269,7 +269,7 @@
{:keys [x y width height grow-type]} shape]
[:foreignObject {:transform (gsh/transform-matrix shape)
:x x :y y
- :width (if (#{:auto-width} grow-type) 10000 width)
- :height (if (#{:auto-height :auto-width} grow-type) 10000 height)}
+ :width (if (#{:auto-width} grow-type) 100000 width)
+ :height (if (#{:auto-height :auto-width} grow-type) 100000 height)}
[:& text-shape-edit-html {:shape shape}]]))
diff --git a/frontend/src/app/main/ui/workspace/viewport.cljs b/frontend/src/app/main/ui/workspace/viewport.cljs
index 04c2b48cf..2787f0d4b 100644
--- a/frontend/src/app/main/ui/workspace/viewport.cljs
+++ b/frontend/src/app/main/ui/workspace/viewport.cljs
@@ -242,12 +242,6 @@
page-id (mf/use-ctx ctx/current-page-id)
selected-objects (mf/deref refs/selected-objects)
- selrect-orig (->> selected-objects
- (gsh/selection-rect))
- selrect (->> selected-objects
- (map #(assoc % :modifiers (:modifiers local)))
- (map gsh/transform-shape)
- (gsh/selection-rect))
alt? (mf/use-state false)
cursor (mf/use-state cur/pointer-inner)
@@ -617,9 +611,12 @@
@alt? cur/duplicate
:else cur/pointer-inner)]
+ ;; Chrome BUG: https://bugs.chromium.org/p/chromium/issues/detail?id=664066
+ ;; Right now this is a performance concern but cannot find a better alternative
(when (not= @cursor new-cursor)
(timers/raf
- #(reset! cursor new-cursor))))))
+ #(dom/set-css-property (dom/get-root) "--cursor" new-cursor))
+ (reset! cursor new-cursor)))))
(mf/use-layout-effect (mf/deps layout) on-resize)
(hooks/use-stream ms/keyboard-alt #(reset! alt? %))
@@ -650,8 +647,7 @@
:view-box (format-viewbox vbox)
:ref viewport-ref
:class (when drawing-tool "drawing")
- :style {:cursor @cursor
- :background-color (get options :background "#E8E9EA")}
+ :style {:background-color (get options :background "#E8E9EA")}
:on-context-menu on-context-menu
:on-click on-click
:on-double-click on-double-click
diff --git a/frontend/src/app/util/debug.cljs b/frontend/src/app/util/debug.cljs
index bb5085293..80fdc4783 100644
--- a/frontend/src/app/util/debug.cljs
+++ b/frontend/src/app/util/debug.cljs
@@ -1,6 +1,10 @@
(ns app.util.debug
"Debugging utils"
- (:require [cljs.pprint :refer [pprint]]))
+ (:require
+ [app.util.timers :as timers]
+ [app.util.object :as obj]
+ [app.common.math :as mth]
+ [cljs.pprint :refer [pprint]]))
(def debug-options #{:bounding-boxes :group :events :rotation-handler :resize-handler :selection-center #_:simple-selection})
@@ -51,3 +55,41 @@
(set! (.-dbg ^js js/window) clj->js)
(set! (.-pp ^js js/window) pprint))
+
+(defonce widget-style "
+ background: black;
+ bottom: 10px;
+ color: white;
+ height: 20px;
+ padding-left: 8px;
+ position: absolute;
+ right: 10px;
+ width: 40px;
+ z-index: 99999;
+ opacity: 0.5;
+")
+
+(defn ^:export fps
+ "Adds a widget to keep track of the average FPS's"
+ []
+ (let [last (volatile! (.now js/performance))
+ avg (volatile! 0)
+ node (-> (.createElement js/document "div")
+ (obj/set! "id" "fps")
+ (obj/set! "style" widget-style))
+ body (obj/get js/document "body")
+
+ do-thing (fn do-thing []
+ (timers/raf
+ (fn []
+ (let [cur (.now js/performance)
+ ts (/ 1000 (* (- cur @last)))
+ val (+ @avg (* (- ts @avg) 0.1))]
+
+ (obj/set! node "innerText" (mth/precision val 0))
+ (vreset! last cur)
+ (vreset! avg val)
+ (do-thing)))))]
+
+ (.appendChild body node)
+ (do-thing)))
diff --git a/frontend/src/app/worker/impl.cljs b/frontend/src/app/worker/impl.cljs
index 99bc85fad..30ec5b8e3 100644
--- a/frontend/src/app/worker/impl.cljs
+++ b/frontend/src/app/worker/impl.cljs
@@ -7,10 +7,13 @@
(ns app.worker.impl
(:require
[okulary.core :as l]
- [app.util.transit :as t]))
+ [app.util.transit :as t]
+ [app.common.pages.changes :as ch]))
(enable-console-print!)
+(defonce state (l/atom {:pages-index {}}))
+
;; --- Handler
(defmulti handler :cmd)
@@ -24,15 +27,23 @@
message)
(defmethod handler :initialize-indices
- [message]
+ [{:keys [data] :as message}]
+
+ (reset! state data)
+
(handler (-> message
(assoc :cmd :selection/initialize-index)))
(handler (-> message
(assoc :cmd :snaps/initialize-index))))
(defmethod handler :update-page-indices
- [message]
- (handler (-> message
- (assoc :cmd :selection/update-index)))
- (handler (-> message
- (assoc :cmd :snaps/update-index))))
+ [{:keys [page-id changes] :as message}]
+
+ (swap! state ch/process-changes changes false)
+
+ (let [objects (get-in @state [:pages-index page-id :objects])
+ message (assoc message :objects objects)]
+ (handler (-> message
+ (assoc :cmd :selection/update-index)))
+ (handler (-> message
+ (assoc :cmd :snaps/update-index)))))