adts for some attrs + sizes exports

Author: toastal

src/Web/HTML/HTMLImageElement.js

@@ -200,34 +200,22 @@ exports.setReferrerPolicy = function (referrerPolicy) {
 
 // ----------------------------------------------------------------------------
 
-exports.decoding = function (image) {
-  return function () {
-    return image.decoding;
-  };
+exports.decodingImpl = function (image) {
+  return image.decoding;
 };
 
-exports.setDecoding = function (decoding) {
-  return function (image) {
-    return function () {
-      image.decoding = decoding;
-    };
-  };
+exports.setDecodingImpl = function (decoding, image) {
+  image.decoding = decoding;
 };
 
 // ----------------------------------------------------------------------------
 
-exports.loading = function (image) {
-  return function () {
-    return image.loading;
-  };
+exports.loadingImpl = function (image) {
+  return image.loading;
 };
 
-exports.setLoading = function (loading) {
-  return function (image) {
-    return function () {
-      image.loading = loading;
-    };
-  };
+exports.setLoadingImpl = function (loading, image) {
+  image.loading = loading;
 };
 
 // ----------------------------------------------------------------------------

src/Web/HTML/HTMLImageElement.purs

@@ -1,5 +1,6 @@
 module Web.HTML.HTMLImageElement
   ( HTMLImageElement
+  , DecodingHint(..)
   , fromHTMLElement
   , fromElement
   , fromNode
@@ -23,6 +24,8 @@ module Web.HTML.HTMLImageElement
   , srcset
   , setSrcset
   , currentSrc
+  , sizes
+  , setSizes
   , crossOrigin
   , setCrossOrigin
   , useMap
@@ -44,13 +47,16 @@ module Web.HTML.HTMLImageElement
   , complete
   ) where
 
-import Data.Maybe (Maybe)
+import Data.Maybe (Maybe, fromMaybe)
 import Effect (Effect)
-import Prelude (Unit)
+import Effect.Uncurried (EffectFn1, EffectFn2, runEffectFn1, runEffectFn2)
+import Prelude (Unit, map, (<<<))
 import Unsafe.Coerce (unsafeCoerce)
 import Web.DOM (ChildNode, Element, Node, NonDocumentTypeChildNode, ParentNode)
 import Web.Event.EventTarget (EventTarget)
 import Web.HTML.HTMLElement (HTMLElement)
+import Web.HTML.HTMLImageElement.DecodingHint (DecodingHint)
+import Web.HTML.HTMLImageElement.DecodingHint as DecodingHint
 import Web.Internal.FFI (unsafeReadProtoTagged)
 
 foreign import data HTMLImageElement :: Type
@@ -139,10 +145,24 @@ foreign import naturalHeight :: HTMLImageElement -> Effect Int
 foreign import referrerPolicy :: HTMLImageElement -> Effect String
 foreign import setReferrerPolicy :: String -> HTMLImageElement -> Effect Unit
 
-foreign import decoding :: HTMLImageElement -> Effect String
-foreign import setDecoding :: String -> HTMLImageElement -> Effect Unit
+foreign import decodingImpl :: EffectFn1 HTMLImageElement DecodingHint
 
-foreign import loading :: HTMLImageElement -> Effect String
-foreign import setLoading :: String -> HTMLImageElement -> Effect Unit
+decoding :: HTMLImageElement -> Effect DecodingHint
+decoding = map (fromMaybe DecodingHint.Auto <<< DecodingHint.parse) (runEffectFn1 decodingImpl)
+
+foreign import setDecodingImpl :: EffectFn2 String HTMLImageElement Unit
+
+setDecoding :: DecodingHint -> HTMLImageElement -> Effect Unit
+setDecoding hint = runEffectFn2 setDecodingImpl (DecodingHint.print hint)
+
+foreign import loadingImpl :: EffectFn1 HTMLImageElement String
+
+loading :: HTMLImageElement -> Effect Laziness
+loading = map (fromMaybe Laziness.Eager <<< Laziness.parse) (runEffectFn1 loadingImpl)
+
+foreign import setLoading :: EffectFn2 String HTMLImageElement Unit
+
+setLoading :: Laziness -> HTMLImageElement -> Effect Unit
+setLoading laziness = runEffectFn2 setDecodingImpl (Laziness.print laziness)
 
 foreign import complete :: HTMLImageElement -> Effect Boolean

src/Web/HTML/HTMLImageElement/DecodingHint.purs

@@ -0,0 +1,34 @@
+module Web.HTML.HTMLImageElement.DecodingHint
+  ( DecodingHint(..)
+  , parse
+  , print
+  ) where
+
+data DecodingHint
+  = Sync
+  | Async 
+  | Auto
+
+derive instance eqDecodingHint :: Eq DecodingHint
+derive instance ordDecodingHint :: Ord DecodingHint
+
+instance showDecodingHint :: Show DecodingHint where
+  show = case _ of
+    Sync -> "Sync"
+    Async -> "Async"
+    Auto -> "Auto"
+
+parse :: String -> Maybe DecodingHint
+parse = case _ of
+  "" -> Just Auto
+  "sync" -> Just Sync
+  "async" -> Just Async
+  "auto" -> Just Auto
+  _ -> Nothing
+
+print :: DecodingHint -> String
+print = case _ of
+  Sync -> "sync"
+  Async -> "async"
+  Auto -> "auto"
+

src/Web/HTML/HTMLImageElement/Laziness.purs

@@ -0,0 +1,31 @@
+module Web.HTML.HTMLImageElement.Laziness
+  ( Laziness(..)
+  , parse
+  , print
+  ) where
+
+data Laziness
+  = Eager
+  | Lazy 
+
+derive instance eqDecodingHint :: Eq Laziness
+derive instance ordDecodingHint :: Ord Laziness
+
+instance showDecodingHint :: Show Laziness where
+  show = case _ of
+    Eager -> "Eager"
+    Lazy -> "Lazy"
+
+parse :: String -> Maybe Laziness
+parse = case _ of
+  "" -> Just Eager
+  "eager" -> Just Eager
+  "lazy" -> Just Lazy
+  _ -> Nothing
+
+
+print :: Laziness -> String
+print = case _ of
+  Eager -> "eager"
+  Lazy -> "lazy"
+