|
| 1 | +module Main where |
| 2 | + |
| 3 | +import Prelude |
| 4 | + |
| 5 | +import Control.Monad.Eff (Eff) |
| 6 | + |
| 7 | +import Data.Maybe (fromMaybe) |
| 8 | +import Data.Nullable (toMaybe) |
| 9 | + |
| 10 | +import DOM (DOM) |
| 11 | +import CSS (Selector, fromString) |
| 12 | +import DOM.Event.EventTarget (addEventListener, eventListener) |
| 13 | +import DOM.HTML (window) |
| 14 | +import DOM.HTML.Event.EventTypes (load) |
| 15 | +import DOM.HTML.Types (windowToEventTarget, htmlDocumentToDocument) |
| 16 | +import DOM.HTML.Window (document) |
| 17 | +import DOM.Node.NonElementParentNode (getElementById) |
| 18 | +import DOM.Node.Types (Element, ElementId(..), documentToNonElementParentNode) |
| 19 | +import DOM.Node.Element (getAttribute) |
| 20 | + |
| 21 | +import Clipboard as C |
| 22 | + |
| 23 | +onLoad :: forall eff. (Eff (dom :: DOM | eff) Unit) -> Eff (dom :: DOM | eff) Unit |
| 24 | +onLoad action |
| 25 | + = addEventListener load (eventListener (const action)) false |
| 26 | + <<< windowToEventTarget |
| 27 | + =<< window |
| 28 | + |
| 29 | +stringFromAttr :: forall eff. String -> Element -> Eff (dom :: DOM | eff) String |
| 30 | +stringFromAttr attr el = do |
| 31 | + val <- getAttribute attr el |
| 32 | + pure $ fromMaybe "" $ toMaybe val |
| 33 | + |
| 34 | +testElement :: forall eff. Element -> Eff (dom :: DOM | eff) Unit |
| 35 | +testElement el = void $ C.fromElement el $ stringFromAttr "data-copy-text" el |
| 36 | + |
| 37 | +testSelector :: forall eff. Selector -> Eff (dom :: DOM | eff) Unit |
| 38 | +testSelector sel = void $ C.fromCSSSelector sel $ stringFromAttr "data-copy-text" |
| 39 | + |
| 40 | +main :: forall eff. Eff (dom :: DOM | eff) Unit |
| 41 | +main = onLoad do |
| 42 | + win <- window |
| 43 | + doc <- documentToNonElementParentNode <<< htmlDocumentToDocument <$> document win |
| 44 | + element <- toMaybe <$> getElementById (ElementId "test-element") doc |
| 45 | + fromMaybe (pure unit) $ testElement <$> element |
| 46 | + testSelector $ fromString ".test-selector" |
0 commit comments