             radius (om/get-state owner :radius)]
         (html
          [:div
-          ;;(om/build source-snippet data {})
-
           [:svg svg-attrs
            (border)
 

             (when-let [n (om/get-state owner :pending-put)]
               [:text {:x 20 :y 150 :style {:font-size "64pt"
                                            :color "white"} :fill "white"} (str n)])]

            ;;


            ;; Put
            [:g {:transform "translate(160,65)"

(ns qcon.main
  (:require-macros [cljs.core.async.macros :refer [go go-loop]])
  (:require
   [om.core :as om :include-macros true]
   [goog.events.KeyCodes :as kc]
   [om.dom :as dom :include-macros true]
