Add Clipboard interface, readText, writeText

CHANGELOG.md

@@ -12,6 +12,17 @@ Bugfixes:
 
 Other improvements:
 
+## [v4.1.0](https://github.com/purescript-web/purescript-web-clipboard/releases/tag/v4.1.0) - 2022-07-14
+
+Breaking changes:
+
+New features:
+- Added partial `Clipboard` interface implementation with `readText` and `writeText` operations (#11 by @garyb)
+
+Bugfixes:
+
+Other improvements:
+
 ## [v4.0.0](https://github.com/purescript-web/purescript-web-clipboard/releases/tag/v4.0.0) - 2022-04-27
 
 Breaking changes:

bower.json

@@ -15,6 +15,7 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-web-html": "^4.0.0"
+    "purescript-web-html": "^4.0.0",
+    "purescript-web-promise": "purescript-web/purescript-web-promise#^3.0.0"
   }
 }

src/Web/Clipboard/Clipboard.js

@@ -0,0 +1,19 @@
+export function clipboard(navigator) {
+  return function () {
+    return navigator.clipboard;
+  };
+}
+
+export function readText(clipboard) {
+  return function () {
+    return clipboard.readText();
+  };
+}
+
+export function writeText(text) {
+  return function (clipboard) {
+    return function () {
+      return clipboard.writeText(text);
+    };
+  };
+}

src/Web/Clipboard/Clipboard.purs

@@ -0,0 +1,25 @@
+module Web.Clipboard where
+
+import Prelude
+
+import Data.Maybe (Maybe)
+import Effect (Effect)
+import Unsafe.Coerce (unsafeCoerce)
+import Web.Event.Internal.Types (EventTarget)
+import Web.HTML (Navigator)
+import Web.Internal.FFI (unsafeReadProtoTagged)
+import Web.Promise (Promise)
+
+foreign import clipboard :: Navigator -> Effect Clipboard
+
+foreign import data Clipboard :: Type
+
+toEventTarget :: Clipboard -> EventTarget
+toEventTarget = unsafeCoerce
+
+fromEventTarget :: EventTarget -> Maybe Clipboard
+fromEventTarget = unsafeReadProtoTagged "Clipboard"
+
+foreign import readText :: Clipboard -> Effect (Promise String)
+
+foreign import writeText :: String -> Clipboard -> Effect (Promise Unit)