Break out timer into it's own namespace.

src/cljs/shafty/timer.cljs

@@ -0,0 +1,21 @@
+;; Copyright (c) Christopher Meiklejohn. All rights reserved.
+;;
+;; The use and distribution terms for this software are covered by the
+;; Eclipse Public License 1.0 which can be found in the file
+;; LICENSE.html at the root of this distribution.  By using this
+;; software in any fashion, you are agreeing to be bound by the terms of
+;; this license. You must not remove this notice, or any other, from
+;; this software.
+;;
+(ns shafty.timer
+  (:use [shafty.event :only [event]]))
+
+(defn timer!
+  "Generate a new timer at a given interval, and bind to a new event
+  stream."
+  ([interval]
+   (timer! interval js/Date))
+  ([interval value-fn]
+   (let [e (event)]
+     (js/setInterval (fn []
+                       (-notify-watches e nil (value-fn))) interval) e)))