htmlgen.js

var fs = require("fs");

var reservedWords = {
  "class": "className",
  "type": "type'",
  "data": "data'"
};

function sanitise(n) {
  return (reservedWords[n] || n).replace(/-\w/g, function(s) {return s[1].toUpperCase()});
}

var html = fs.createWriteStream("src/HTML.purs");

html.write("module Text.Smolder.HTML where\n\nimport Prelude ()\nimport Text.Smolder.Markup\n\ntype Html = Markup\n\n");

[
  "a", "abbr", "address", "article", "aside", "audio", "b", "bdo", "blockquote",
  "body", "button", "canvas", "caption", "cite", "code", "colgroup", "command",
  "datalist", "dd", "del", "details", "dfn", "div", "dl", "dt", "em", "fieldset",
  "figcaption", "figure", "footer", "form", "h1", "h2", "h3", "h4", "h5", "h6",
  "head", "header", "hgroup", "html", "i", "iframe", "ins", "kbd", "label",
  "legend", "li", "map", "mark", "menu", "meter", "nav", "noscript", "object",
  "ol", "optgroup", "option", "output", "p", "pre", "progress", "q", "rp", "rt",
  "ruby", "samp", "script", "section", "select", "small", "span", "strong",
  "style", "sub", "summary", "sup", "table", "tbody", "td", "textarea", "tfoot",
  "th", "thead", "time", "title", "tr", "ul", "var", "video"
].forEach(function(el) {
  html.write(sanitise(el) + " :: Markup -> Markup\n" + sanitise(el) +
            " = parent \"" + el + "\"\n");
});

[
  "area", "base", "br", "col", "embed", "hr", "img", "input", "keygen", "link",
  "menuitem", "meta", "param", "source", "track", "wbr"
].forEach(function(el) {
  html.write(sanitise(el) + " :: Markup\n" + sanitise(el) +
            " = leaf \"" + el + "\"\n");
});

var attrs = fs.createWriteStream("src/HTML/Attributes.purs");

attrs.write("module Text.Smolder.HTML.Attributes where\n\nimport Prelude ()\nimport Text.Smolder.Markup\n\n");

[
  "accept", "accept-charset", "accesskey", "action", "alt", "async",
  "autocomplete", "autofocus", "autoplay", "challenge", "charset", "checked",
  "cite", "class", "cols", "colspan", "content", "contenteditable", "contextmenu",
  "controls", "coords", "data", "datetime", "defer", "dir", "disabled",
  "draggable", "enctype", "for", "form", "formaction", "formenctype",
  "formmethod", "formnovalidate", "formtarget", "headers", "height", "hidden",
  "high", "href", "hreflang", "http-equiv", "icon", "id", "ismap", "item",
  "itemprop", "keytype", "label", "lang", "list", "loop", "low", "manifest",
  "max", "maxlength", "media", "method", "min", "multiple", "name", "novalidate",
  "onbeforeonload", "onbeforeprint", "onblur", "oncanplay", "oncanplaythrough",
  "onchange", "oncontextmenu", "onclick", "ondblclick", "ondrag", "ondragend",
  "ondragenter", "ondragleave", "ondragover", "ondragstart", "ondrop",
  "ondurationchange", "onemptied", "onended", "onerror", "onfocus",
  "onformchange", "onforminput", "onhaschange", "oninput", "oninvalid",
  "onkeydown", "onkeyup", "onload", "onloadeddata", "onloadedmetadata",
  "onloadstart", "onmessage", "onmousedown", "onmousemove", "onmouseout",
  "onmouseover", "onmouseup", "onmousewheel", "ononline", "onpagehide",
  "onpageshow", "onpause", "onplay", "onplaying", "onprogress", "onpropstate",
  "onratechange", "onreadystatechange", "onredo", "onresize", "onscroll",
  "onseeked", "onseeking", "onselect", "onstalled", "onstorage", "onsubmit",
  "onsuspend", "ontimeupdate", "onundo", "onunload", "onvolumechange",
  "onwaiting", "open", "optimum", "pattern", "ping", "placeholder", "preload",
  "pubdate", "radiogroup", "readonly", "rel", "required", "reversed", "rows",
  "rowspan", "sandbox", "scope", "scoped", "seamless", "selected", "shape",
  "size", "sizes", "span", "spellcheck", "src", "srcdoc", "start", "step",
  "style", "subject", "summary", "tabindex", "target", "title", "type", "usemap",
  "value", "width", "wrap", "xmlns"
].forEach(function(el) {
  attrs.write(sanitise(el) + " :: String -> Attribute\n" + sanitise(el) +
            " = attribute \"" + el + "\"\n");
});