Drawing a square on a canvas.

claj · Mar 31, 2012 · 89c8098 · 89c8098
1 parent 2fcb89f
commit 89c8098
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 4 deletions.
diff --git 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
@@ -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)