Merge pull request #66 from clojerl/15-focused-function

[#15] Implement focused function

src/doodler/core.clje

@@ -1191,6 +1191,13 @@
         vz u]
     [vx vy vz]))
 
+;; Window
+
+(defn focused
+  "Returns `true` if the window has focus, `false` otherwise."
+  []
+  (:focused *sketch*))
+
 ;; Keyboard
 
 (def CODED-KEY ::coded-key)
@@ -1436,7 +1443,7 @@
   (erlang/halt 0))
 
 (defn sketch
-  "Create and start a new visualisation applet. Can be used to create
+  "Create and start a new visualisation window. Can be used to create
   new sketches programmatically. See documentation for `defsketch` for
   list of available options."
   [& opts]

src/doodler/sketch.clje

@@ -166,6 +166,9 @@
             ;; Keys
             :keys-pressed #{}
 
+            ;; Window
+            :focused true
+
             ;; Camera (used for orbit control)
             :camera (process-val! [0 0 (/ h 2 (math/tan (/ (math/pi) 6)))
                                    0 0 0
@@ -203,11 +206,16 @@
   [sketch event]
   (let [event-key (:event event)]
     (case* event-key
+      :focus-gained
+      (assoc sketch :focused true)
+
       :focus-lost
       ;; Clean up the list of keys pressed when
       ;; the sketch looses focus, since the key release
       ;; won't be processed by the sketch.
-      (assoc sketch :keys-pressed #{})
+      (assoc sketch
+             :keys-pressed #{}
+             :focused false)
 
       :mouse-pressed
       (assoc sketch