From 89c8098858ce3149c07a02dd4144e0dbeadfa346 Mon Sep 17 00:00:00 2001
From: Nicolas Buduroi <nbuduroi@gmail.com>
Date: Sat, 31 Mar 2012 00:22:47 -0400
Subject: [PATCH] Drawing a square on a canvas.

---
 src/clj/board/core.clj   |  3 ++-
 src/cljs/board/core.cljs | 15 ++++++++++++---
 2 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/src/clj/board/core.clj b/src/clj/board/core.clj
index 0c4dd27..289cbf1 100644
--- a/src/clj/board/core.clj
+++ b/src/clj/board/core.clj
@@ -8,7 +8,8 @@
   (html5
    [:head]
    [:body
-    [:p "OK"]
+    [:canvas#board {:width 600 :height 400}
+     "Use a real brower please!"]
     (include-js "/js/app.js")]))
 
 (defn sync-app [request]
diff --git a/src/cljs/board/core.cljs b/src/cljs/board/core.cljs
index c68e983..a28e711 100644
--- a/src/cljs/board/core.cljs
+++ b/src/cljs/board/core.cljs
@@ -1,4 +1,13 @@
-(ns board.core)
+(ns board.core
+  (:require [clojure.browser.event :as event]
+            [clojure.browser.dom :as dom]))
 
-(defn ^:export greet [name]
-  (str "Hello " name))
+(defn log [obj]
+  (.log js/console obj))
+
+(defn draw []
+  (when-let [board (dom/get-element :board)]
+    (doto (.getContext board "2d")
+      (.fillRect 10 10 100 100))))
+
+(draw)