Add HTML elements

src/DOM/HTML/HTMLAnchorElement.js

@@ -0,0 +1,122 @@
+/* global exports */
+"use strict";
+
+// module DOM.HTML.HTMLAnchorElement
+
+exports.target = function (a) {
+  return function () {
+    return a.target;
+  };
+};
+
+exports.setTarget = function (target) {
+  return function (a) {
+    return function () {
+      a.target = target;
+    };
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.download = function (a) {
+  return function () {
+    return a.download;
+  };
+};
+
+exports.setDownload = function (download) {
+  return function (a) {
+    return function () {
+      a.download = download;
+    };
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.rel = function (a) {
+  return function () {
+    return a.rel;
+  };
+};
+
+exports.setRel = function (rel) {
+  return function (a) {
+    return function () {
+      a.rel = rel;
+    };
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.rev = function (a) {
+  return function () {
+    return a.rev;
+  };
+};
+
+exports.setRev = function (rev) {
+  return function (a) {
+    return function () {
+      a.rev = rev;
+    };
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.relList = function (a) {
+  return function () {
+    return a.relList;
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.hreflang = function (a) {
+  return function () {
+    return a.hreflang;
+  };
+};
+
+exports.setHreflang = function (hreflang) {
+  return function (a) {
+    return function () {
+      a.hreflang = hreflang;
+    };
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.type_ = function (a) {
+  return function () {
+    return a.type;
+  };
+};
+
+exports.setType = function (type) {
+  return function (a) {
+    return function () {
+      a.type = type;
+    };
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.text = function (a) {
+  return function () {
+    return a.text;
+  };
+};
+
+exports.setText = function (text) {
+  return function (a) {
+    return function () {
+      a.text = text;
+    };
+  };
+};

src/DOM/HTML/HTMLAnchorElement.purs

@@ -0,0 +1,32 @@
+module DOM.HTML.HTMLAnchorElement where
+
+import Prelude (Unit())
+
+import Control.Monad.Eff (Eff())
+
+import DOM (DOM())
+import DOM.HTML.Types (HTMLAnchorElement())
+import DOM.Node.Types (DOMTokenList())
+
+foreign import target :: forall eff. HTMLAnchorElement -> Eff (dom :: DOM | eff) String
+foreign import setTarget :: forall eff. String -> HTMLAnchorElement -> Eff (dom :: DOM | eff) Unit
+
+foreign import download :: forall eff. HTMLAnchorElement -> Eff (dom :: DOM | eff) String
+foreign import setDownload :: forall eff. String -> HTMLAnchorElement -> Eff (dom :: DOM | eff) Unit
+
+foreign import rel :: forall eff. HTMLAnchorElement -> Eff (dom :: DOM | eff) String
+foreign import setRel :: forall eff. String -> HTMLAnchorElement -> Eff (dom :: DOM | eff) Unit
+
+foreign import rev :: forall eff. HTMLAnchorElement -> Eff (dom :: DOM | eff) String
+foreign import setRev :: forall eff. String -> HTMLAnchorElement -> Eff (dom :: DOM | eff) Unit
+
+foreign import relList :: forall eff. HTMLAnchorElement -> Eff (dom :: DOM | eff) DOMTokenList
+
+foreign import hreflang :: forall eff. HTMLAnchorElement -> Eff (dom :: DOM | eff) String
+foreign import setHreflang :: forall eff. String -> HTMLAnchorElement -> Eff (dom :: DOM | eff) Unit
+
+foreign import type_ :: forall eff. HTMLAnchorElement -> Eff (dom :: DOM | eff) String
+foreign import setType :: forall eff. String -> HTMLAnchorElement -> Eff (dom :: DOM | eff) Unit
+
+foreign import text :: forall eff. HTMLAnchorElement -> Eff (dom :: DOM | eff) String
+foreign import setText :: forall eff. String -> HTMLAnchorElement -> Eff (dom :: DOM | eff) Unit

src/DOM/HTML/HTMLAreaElement.js

@@ -0,0 +1,138 @@
+/* global exports */
+"use strict";
+
+// module DOM.HTML.HTMLAreaElement
+
+exports.alt = function (area) {
+  return function () {
+    return area.alt;
+  };
+};
+
+exports.setAlt = function (alt) {
+  return function (area) {
+    return function () {
+      area.alt = alt;
+    };
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.coords = function (area) {
+  return function () {
+    return area.coords;
+  };
+};
+
+exports.setCoords = function (coords) {
+  return function (area) {
+    return function () {
+      area.coords = coords;
+    };
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.shape = function (area) {
+  return function () {
+    return area.shape;
+  };
+};
+
+exports.setShape = function (shape) {
+  return function (area) {
+    return function () {
+      area.shape = shape;
+    };
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.target = function (area) {
+  return function () {
+    return area.target;
+  };
+};
+
+exports.setTarget = function (target) {
+  return function (area) {
+    return function () {
+      area.target = target;
+    };
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.download = function (area) {
+  return function () {
+    return area.download;
+  };
+};
+
+exports.setDownload = function (download) {
+  return function (area) {
+    return function () {
+      area.download = download;
+    };
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.rel = function (area) {
+  return function () {
+    return area.rel;
+  };
+};
+
+exports.setRel = function (rel) {
+  return function (area) {
+    return function () {
+      area.rel = rel;
+    };
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.relList = function (area) {
+  return function () {
+    return area.relList;
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.hreflang = function (area) {
+  return function () {
+    return area.hreflang;
+  };
+};
+
+exports.setHreflang = function (hreflang) {
+  return function (area) {
+    return function () {
+      area.hreflang = hreflang;
+    };
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.type_ = function (area) {
+  return function () {
+    return area.type;
+  };
+};
+
+exports.setType = function (type) {
+  return function (area) {
+    return function () {
+      area.type = type;
+    };
+  };
+};

src/DOM/HTML/HTMLAreaElement.purs

@@ -0,0 +1,35 @@
+module DOM.HTML.HTMLAreaElement where
+
+import Prelude (Unit())
+
+import Control.Monad.Eff (Eff())
+
+import DOM (DOM())
+import DOM.HTML.Types (HTMLAreaElement())
+import DOM.Node.Types (DOMTokenList())
+
+foreign import alt :: forall eff. HTMLAreaElement -> Eff (dom :: DOM | eff) String
+foreign import setAlt :: forall eff. String -> HTMLAreaElement -> Eff (dom :: DOM | eff) Unit
+
+foreign import coords :: forall eff. HTMLAreaElement -> Eff (dom :: DOM | eff) String
+foreign import setCoords :: forall eff. String -> HTMLAreaElement -> Eff (dom :: DOM | eff) Unit
+
+foreign import shape :: forall eff. HTMLAreaElement -> Eff (dom :: DOM | eff) String
+foreign import setShape :: forall eff. String -> HTMLAreaElement -> Eff (dom :: DOM | eff) Unit
+
+foreign import target :: forall eff. HTMLAreaElement -> Eff (dom :: DOM | eff) String
+foreign import setTarget :: forall eff. String -> HTMLAreaElement -> Eff (dom :: DOM | eff) Unit
+
+foreign import download :: forall eff. HTMLAreaElement -> Eff (dom :: DOM | eff) String
+foreign import setDownload :: forall eff. String -> HTMLAreaElement -> Eff (dom :: DOM | eff) Unit
+
+foreign import rel :: forall eff. HTMLAreaElement -> Eff (dom :: DOM | eff) String
+foreign import setRel :: forall eff. String -> HTMLAreaElement -> Eff (dom :: DOM | eff) Unit
+
+foreign import relList :: forall eff. HTMLAreaElement -> Eff (dom :: DOM | eff) DOMTokenList
+
+foreign import hreflang :: forall eff. HTMLAreaElement -> Eff (dom :: DOM | eff) String
+foreign import setHreflang :: forall eff. String -> HTMLAreaElement -> Eff (dom :: DOM | eff) Unit
+
+foreign import type_ :: forall eff. HTMLAreaElement -> Eff (dom :: DOM | eff) String
+foreign import setType :: forall eff. String -> HTMLAreaElement -> Eff (dom :: DOM | eff) Unit

src/DOM/HTML/HTMLBaseElement.js

@@ -0,0 +1,34 @@
+/* global exports */
+"use strict";
+
+// module DOM.HTML.HTMLBaseElement
+
+exports.href = function (base) {
+  return function () {
+    return base.href;
+  };
+};
+
+exports.setHref = function (href) {
+  return function (base) {
+    return function () {
+      base.href = href;
+    };
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.target = function (base) {
+  return function () {
+    return base.target;
+  };
+};
+
+exports.setTarget = function (target) {
+  return function (base) {
+    return function () {
+      base.target = target;
+    };
+  };
+};

src/DOM/HTML/HTMLBaseElement.purs

@@ -0,0 +1,14 @@
+module DOM.HTML.HTMLBaseElement where
+
+import Prelude (Unit())
+
+import Control.Monad.Eff (Eff())
+
+import DOM (DOM())
+import DOM.HTML.Types (HTMLBaseElement())
+
+foreign import href :: forall eff. HTMLBaseElement -> Eff (dom :: DOM | eff) String
+foreign import setHref :: forall eff. String -> HTMLBaseElement -> Eff (dom :: DOM | eff) Unit
+
+foreign import target :: forall eff. HTMLBaseElement -> Eff (dom :: DOM | eff) String
+foreign import setTarget :: forall eff. String -> HTMLBaseElement -> Eff (dom :: DOM | eff) Unit