             (dom/div nil
                      (dom/p nil (controller-keys (:controller state)))))))
 
+
 ;; screen coordinates
 ;; ----------------------------------------------------------------------------
 

     :-moz-border-radius radius
     :border-radius radius}))

(defn player-position [x y]
  {:bottom (js/Math.round (* physics-to-pixel y))
   :left (js/Math.round (* physics-to-pixel x))})

(defn player-style
  "construct a style string from a js array. e.g position = #js [0, 9.8]"
  [player]
  (clj->js (merge {:position "absolute"
                  :background-color "orange"}
                 (player-width (:radius player))
                 (player-position (:x player) (:y player)))))


(defn player-view [player owner]

    (render [_]
            (dom/div #js {:style (player-style player)} "player"))))


;; game view/wrapper
;; ----------------------------------------------------------------------------
