             [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]

  :host \"my\"
  :size [500 500]
  :setup setup
  :update update
  :draw draw
  :middleware [m/fun-mode])")

(defn extract-size [sketch-source]
  (letfn [(read-all [text]
            (try
              (let [reader (string-push-back-reader text)
                    endof (gensym)]
                (binding [reader/*read-eval* false
                          reader/*data-readers* tags/*cljs-data-readers*]
                  (->> #(reader/read reader false endof)
                       (repeatedly)
                       (take-while #(not= % endof))
                       (doall))))
              (catch Exception e
                (println e)
                '())))
          (defsketch? [form]
            (and (list? form)
                 (symbol? (first form))
                 (= "defsketch" (name (first form)))))

  {:color 0
   :angle 0})

(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 [state]
  (q/background 240)
  (q/fill (:color state) 255 255)
  (let [angle (:angle state)
