Add ElemmentCSSInlineStyle

This is a mixin for HTMLElement and others from CSSOM to add the style attribute.

Author: singpolyma

src/Web/CSSOM/ElementCSSInlineStyle.js

@@ -0,0 +1,7 @@
+"use strict";
+
+exports.style = function(el) {
+  return function() {
+    return el.style;
+  };
+};

src/Web/CSSOM/ElementCSSInlineStyle.purs

@@ -0,0 +1,16 @@
+module Web.CSSOM.ElementCSSInlineStyle
+  ( module Exports
+  , style
+  , fromHTMLElement
+  ) where
+
+import Effect (Effect)
+import Unsafe.Coerce (unsafeCoerce)
+import Web.CSSOM.Internal.Types (ElementCSSInlineStyle) as Exports
+import Web.CSSOM.Internal.Types (ElementCSSInlineStyle, CSSStyleDeclaration)
+import Web.HTML.HTMLElement (HTMLElement)
+
+foreign import style :: ElementCSSInlineStyle -> Effect CSSStyleDeclaration
+
+fromHTMLElement :: HTMLElement -> ElementCSSInlineStyle
+fromHTMLElement = unsafeCoerce

src/Web/CSSOM/Internal/Types.purs

@@ -1,4 +1,6 @@
 module Web.CSSOM.Internal.Types where
 
+foreign import data CSSStyleDeclaration :: Type
 foreign import data CSSStyleSheet :: Type
+foreign import data ElementCSSInlineStyle :: Type
 foreign import data StyleSheetList :: Type