Support DOM data-* attributes (#102)

* Update dependencies

* Add support for 'data-*' attributes

Author: maddie927

bower.json

@@ -1,7 +1,12 @@
 {
   "name": "purescript-react-basic",
   "license": "Apache-2.0",
-  "ignore": ["**/.*", "node_modules", "bower_components", "output"],
+  "ignore": [
+    "**/.*",
+    "node_modules",
+    "bower_components",
+    "output"
+  ],
   "repository": {
     "type": "git",
     "url": "git://github.com/lumihq/purescript-react-basic.git"
@@ -13,10 +18,11 @@
     "purescript-exceptions": "^4.0.0",
     "purescript-functions": "^4.0.0",
     "purescript-nullable": "^4.1.0",
-    "purescript-record": ">= 1.0.0 <3.0.0",
+    "purescript-record": ">=1.0.0 <3.0.0",
     "purescript-unsafe-coerce": "^4.0.0",
-    "purescript-web-dom": ">=1.0.0 <3.0.0",
+    "purescript-web-dom": ">=1.0.0 <4.0.0",
     "purescript-web-html": ">=1.0.0 <3.0.0",
-    "purescript-web-events": ">=1.0.0 <3.0.0"
+    "purescript-web-events": ">=1.0.0 <3.0.0",
+    "purescript-foreign-object": "^2.0.3"
   }
 }

codegen/consts.js

@@ -29,6 +29,7 @@ module.exports.typesByElement = {
   }
 };
 module.exports.types = {
+  "_data": "Object String",
   "allowFullScreen": "Boolean",
   "allowTransparency": "Boolean",
   "async": "Boolean",

codegen/index.js

@@ -11,6 +11,7 @@ const htmlHeader = `-- | ----------------------------------------
 module React.Basic.DOM.Generated where
 
 import Data.Nullable (Nullable)
+import Foreign.Object (Object)
 import Prim.Row (class Union)
 import Web.DOM (Node)
 import React.Basic (JSX, Ref, element)
@@ -37,6 +38,7 @@ const svgHeader = `-- | ----------------------------------------
 
 module React.Basic.DOM.SVG where
 
+import Foreign.Object (Object)
 import Prim.Row (class Union)
 import React.Basic (JSX, element)
 import React.Basic.DOM.Internal (SharedSVGProps, unsafeCreateDOMComponent)
@@ -98,7 +100,7 @@ const generatePropTypes = (elements, props, sharedPropType) =>
 
     return `
     type Props_${e} =${printRecord(e,
-      (noChildren ? [] : ["children"]).concat(props[e] || [], props["*"] || []).sort()
+      (noChildren ? [] : ["children", "_data"]).concat(props[e] || [], props["*"] || []).sort()
     )}
 
     ${symbol}

examples/async/src/AsyncCounter.purs

@@ -37,7 +37,7 @@ asyncCounter = make component { initialState, render }
         , keyed (show self.state) $
             asyncWithLoader (R.text "Loading...") do
               liftEffect $ log "start"
-              delay $ Milliseconds 2000.0
+              delay $ Milliseconds 1000.0
               liftEffect $ log "done"
               pure $ R.text $ "Done: " <> show self.state
         ]