                     (get edge-strokes mention-count max-stroke) nil))))
 
     ; Draw avatar nodes
-    (doseq [[username {:keys [x y]}] locs]
+    (doseq [[username {:keys [x y] :as foo}] locs]
+      ;(log (pr-str foo))
       (.drawImage g
                   (- (unit-to-pixel x (.width canvas-size))  (/ avatar-size 2))
                   (- (unit-to-pixel y (.height canvas-size)) (/ avatar-size 2))

(defn unit-to-pixel [unit-arg canvas-size]
  (+ (* unit-arg (- canvas-size avatar-size)) (/ avatar-size 2)))

(defn draw-graph [{:keys [locs mentions]} text]
  (let [canvas-size (. g (getPixelSize))]
    (. g (clear))

        (.drawTextOnLine g text 5 20 (.width canvas-size) 20
                        "left" font nil fill)))))

(buzz/register :graph-update #(draw-graph (layout/radial %) nil))

(def animation (atom nil))

;(events/listen (dom/getElement "network") events/EventType.CLICK start-anneal)
;(buzz/register :track-clicked start-anneal)
;(buzz/register :refresh-clicked start-anneal)
