mirror of
https://github.com/penpot/penpot.git
synced 2025-03-14 08:41:48 -05:00
🐛 Fix image paste in production build
This commit is contained in:
parent
07ba79a64c
commit
dfc938b804
1 changed files with 2 additions and 2 deletions
|
@ -86,10 +86,10 @@
|
||||||
[]
|
[]
|
||||||
(let [cboard (unchecked-get js/navigator "clipboard")
|
(let [cboard (unchecked-get js/navigator "clipboard")
|
||||||
read-item (fn [item]
|
read-item (fn [item]
|
||||||
(let [img-type (->> (.-types item)
|
(let [img-type (->> (.-types ^js item)
|
||||||
(d/seek #(str/starts-with? % "image/")))]
|
(d/seek #(str/starts-with? % "image/")))]
|
||||||
(if img-type
|
(if img-type
|
||||||
(rx/from (.getType item img-type))
|
(rx/from (.getType ^js item img-type))
|
||||||
(rx/empty))))]
|
(rx/empty))))]
|
||||||
(->> (rx/from (.read ^js cboard)) ;; Get a stream of item lists
|
(->> (rx/from (.read ^js cboard)) ;; Get a stream of item lists
|
||||||
(rx/mapcat identity) ;; Convert each item into an emission
|
(rx/mapcat identity) ;; Convert each item into an emission
|
||||||
|
|
Loading…
Add table
Reference in a new issue