adts for some attrs + sizes exports

Author: toastal

src/Web/HTML/HTMLImageElement.js

@@ -89,18 +89,12 @@ exports.currentSrc = function (image) {
 
 // ----------------------------------------------------------------------------
 
-exports.crossOrigin = function (image) {
-  return function () {
-    return image.crossOrigin;
-  };
+exports.crossOriginImpl = function (image) {
+  return image.crossOrigin;
 };
 
-exports.setCrossOrigin = function (crossOrigin) {
-  return function (image) {
-    return function () {
-      image.crossOrigin = crossOrigin;
-    };
-  };
+exports.setCrossOrigin = function (crossOrigin, image) {
+  image.crossOrigin = crossOrigin;
 };
 
 // ----------------------------------------------------------------------------
@@ -200,34 +194,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,8 @@
 module Web.HTML.HTMLImageElement
   ( HTMLImageElement
+  , CORSMode(..)
+  , DecodingHint(..)
+  , Laziness(..)
   , fromHTMLElement
   , fromElement
   , fromNode
@@ -23,6 +26,8 @@ module Web.HTML.HTMLImageElement
   , srcset
   , setSrcset
   , currentSrc
+  , sizes
+  , setSizes
   , crossOrigin
   , setCrossOrigin
   , useMap
@@ -44,13 +49,22 @@ module Web.HTML.HTMLImageElement
   , complete
   ) where
 
-import Data.Maybe (Maybe)
+import Data.Nullable (Nullable)
+import Data.Nullable as Nullable
+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.CORSMode (CORSMode)
+import Web.HTML.HTMLImageElement.CORSMode as CORSMode
+import Web.HTML.HTMLImageElement.DecodingHint (DecodingHint)
+import Web.HTML.HTMLImageElement.DecodingHint as DecodingHint
+import Web.HTML.HTMLImageElement.Laziness (Laziness)
+import Web.HTML.HTMLImageElement.Laziness as Laziness
 import Web.Internal.FFI (unsafeReadProtoTagged)
 
 foreign import data HTMLImageElement :: Type
@@ -118,8 +132,15 @@ foreign import currentSrc :: HTMLImageElement -> Effect String
 foreign import sizes :: HTMLImageElement -> Effect String
 foreign import setSizes :: String -> HTMLImageElement -> Effect Unit
 
-foreign import crossOrigin :: HTMLImageElement -> Effect String
-foreign import setCrossOrigin :: String -> HTMLImageElement -> Effect Unit
+foreign import crossOriginImpl :: EffectFn1 HTMLImageElement (Nullable String)
+
+crossOrigin :: HTMLImageElement -> Effect (Maybe CORSMode)
+crossOrigin = map (CORSMode.parse <=< Nullable.toMaybe) (runEffectFn1 crossOriginImpl)
+
+foreign import setCrossOriginImpl :: EffectFn2 String HTMLImageElement Unit
+
+setCrossOrigin :: CORSMode -> HTMLImageElement -> Effect Unit
+setCrossOrigin mode = runEffectFn2 setCrossOriginImpl (CORSMode.print mode)
 
 foreign import useMap :: HTMLImageElement -> Effect String
 foreign import setUseMap :: String -> HTMLImageElement -> Effect Unit
@@ -139,10 +160,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
+
+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 setLoadingImpl :: EffectFn2 String HTMLImageElement Unit
 
-foreign import loading :: HTMLImageElement -> Effect String
-foreign import setLoading :: String -> HTMLImageElement -> Effect Unit
+setLoading :: Laziness -> HTMLImageElement -> Effect Unit
+setLoading laziness = runEffectFn2 setLoadingImpl (Laziness.print laziness)
 
 foreign import complete :: HTMLImageElement -> Effect Boolean

src/Web/HTML/HTMLImageElement/CORSMode.purs

@@ -0,0 +1,30 @@
+module Web.HTML.HTMLImageElement.CORSMode
+  ( CORSMode(..)
+  , parse
+  , print
+  ) where
+
+data CORSMode
+  = Anonymous
+  | UseCredentials 
+
+derive instance eqCORSMode :: Eq CORSMode
+derive instance ordCORSMode :: Ord CORSMode
+
+instance showDecodingHint :: Show CORSMode where
+  show = case _ of
+    Anonymous -> "Anonymous"
+    UseCredentials -> "UseCredentials"
+
+parse :: String -> Maybe CORSMode
+parse = case _ of
+  "" -> Just Anonymous
+  "anonymous" -> Just Anonymous
+  "use-credentials" -> Just UseCredentials
+  _ -> Nothing
+
+print :: CORSMode -> String
+print = case _ of
+  Anonymous -> "anonymous"
+  UseCredentials -> "use-credentials"
+

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"
+