   {:color 0
    :angle 0})
 
-(defn update [state]
+(defn update-state [state]
   (let [{:keys [color angle]} state]
     {:color (mod (+ color 0.7) 255)
      :angle (mod (+ angle 0.1) q/TWO-PI)}))
 
-(defn draw [state]
+(defn draw-state [state]
   (q/background 240)
   (q/fill (:color state) 255 255)
   (let [angle (:angle state)

            [ring.util.response :as resp]
            [cljs.closure :as cljs]
            [cljs.env :as cljs-env]
            [me.raynes.fs :as fs]
            [quil-site.views.sketches :as views]
            [quil-site.examples :refer [get-example-source]]
            [clojure.tools.reader :as reader]

                 (filter #(= :size (first %)))
                 (map second)
                 first))]
    (let [size (-> sketch find-defsketch get-size)]
      (if (and (or (list? size) (vector? size))
               (every? number? size))
        (vec (take 2 size))
        nil))))

(defn compile-cljs [cljs-forms]
  (binding [cljs.analyzer/*cljs-file* "something.cljs"]
    (cljs-env/with-compiler-env (cljs-env/default-compiler-env)
      (cljs/-compile cljs-forms {}))))

(def id (atom 0))
(def sketches (atom (cache/lru-cache-factory {} :threshold 128)))
