 (ns cljs-morphic.morph
   (:require-macros [cljs.analyzer.macros :refer [no-warn]]
                    [cljs.core.async.macros :refer [go go-loop]]
-                   [fresnel.lenses :refer [deflens]]
+                   [fresnel.lenses :refer [deflens deffetch]]
                    [cljs-morphic.macros :refer [morph-fn rectangle ellipse image text polygon]])
   (:require [cljs-morphic.evaluator :refer [morph-eval morph-eval-str]]
             [cljs-morphic.event :as event :refer [signals]]

  "Set the property prop-name of morph with id in world to prop-value"
  (putback world [($morph id) properties prop-name] prop-value))

(defn add-morphs-to [world id morphs]
  "Add collection of morphs to the morph with id in world"
  (-> world (redefine ($morph id) (fn [self props submorphs]


            [om.core :as om :include-macros true]
            [om.dom :as dom :include-macros true]
            [fresnel.lenses :refer [fetch putback create-lens create-lens dissoc-trigger IFetch IPutback]])
  (:import [goog.net XhrIo]
           [goog.events EventType]))

