Merge pull request #13 from manpages/attributes

Add setAttribute and getAttribute
purescript-deprecated · Aug 22, 2015 · 8311b81 · 8311b81
2 parents 494a5c9 + 8f95f67
commit 8311b81
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 0 deletions.
diff --git a/src/DOM/Node/Element.js b/src/DOM/Node/Element.js
@@ -69,3 +69,22 @@ exports.getElementsByClassName = function (classNames) {
     };
   };
 };
+
+exports.setAttribute = function (name) {
+  return function (value) {
+    return function (element) {
+      return function () {
+        element.setAttribute(name, value);
+        return {};
+      };
+    };
+  };
+};
+
+exports.getAttribute = function (name) {
+  return function (element) {
+    return function () {
+      return element.getAttribute(name);
+    };
+  };
+};
diff --git a/src/DOM/Node/Element.purs b/src/DOM/Node/Element.purs
@@ -20,3 +20,6 @@ foreign import setClassName :: forall eff. String -> Element -> Eff (dom :: DOM
 foreign import getElementsByTagName :: forall eff. String -> Element -> Eff (dom :: DOM | eff) HTMLCollection
 foreign import getElementsByTagNameNS :: forall eff. Nullable String -> String -> Element -> Eff (dom :: DOM | eff) HTMLCollection
 foreign import getElementsByClassName :: forall eff. String -> Element -> Eff (dom :: DOM | eff) HTMLCollection
+
+foreign import setAttribute :: forall eff. String -> String -> Element -> Eff (dom :: DOM | eff) String
+foreign import getAttribute :: forall eff. String -> Element -> Eff (dom :: DOM | eff) (Nullable String)