Inline loop functions

common/src/cljx/enoki/engine.cljx

@@ -7,7 +7,8 @@
                   ))
 
 ^:cljs (ns enoki.engine
-         (:require [enoki.graphics :as g]
+         (:require [goog.Timer :as timer]
+                   [enoki.graphics :as g]
                    [enoki.util.logging] ; required for dependency resolution
                    )
          (:require-macros [enoki.util.logging-macros :as log]))
@@ -24,11 +25,22 @@
   (g/render display (fn [ctx] (render ctx state)))
   (assoc-in env [:state] (update state)))
 
+;; Environment-specific loop functions
+
+(defn ^:clj loop-forever
+  "A naïve game loop implementation that calls `tick' as often as possible."
+  [tick env]
+  (loop [env env]
+    (Thread/sleep 1)
+    (recur (tick env))))
+
+(defn ^:cljs loop-forever [tick env]
+  (timer/callOnce #(loop-forever tick (tick env)) 1))
+
 (defn start
   "Enters the game loop. This function might return immediately or once the game
    loop is exited, depending on the implementation of loop-fn."
   [env]
   (g/init-display! (:display env))
   (log/info "Entering game loop")
-  (let [loop-forever (:loop-fn env)]
-    (loop-forever tick env)))
+  (loop-forever tick env))

swing/src/enoki/main.clj

@@ -1,10 +1,9 @@
 ;; Engine entry point for game implementations.
 
 (ns enoki.main
-  (:require [enoki.engine :as engine]
-            [enoki.engine-impl :as impl]))
+  (:require [enoki.engine :as engine]))
 
 (defn start
   "Engine entry point"
   [env]
-  (engine/start (assoc env :loop-fn impl/loop-forever)))
+  (engine/start env))

web/src/cljs/enoki/main.cljs

@@ -3,7 +3,6 @@
 (ns enoki.main
   (:require [clojure.browser.repl :as repl]
             [enoki.engine :as engine]
-            [enoki.engine-impl :as impl]
             [enoki.util.logging :as logging]))
 
 (defn start
@@ -12,4 +11,4 @@
   (repl/connect "http://localhost:9000/repl")
   (logging/init!)
   (logging/set-level! :info)
-  (engine/start (assoc env :loop-fn impl/loop-forever)))
+  (engine/start env))