mirror of
https://github.com/penpot/penpot.git
synced 2025-03-28 15:41:25 -05:00
Add the final layouts drag and drop impl.
This commit is contained in:
Andrey Antukh
parent
2b74c34c00
commit
d238166405
2 changed files with 105 additions and 60 deletions
|
|
@ -377,11 +377,18 @@
|
|||
(rx/from-coll
|
||||
(map unlock-shape (:items shape))))))))
|
||||
|
||||
;; FIXME: the impl can be maybe simplified.
|
||||
|
||||
(defn transfer-shape
|
||||
"Event used in drag and drop for transfer shape
|
||||
from one position to an other."
|
||||
[sid tid type]
|
||||
(letfn [(transfer-to-group [state target])
|
||||
(letfn [(transfer-to-group [state {:keys [id] :as target}]
|
||||
(let [shapes (get-in state [:shapes-by-id id :items])
|
||||
shapes (conj shapes sid)]
|
||||
(as-> state $
|
||||
(assoc-in $ [:shapes-by-id id :items] shapes)
|
||||
(update-in $ [:shapes-by-id sid] assoc :group id))))
|
||||
|
||||
(transfer-at [index shapes sid]
|
||||
(let [[fst snd] (split-at index shapes)]
|
||||
|
|
@ -426,18 +433,24 @@
|
|||
(reify
|
||||
rs/UpdateEvent
|
||||
(-apply-update [_ state]
|
||||
(let [target (get-in state [:shapes-by-id tid])
|
||||
source (get-in state [:shapes-by-id sid])
|
||||
state (remove-source state source)]
|
||||
(cond
|
||||
(and (= type :inside) (:group target))
|
||||
(transfer-to-group state target)
|
||||
(if (= tid sid)
|
||||
state
|
||||
(let [target (get-in state [:shapes-by-id tid])
|
||||
source (get-in state [:shapes-by-id sid])
|
||||
state (remove-source state source)]
|
||||
(cond
|
||||
(and (= type :inside)
|
||||
(= (:type target) :builtin/group))
|
||||
(transfer-to-group state target)
|
||||
|
||||
(= type :before)
|
||||
(transfer-before state target)
|
||||
(= type :before)
|
||||
(transfer-before state target)
|
||||
|
||||
(= type :after)
|
||||
(transfer-after state target)))))))
|
||||
(= type :after)
|
||||
(transfer-after state target)
|
||||
|
||||
:else
|
||||
(throw (ex-info "Invalid data" {})))))))))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Events (for selected)
|
||||
|
|
|
|||
|
|
@ -14,6 +14,7 @@
|
|||
[uxbox.ui.workspace.base :as wb]
|
||||
[uxbox.ui.icons :as i]
|
||||
[uxbox.ui.mixins :as mx]
|
||||
[uxbox.util.dom.dnd :as dnd]
|
||||
[uxbox.util.dom :as dom])
|
||||
(:import goog.events.EventType))
|
||||
|
||||
|
|
@ -115,36 +116,30 @@
|
|||
toggle-visibility #(toggle-visibility selected item %)
|
||||
toggle-blocking #(toggle-blocking item %)
|
||||
local (:rum/local own)
|
||||
|
||||
classes (classnames
|
||||
:selected selected?
|
||||
:drag-top (= :top (:over @local))
|
||||
:drag-bottom (= :bottom (:over @local))
|
||||
:drag-inside (= :middle (:over @local)))]
|
||||
(letfn [(on-drag-start [event]
|
||||
(let [target (.-target event)
|
||||
style (.-style target)
|
||||
dt (.-dataTransfer event)]
|
||||
(set! (.-effectAllowed dt) "move")
|
||||
(.setData dt "item/uuid" (pr-str (:id item)))
|
||||
(let [target (dom/event->target event)]
|
||||
(dnd/set-allowed-effect! event "move")
|
||||
(dnd/set-data! event (:id item))
|
||||
(swap! local assoc :dragging true)))
|
||||
(on-drag-end [event]
|
||||
(swap! local assoc :dragging false :over nil))
|
||||
(on-drop [event]
|
||||
(let [dt (.-dataTransfer event)
|
||||
id (read-string (.getData dt "item/uuid"))
|
||||
(dom/stop-propagation event)
|
||||
(let [id (dnd/get-data event)
|
||||
over (:over @local)]
|
||||
(case (:over @local)
|
||||
:top (rs/emit! (dw/transfer-shape id (:id item) :before))
|
||||
:bottom (rs/emit! (dw/transfer-shape id (:id item) :after))
|
||||
;; :middle (rs/emit! (dw/transfer-inside id (:id item)))
|
||||
)
|
||||
:bottom (rs/emit! (dw/transfer-shape id (:id item) :after)))
|
||||
(swap! local assoc :dragging false :over nil)))
|
||||
(on-drag-over [event]
|
||||
(dom/prevent-default event)
|
||||
(let [dt (.-dataTransfer event)
|
||||
over (get-hover-position event false)]
|
||||
(set! (.-dropEffect dt) "move")
|
||||
(dnd/set-drop-effect! event "move")
|
||||
(let [over (get-hover-position event false)]
|
||||
(swap! local assoc :over over)))
|
||||
(on-drag-enter [event]
|
||||
(swap! local assoc :over true))
|
||||
|
|
@ -159,7 +154,6 @@
|
|||
:on-drag-over on-drag-over
|
||||
:on-drag-end on-drag-end
|
||||
:on-drop on-drop
|
||||
:data-over (str (:over @local))
|
||||
:draggable true
|
||||
:class (when selected? "selected")}
|
||||
[:div.element-list-body
|
||||
|
|
@ -198,40 +192,78 @@
|
|||
toggle-open (fn [event]
|
||||
(dom/stop-propagation event)
|
||||
(swap! local assoc :open (not open?)))
|
||||
shapes-by-id (rum/react wb/shapes-by-id-l)]
|
||||
(html
|
||||
[:li.group {:class (when open? "open") :draggable true}
|
||||
[:div.element-list-body
|
||||
{:class (when selected? "selected")
|
||||
:on-click select}
|
||||
[:div.element-actions
|
||||
[:div.toggle-element
|
||||
{:class (when-not (:hidden item) "selected")
|
||||
:on-click toggle-visibility}
|
||||
i/eye]
|
||||
[:div.block-element
|
||||
{:class (when (:blocked item) "selected")
|
||||
:on-click toggle-blocking}
|
||||
i/lock]
|
||||
[:div.chain-element
|
||||
{:class (when (:locked item) "selected")
|
||||
:on-click toggle-locking}
|
||||
i/chain]]
|
||||
[:div.element-icon i/folder]
|
||||
[:span (:name item "Unnamed group")]
|
||||
[:span.toggle-content
|
||||
{:on-click toggle-open
|
||||
:class (when open? "inverse")}
|
||||
i/arrow-slide]]
|
||||
(if open?
|
||||
[:ul
|
||||
(for [shape (map #(get shapes-by-id %) (:items item))
|
||||
:let [key (str (:id shape))]]
|
||||
(if (= (:type shape) :builtin/group)
|
||||
(-> (layer-group shape selected)
|
||||
(rum/with-key key))
|
||||
(-> (layer-element shape selected)
|
||||
(rum/with-key key))))])])))
|
||||
shapes-by-id (rum/react wb/shapes-by-id-l)
|
||||
classes (classnames
|
||||
:selected selected?
|
||||
:drag-top (= :top (:over @local))
|
||||
:drag-bottom (= :bottom (:over @local))
|
||||
:drag-inside (= :middle (:over @local)))]
|
||||
(letfn [(on-drag-start [event]
|
||||
(let [target (dom/event->target event)]
|
||||
(dnd/set-allowed-effect! event "move")
|
||||
(dnd/set-data! event (:id item))
|
||||
(swap! local assoc :dragging true)))
|
||||
(on-drag-end [event]
|
||||
(swap! local assoc :dragging false :over nil))
|
||||
(on-drop [event]
|
||||
(dom/stop-propagation event)
|
||||
(let [id (dnd/get-data event)
|
||||
over (:over @local)]
|
||||
(case (:over @local)
|
||||
:top (rs/emit! (dw/transfer-shape id (:id item) :before))
|
||||
:bottom (rs/emit! (dw/transfer-shape id (:id item) :after))
|
||||
:middle (rs/emit! (dw/transfer-shape id (:id item) :inside)))
|
||||
(swap! local assoc :dragging false :over nil)))
|
||||
(on-drag-over [event]
|
||||
(dom/prevent-default event)
|
||||
(dnd/set-drop-effect! event "move")
|
||||
(let [over (get-hover-position event true)]
|
||||
(swap! local assoc :over over)))
|
||||
(on-drag-enter [event]
|
||||
(swap! local assoc :over true))
|
||||
(on-drag-leave [event]
|
||||
(swap! local assoc :over false))]
|
||||
(html
|
||||
[:li.group {:class (when open? "open")
|
||||
:key (str (:id item))
|
||||
:draggable true}
|
||||
[:div.element-list-body
|
||||
{:class classes
|
||||
:on-drag-start on-drag-start
|
||||
:on-drag-enter on-drag-enter
|
||||
:on-drag-leave on-drag-leave
|
||||
:on-drag-over on-drag-over
|
||||
:on-drag-end on-drag-end
|
||||
:on-drop on-drop
|
||||
:on-click select}
|
||||
[:div.element-actions
|
||||
[:div.toggle-element
|
||||
{:class (when-not (:hidden item) "selected")
|
||||
:on-click toggle-visibility}
|
||||
i/eye]
|
||||
[:div.block-element
|
||||
{:class (when (:blocked item) "selected")
|
||||
:on-click toggle-blocking}
|
||||
i/lock]
|
||||
[:div.chain-element
|
||||
{:class (when (:locked item) "selected")
|
||||
:on-click toggle-locking}
|
||||
i/chain]]
|
||||
[:div.element-icon i/folder]
|
||||
[:span (:name item "Unnamed group")]
|
||||
[:span.toggle-content
|
||||
{:on-click toggle-open
|
||||
:class (when open? "inverse")}
|
||||
i/arrow-slide]]
|
||||
(if open?
|
||||
[:ul
|
||||
(for [shape (map #(get shapes-by-id %) (:items item))
|
||||
:let [key (str (:id shape))]]
|
||||
(if (= (:type shape) :builtin/group)
|
||||
(-> (layer-group shape selected)
|
||||
(rum/with-key key))
|
||||
(-> (layer-element shape selected)
|
||||
(rum/with-key key))))])]))))
|
||||
|
||||
(def ^:static ^:private layer-group
|
||||
(mx/component
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue