              (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
;;   qcon.snippets
   [om.core :as om :include-macros true]
   [goog.events.KeyCodes :as kc]
   [om.dom :as dom :include-macros true]

          (.appendChild (om/get-node owner) pre)
          )))))

(defn new-random-pick [owner]
  (go-loop [c 4]
    (om/set-state! owner :pending-put nil)
