mirror of
https://github.com/penpot/penpot.git
synced 2026-05-23 08:53:39 +00:00
186 lines
8.6 KiB
Clojure
186 lines
8.6 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) KALEIDOS INC
|
|
|
|
(ns app.main.ui.flex-controls.margin
|
|
(:require
|
|
[app.common.geom.point :as gpt]
|
|
[app.common.types.modifiers :as ctm]
|
|
[app.main.data.workspace.modifiers :as dwm]
|
|
[app.main.refs :as refs]
|
|
[app.main.store :as st]
|
|
[app.main.ui.css-cursors :as cur]
|
|
[app.main.ui.flex-controls.common :as fcc]
|
|
[app.main.ui.workspace.viewport.viewport-ref :refer [point->viewport]]
|
|
[app.util.dom :as dom]
|
|
[rumext.v2 :as mf]))
|
|
|
|
(mf/defc margin-display [{:keys [shape-id zoom hover-all? hover-v? hover-h? margin-num margin on-pointer-enter on-pointer-leave
|
|
rect-data hover? selected? mouse-pos hover-value]}]
|
|
(let [resizing? (mf/use-var false)
|
|
start (mf/use-var nil)
|
|
original-value (mf/use-var 0)
|
|
negate? (true? (:resize-negate? rect-data))
|
|
axis (:resize-axis rect-data)
|
|
|
|
on-pointer-down
|
|
(mf/use-fn
|
|
(mf/deps shape-id margin-num margin)
|
|
(fn [event]
|
|
(dom/capture-pointer event)
|
|
(reset! resizing? true)
|
|
(reset! start (dom/get-client-position event))
|
|
(reset! original-value (:initial-value rect-data))))
|
|
|
|
on-lost-pointer-capture
|
|
(mf/use-fn
|
|
(mf/deps shape-id margin-num margin)
|
|
(fn [event]
|
|
(dom/release-pointer event)
|
|
(reset! resizing? false)
|
|
(reset! start nil)
|
|
(reset! original-value 0)
|
|
(st/emit! (dwm/apply-modifiers))))
|
|
|
|
on-pointer-move
|
|
(mf/use-fn
|
|
(mf/deps shape-id margin-num margin hover-all? hover-v? hover-h?)
|
|
(fn [event]
|
|
(let [pos (dom/get-client-position event)]
|
|
(reset! mouse-pos (point->viewport pos))
|
|
(when @resizing?
|
|
(let [delta (-> (gpt/to-vec @start pos)
|
|
(cond-> negate? gpt/negate)
|
|
(get axis))
|
|
val (int (max (+ @original-value (/ delta zoom)) 0))
|
|
layout-item-margin (cond
|
|
hover-all? (assoc margin :m1 val :m2 val :m3 val :m4 val)
|
|
hover-v? (assoc margin :m1 val :m3 val)
|
|
hover-h? (assoc margin :m2 val :m4 val)
|
|
:else (assoc margin margin-num val))
|
|
layout-item-margin-type (if (= (:m1 margin) (:m2 margin) (:m3 margin) (:m4 margin)) :simple :multiple)
|
|
modifiers (dwm/create-modif-tree [shape-id]
|
|
(-> (ctm/empty)
|
|
(ctm/change-property :layout-item-margin layout-item-margin)
|
|
(ctm/change-property :layout-item-margin-type layout-item-margin-type)))]
|
|
(reset! hover-value val)
|
|
(st/emit! (dwm/set-modifiers modifiers)))))))]
|
|
|
|
[:rect.margin-rect
|
|
{:x (:x rect-data)
|
|
:y (:y rect-data)
|
|
:width (:width rect-data)
|
|
:height (:height rect-data)
|
|
:on-pointer-enter on-pointer-enter
|
|
:on-pointer-leave on-pointer-leave
|
|
:on-pointer-down on-pointer-down
|
|
:on-lost-pointer-capture on-lost-pointer-capture
|
|
:on-pointer-move on-pointer-move
|
|
:class (when (or hover? selected?)
|
|
(if (= (:resize-axis rect-data) :x) (cur/get-dynamic "resize-ew" 0) (cur/get-dynamic "resize-ew" 90)))
|
|
:style {:fill (if (or hover? selected?) fcc/warning-color "none")
|
|
:opacity (if selected? 0.5 0.25)}}]))
|
|
|
|
|
|
(mf/defc margin-rects [{:keys [shape frame zoom alt? shift?]}]
|
|
(let [shape-id (:id shape)
|
|
pill-width (/ fcc/flex-display-pill-width zoom)
|
|
pill-height (/ fcc/flex-display-pill-height zoom)
|
|
margins-selected (mf/deref refs/workspace-margins-selected)
|
|
hover-value (mf/use-state 0)
|
|
mouse-pos (mf/use-state nil)
|
|
hover (mf/use-state nil)
|
|
hover-all? (and (not (nil? @hover)) alt?)
|
|
hover-v? (and (or (= @hover :m1) (= @hover :m3)) shift?)
|
|
hover-h? (and (or (= @hover :m2) (= @hover :m4)) shift?)
|
|
margin (:layout-item-margin shape)
|
|
{:keys [width height x1 x2 y1 y2]} (:selrect shape)
|
|
on-pointer-enter (fn [hover-type val]
|
|
(reset! hover hover-type)
|
|
(reset! hover-value val))
|
|
on-pointer-leave #(reset! hover nil)
|
|
hover? #(or hover-all?
|
|
(and (or (= % :m1) (= % :m3)) hover-v?)
|
|
(and (or (= % :m2) (= % :m4)) hover-h?)
|
|
(= @hover %))
|
|
margin-display-data {:m1 {:key (str shape-id "-m1")
|
|
:x x1
|
|
:y (if (:flip-y frame) y2 (- y1 (:m1 margin)))
|
|
:width width
|
|
:height (:m1 margin)
|
|
:initial-value (:m1 margin)
|
|
:resize-type :top
|
|
:resize-axis :y
|
|
:resize-negate? (:flip-y frame)}
|
|
:m2 {:key (str shape-id "-m2")
|
|
:x (if (:flip-x frame) (- x1 (:m2 margin)) x2)
|
|
:y y1
|
|
:width (:m2 margin)
|
|
:height height
|
|
:initial-value (:m2 margin)
|
|
:resize-type :left
|
|
:resize-axis :x
|
|
:resize-negate? (:flip-x frame)}
|
|
:m3 {:key (str shape-id "-m3")
|
|
:x x1
|
|
:y (if (:flip-y frame) (- y1 (:m3 margin)) y2)
|
|
:width width
|
|
:height (:m3 margin)
|
|
:initial-value (:m3 margin)
|
|
:resize-type :top
|
|
:resize-axis :y
|
|
:resize-negate? (:flip-y frame)}
|
|
:m4 {:key (str shape-id "-m4")
|
|
:x (if (:flip-x frame) x2 (- x1 (:m4 margin)))
|
|
:y y1
|
|
:width (:m4 margin)
|
|
:height height
|
|
:initial-value (:m4 margin)
|
|
:resize-type :left
|
|
:resize-axis :x
|
|
:resize-negate? (:flip-x frame)}}]
|
|
|
|
[:g.margins {:pointer-events "visible"}
|
|
(for [[margin-num rect-data] margin-display-data]
|
|
[:& margin-display
|
|
{:key (:key rect-data)
|
|
:shape-id shape-id
|
|
:zoom zoom
|
|
:hover-all? hover-all?
|
|
:hover-v? hover-v?
|
|
:hover-h? hover-h?
|
|
:margin-num margin-num
|
|
:margin margin
|
|
:on-pointer-enter (partial on-pointer-enter margin-num (get margin margin-num))
|
|
:on-pointer-leave on-pointer-leave
|
|
:rect-data rect-data
|
|
:hover? (hover? margin-num)
|
|
:selected? (get margins-selected margin-num)
|
|
:mouse-pos mouse-pos
|
|
:hover-value hover-value}])
|
|
|
|
(when @hover
|
|
[:& fcc/flex-display-pill
|
|
{:height pill-height
|
|
:width pill-width
|
|
:font-size (/ fcc/font-size zoom)
|
|
:border-radius (/ fcc/flex-display-pill-border-radius zoom)
|
|
:color fcc/warning-color
|
|
:x (:x @mouse-pos)
|
|
:y (- (:y @mouse-pos) pill-width)
|
|
:value @hover-value}])]))
|
|
|
|
(mf/defc margin-control
|
|
[{:keys [shape parent zoom alt? shift?]}]
|
|
(when shape
|
|
[:g.measurement-gaps {:pointer-events "none"}
|
|
[:g.hover-shapes
|
|
[:& margin-rects
|
|
{:shape shape
|
|
:frame parent
|
|
:zoom zoom
|
|
:alt? alt?
|
|
:shift? shift?}]]]))
|