Merge pull request #4 from kRITZCREEK/copy-from-target

Adds a function to copy text from an existing element on the page

Author: beckyconning

example/index.html

@@ -17,6 +17,12 @@
       <button class="test-selector" type="button" data-copy-text="From test-selector child#2!">
         Copy
       </button>
+      <div>
+        <input id="input-selector" type="text" value="Copy me!" />
+        <button id="input-button-selector" type="button">
+          Copy Text in Input
+        </button>
+      </div>
     </form>
   </body>
 </html>

example/src/Main.purs

@@ -2,22 +2,21 @@ module Main where
 
 import Prelude
 
+import CSS (Selector, fromString)
+import Clipboard as C
 import Control.Monad.Eff (Eff)
-
-import Data.Maybe (fromMaybe)
-
 import DOM (DOM)
-import CSS (Selector, fromString)
 import DOM.Event.EventTarget (addEventListener, eventListener)
 import DOM.HTML (window)
 import DOM.HTML.Event.EventTypes (load)
 import DOM.HTML.Types (windowToEventTarget, htmlDocumentToDocument)
 import DOM.HTML.Window (document)
-import DOM.Node.NonElementParentNode (getElementById)
-import DOM.Node.Types (Element, ElementId(..), documentToNonElementParentNode)
 import DOM.Node.Element (getAttribute)
-
-import Clipboard as C
+import DOM.Node.NonElementParentNode (getElementById)
+import DOM.Node.Types (Element, ElementId(ElementId), documentToNonElementParentNode)
+import Data.Maybe (fromJust, fromMaybe)
+import Data.Newtype (wrap)
+import Partial.Unsafe (unsafePartial)
 
 onLoad :: forall eff. (Eff (dom :: DOM | eff) Unit) -> Eff (dom :: DOM | eff) Unit
 onLoad action
@@ -34,10 +33,18 @@ testElement el = void $ C.fromElement el $ stringFromAttr "data-copy-text" el
 testSelector :: forall eff. Selector -> Eff (dom :: DOM | eff) Unit
 testSelector sel = void $ C.fromCSSSelector sel $ stringFromAttr "data-copy-text"
 
+testInputSelector :: forall eff. Eff (dom :: DOM | eff) Unit
+testInputSelector = do
+ doc <- documentToNonElementParentNode <<< htmlDocumentToDocument <$> (document =<< window)
+ let getInput = unsafePartial fromJust <$> getElementById (wrap "input-selector") doc
+ button <- unsafePartial fromJust <$> getElementById (wrap "input-button-selector") doc
+ void $ C.fromElementWithTarget button getInput
+
 main :: forall eff. Eff (dom :: DOM | eff) Unit
 main = onLoad do
   win <- window
   doc <- documentToNonElementParentNode <<< htmlDocumentToDocument <$> document win
   element <- getElementById (ElementId "test-element") doc
   fromMaybe (pure unit) $ testElement <$> element
   testSelector $ fromString ".test-selector"
+  testInputSelector

src/Clipboard.js

@@ -26,6 +26,17 @@ exports.fromStringSelector = makeFromX(function makeFromX$fromStringSelector (ef
   };
 });
 
+exports.fromElementWithTarget = function (el) {
+  return function(targetSelector) {
+    return function() {
+      return new Clipboard(el, {
+        target: targetSelector
+      });
+    };
+  };
+};
+
+
 exports.destroy = function destroy (clipboard) {
   return function destroy$Eff () {
     clipboard.destroy();

src/Clipboard.purs

@@ -2,6 +2,7 @@ module Clipboard
   ( Clipboard
   , fromElement
   , fromCSSSelector
+  , fromElementWithTarget
   , destroy
   ) where
 
@@ -33,6 +34,14 @@ foreign import fromStringSelector
   -> (Element -> Eff (dom :: DOM | eff) String)
   -> Eff (dom :: DOM | eff) Clipboard
 
+-- | Registers a click handler on an Event, which triggers the passed `Eff` and
+-- | copies the text inside the returned element to the clipboard.
+foreign import fromElementWithTarget
+  :: forall eff
+   . Element
+  -> Eff (dom :: DOM | eff) Element
+  -> Eff (dom :: DOM | eff) Clipboard
+
 foreign import destroy
   :: forall eff
    . Clipboard