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

🎉 Add clipboard related functions to webapi utils.

Browse source
This commit is contained in:
Andrey Antukh 2020-03-23 15:28:12 +01:00
parent c66b483fba
commit 1195777036
1 changed files with 18 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

19
frontend/src/uxbox/util/webapi.cljs
View file

@ -7,8 +7,10 @@
(ns uxbox.util.webapi (ns uxbox.util.webapi
"HTML5 web api helpers." "HTML5 web api helpers."
(:require (:require
[promesa.core :as p]
[beicon.core :as rx] [beicon.core :as rx]
[cuerdas.core :as str])) [cuerdas.core :as str]
[uxbox.util.transit :as t]))
(defn read-file-as-text (defn read-file-as-text
[file] [file]
@ -65,4 +67,19 @@
;; (rx/create on-subscribe))) ;; (rx/create on-subscribe)))
(defn write-to-clipboard
[data]
(let [cboard (unchecked-get js/navigator "clipboard")]
(.writeText cboard (uxbox.util.transit/encode data))))
(defn- read-from-clipboard
[]
(let [cboard (unchecked-get js/navigator "clipboard")]
(-> (.readText cboard)
(p/then (fn [data]
(try
(t/decode data)
(catch :default e
nil)))))))