Add support for ShadowRoot API (#34)

* Update compiler version to rc5 in CI config

* Add ShadowRoot module

* Move element-related members to Element module

* Improve code style

Co-authored-by: Luigi Sgro <[email protected]>

Author: lsgro

src/Web/DOM/Element.js

@@ -170,3 +170,11 @@ exports.clientHeight = function (el) {
     return el.clientHeight;
   };
 };
+
+exports._attachShadow = function(props) {
+  return function (el) {
+    return function() {
+      return el.attachShadow(props);
+    };
+  };
+};

src/Web/DOM/Element.purs

@@ -36,6 +36,8 @@ module Web.DOM.Element
   , clientLeft
   , clientWidth
   , clientHeight
+  , ShadowRootInit
+  , attachShadow
   ) where
 
 import Prelude
@@ -50,6 +52,7 @@ import Web.DOM.Internal.Types (Element) as Exports
 import Web.DOM.Internal.Types (Element, HTMLCollection, Node)
 import Web.DOM.NonDocumentTypeChildNode (NonDocumentTypeChildNode)
 import Web.DOM.ParentNode (ParentNode)
+import Web.DOM.ShadowRoot (ShadowRoot, ShadowRootMode)
 import Web.Event.EventTarget (EventTarget)
 import Web.Internal.FFI (unsafeReadProtoTagged)
 
@@ -130,3 +133,24 @@ foreign import clientTop :: Element -> Effect Number
 foreign import clientLeft :: Element -> Effect Number
 foreign import clientWidth :: Element -> Effect Number
 foreign import clientHeight :: Element -> Effect Number
+
+type ShadowRootInit = {
+  mode :: ShadowRootMode,
+  delegatesFocus :: Boolean
+}
+
+attachShadow :: ShadowRootInit -> Element -> Effect ShadowRoot
+attachShadow = _attachShadow <<< initToProps
+
+type ShadowRootProps = {
+  mode :: String,
+  delegatesFocus :: Boolean
+}
+
+initToProps :: ShadowRootInit -> ShadowRootProps
+initToProps init = {
+  mode: show init.mode,
+  delegatesFocus: init.delegatesFocus
+}
+
+foreign import _attachShadow :: ShadowRootProps -> Element -> Effect ShadowRoot

src/Web/DOM/ShadowRoot.js

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

src/Web/DOM/ShadowRoot.purs

@@ -0,0 +1,35 @@
+module Web.DOM.ShadowRoot
+  ( ShadowRoot
+  , ShadowRootMode (..)
+  , toNode
+  , host
+  , mode
+  ) 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
+
+toNode :: ShadowRoot -> Node
+toNode = unsafeCoerce
+
+data ShadowRootMode = Open | Closed
+
+instance showShadowRootMode :: Show ShadowRootMode where
+  show Open = "open"
+  show Closed = "closed"
+
+mode :: ShadowRoot -> Maybe ShadowRootMode
+mode = modeFromString <<< _mode
+  where
+    modeFromString = case _ of
+      "open" -> Just Open
+      "closed" -> Just Closed
+      _ -> Nothing
+
+foreign import host :: ShadowRoot -> Effect Element
+foreign import _mode :: ShadowRoot -> String