mirror of
https://github.com/penpot/penpot.git
synced 2026-05-03 15:18:59 +00:00
17 lines
495 B
Clojure
17 lines
495 B
Clojure
(ns uxbox.state.clipboard)
|
|
|
|
(defonce ^:private ^:const +max-items+ 5)
|
|
|
|
(defn conj-item
|
|
[state item]
|
|
(if-let [project (get-in state [:workspace :project])]
|
|
(let [queue (get-in state [:clipboard project] #queue [])
|
|
queue (conj queue item)]
|
|
(assoc-in state [:clipboard project]
|
|
(if (> (count queue) +max-items+)
|
|
(pop queue)
|
|
queue)))
|
|
(do
|
|
(js/console.warn "no active project for manage clipboard.")
|
|
state)))
|