0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-13 16:21:57 -05:00

Add the final layouts drag and drop impl.

This commit is contained in:
Andrey Antukh 2016-02-01 23:25:37 +02:00
parent 2b74c34c00
commit d238166405
2 changed files with 105 additions and 60 deletions

View file

@ -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)

View file

@ -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