Add support for ShadowRoot API

.github/workflows/ci.yml

@@ -14,7 +14,7 @@ jobs:
 
       - uses: purescript-contrib/setup-purescript@main
         with:
-          purescript: "0.14.0-rc3"
+          purescript: "0.14.0-rc5"
 
       - uses: actions/setup-node@v1
         with:

src/Web/DOM/ShadowRoot.js

@@ -0,0 +1,19 @@
+"use strict";
+
+exports._attachShadow = function(props) {
+  return function (el) {
+    return function() {
+      return el.attachShadow(props);
+    };
+  };
+};
+
+exports._mode = function (el) {
+  return el.mode;
+};
+
+exports.host = function (el) {
+  return function() {
+    return el.host;
+  };
+};

src/Web/DOM/ShadowRoot.purs

@@ -0,0 +1,47 @@
+module Web.DOM.ShadowRoot
+  ( ShadowRoot
+  , ShadowRootMode (..)
+  , attachShadow
+  , host
+  , mode
+  , toNode
+  ) where
+
+import Prelude
+import Data.Maybe (Maybe(..))
+import Effect (Effect)
+import Unsafe.Coerce (unsafeCoerce)
+import Web.DOM.Internal.Types (Element, Node)
+
+foreign import data ShadowRoot :: Type
+
+data ShadowRootMode = Open | Closed
+
+instance showShadowRootMode :: Show ShadowRootMode where
+  show Open = "open"
+  show Closed = "closed"
+
+attachShadow :: ShadowRootMode -> Element -> Effect ShadowRoot
+attachShadow = _attachShadow <<< modeToProps
+
+mode :: ShadowRoot -> Maybe ShadowRootMode
+mode = modeFromString <<< _mode
+
+foreign import host :: ShadowRoot -> Effect Element
+
+toNode :: ShadowRoot -> Node
+toNode = unsafeCoerce
+
+type ShadowRootProps = { mode :: String }
+
+foreign import _attachShadow :: ShadowRootProps -> Element -> Effect ShadowRoot
+foreign import _mode :: ShadowRoot -> String
+
+modeToProps :: ShadowRootMode -> ShadowRootProps
+modeToProps m = { mode: (show m) }
+
+modeFromString :: String -> Maybe ShadowRootMode
+modeFromString m = case m of
+  "open" -> Just Open
+  "closed" -> Just Closed
+  _ -> Nothing