example: various improvements

andreypopp · andreypopp · commit 418a29a013db · 2014-05-05T21:35:30.000+04:00
- Add bower install to make example
  - Some CSS for example
diff --git a/Makefile b/Makefile
@@ -4,10 +4,14 @@ PSC_OPTS =
 all: lib example
 
 lib:: lib/React.js
-example:: example/app.js
+example:: example/app.js example/bower_components
+
+example/bower_components:
+	(cd example && bower install react)
 
 clean:
 	rm -f lib/React.js example/app.js
+	rm -rf example/bower_components/
 
 lib/React.js: src/React.purs
 	mkdir -p $(@D)
diff --git a/example/app.purs b/example/app.purs
@@ -11,7 +11,7 @@ incrementCounter = do
 
 counter = mkStatefulUI 0 \props -> do
   val <- readState
-  return (div {className: "Counter", onClick: handle incrementCounter} [text (show val)])
+  return (div {className: "Counter", onClick: handle incrementCounter} [text (show val), text " Click me to increment!"])
 
 main = do
   let component = div {} [counter {}, hello {name: "World"}, counter {}]
diff --git a/example/index.html b/example/index.html
@@ -1,4 +1,17 @@
+<!doctype>
+<html>
+<head>
+<style>
+.Counter {
+  cursor: pointer;
+  user-select: none;
+  -webkit-user-select: none;
+  -moz-user-select: none;
+}
+</style>
+</head>
 <body>
 <script src="bower_components/react/react.js"></script>
 <script src="app.js"></script>
 </body>
+</html>
