Merge pull request #32 from rnons/remove-property

If a property is also an attribute, use removeAttribute

Author: garyb

src/Halogen/VDom/DOM/Prop.purs

@@ -13,7 +13,7 @@ import Prelude
 
 import Data.Function.Uncurried as Fn
 import Data.Maybe (Maybe(..))
-import Data.Nullable (toNullable)
+import Data.Nullable (null, toNullable)
 import Data.Tuple (Tuple(..), fst, snd)
 import Effect (Effect)
 import Effect.Ref as Ref
@@ -194,9 +194,11 @@ unsafeGetProperty = Util.unsafeGetAny
 
 removeProperty ∷ EFn.EffectFn2 String DOM.Element Unit
 removeProperty = EFn.mkEffectFn2 \key el →
-  case typeOf (Fn.runFn2 Util.unsafeGetAny key el) of
-    "string" → EFn.runEffectFn3 Util.unsafeSetAny key "" el
-    _        → case key of
-      "rowSpan" → EFn.runEffectFn3 Util.unsafeSetAny key 1 el
-      "colSpan" → EFn.runEffectFn3 Util.unsafeSetAny key 1 el
-      _ → EFn.runEffectFn3 Util.unsafeSetAny key Util.jsUndefined el
+  EFn.runEffectFn3 Util.hasAttribute null key el >>= if _
+    then EFn.runEffectFn3 Util.removeAttribute null key el
+    else case typeOf (Fn.runFn2 Util.unsafeGetAny key el) of
+      "string" → EFn.runEffectFn3 Util.unsafeSetAny key "" el
+      _        → case key of
+        "rowSpan" → EFn.runEffectFn3 Util.unsafeSetAny key 1 el
+        "colSpan" → EFn.runEffectFn3 Util.unsafeSetAny key 1 el
+        _ → EFn.runEffectFn3 Util.unsafeSetAny key Util.jsUndefined el

src/Halogen/VDom/Util.js

@@ -149,6 +149,14 @@ exports.removeAttribute = function (ns, attr, el) {
   }
 };
 
+exports.hasAttribute = function (ns, attr, el) {
+  if (ns != null) {
+    el.hasAttributeNS(ns, attr);
+  } else {
+    el.hasAttribute(attr);
+  }
+};
+
 exports.addEventListener = function (ev, listener, el) {
   el.addEventListener(ev, listener, false);
 };

src/Halogen/VDom/Util.purs

@@ -24,6 +24,7 @@ module Halogen.VDom.Util
   , parentNode
   , setAttribute
   , removeAttribute
+  , hasAttribute
   , addEventListener
   , removeEventListener
   , JsUndefined
@@ -157,6 +158,9 @@ foreign import setAttribute
 foreign import removeAttribute
   ∷ EFn.EffectFn3 (Nullable Namespace) String DOM.Element Unit
 
+foreign import hasAttribute
+  ∷ EFn.EffectFn3 (Nullable Namespace) String DOM.Element Boolean
+
 foreign import addEventListener
   ∷ EFn.EffectFn3 String DOM.EventListener DOM.Element Unit