3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-25 01:27:16 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fix paste properties on readonly state (#5736)

Browse source
This commit is contained in:
Alonso Torres 2025-01-31 11:47:28 +01:00 • committed by GitHub
parent c3df84d812
commit 0483d1fd93
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 14 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

27
frontend/src/app/main/data/workspace.cljs
View file

@ -1650,21 +1650,22 @@
[]
(ptk/reify ::paste-selected-props
ptk/WatchEvent
(watch [_ _ _]
(letfn [(decode-entry [entry]
(-> entry t/decode-str paste-transit-props))
(watch [_ state _]
(when-not (-> state :workspace-global :read-only?)
(letfn [(decode-entry [entry]
(-> entry t/decode-str paste-transit-props))
(on-error [cause]
(let [data (ex-data cause)]
(if (:not-implemented data)
(rx/of (ntf/warn (tr "errors.clipboard-not-implemented")))
(js/console.error "Clipboard error:" cause))
(rx/empty)))]
(on-error [cause]
(let [data (ex-data cause)]
(if (:not-implemented data)
(rx/of (ntf/warn (tr "errors.clipboard-not-implemented")))
(js/console.error "Clipboard error:" cause))
(rx/empty)))]
(->> (wapi/read-from-clipboard)
(rx/map decode-entry)
(rx/take 1)
(rx/catch on-error))))))
(->> (wapi/read-from-clipboard)
(rx/map decode-entry)
(rx/take 1)
(rx/catch on-error)))))))
(defn selected-frame? [state]
(let [selected (dsh/lookup-selected state)