write text to clipboard

Author: boygao1992

src/Clipboard.js

@@ -0,0 +1,5 @@
+"use strict";
+
+exports._writeText = function _writeText({ navigator, text }) {
+  navigator.clipboard.writeText(text);
+}

src/Clipboard.purs

@@ -7,15 +7,21 @@ module Ocelot.Clipboard
 
 import Prelude
 
+import Data.Maybe (Maybe(..))
+import Effect (Effect)
 import Effect.Aff as Effect.Aff
 import Effect.Aff.Class (class MonadAff)
+import Effect.Uncurried as Effect.Uncurried
 import Halogen as Halogen
 import Halogen.HTML as Halogen.HTML
 import Halogen.HTML.Events as Halogen.HTML.Events
 import Halogen.HTML.Properties as Halogen.HTML.Propetires
 import Ocelot.Block.Button as Ocelot.Block.Button
 import Ocelot.Block.Icon as Ocelot.Block.Icon
 import Ocelot.HTML.Properties as Ocelot.HTML.Properties
+import Web.HTML as Web.HTML
+import Web.HTML.Navigator as Web.HTML.Navigator
+import Web.HTML.Window as Web.HTML.Window
 
 type Slot
   = Halogen.Slot Query Output
@@ -85,12 +91,23 @@ copy ::
   MonadAff m =>
   ComponentM m Unit
 copy = do
+  input <- Halogen.gets _.input
+  Halogen.liftEffect
+    $ copyToClipboard input.text
   Halogen.modify_ _ { copied = true }
   void $ Halogen.fork do
     Halogen.liftAff
       $ Effect.Aff.delay (Effect.Aff.Milliseconds 1000.0)
     Halogen.modify_ _ { copied = false }
 
+copyToClipboard ::
+  String ->
+  Effect Unit
+copyToClipboard text = do
+  window <- Web.HTML.window
+  navigator <- Web.HTML.Window.navigator window
+  writeText navigator text
+
 receive ::
   forall m.
   Input ->
@@ -126,3 +143,20 @@ renderDone =
         [ Ocelot.HTML.Properties.css "ml-2" ]
         [ Halogen.HTML.text "Copied" ]
     ]
+
+foreign import _writeText ::
+  Effect.Uncurried.EffectFn1
+    { navigator :: Web.HTML.Navigator.Navigator
+    , text :: String
+    }
+    Unit
+
+writeText ::
+  Web.HTML.Navigator.Navigator ->
+  String ->
+  Effect Unit
+writeText navigator text =
+  Effect.Uncurried.runEffectFn1 _writeText
+    { navigator
+    , text
+    }