     (reify
       om/IRender
       (render [this]
-        (view #js {:className (class-name (if (empty? e) "empty-mark" "spooky-mark"))
-                   :onClick (fn [evt]
-                              (om/transact! game-cursor
-                                            #(game/play (game/unspeculate %) cell subcell)))
-                   :onMouseEnter (fn [evt]
+        (touchable-without-feedback #js {:className    (class-name (if (empty? e) "empty-mark" "spooky-mark"))
+                   :onPress      (fn [evt]
                                    (om/transact! game-cursor
-                                                 #(game/speculate % cell subcell)))
-                   :onMouseLeave (fn [evt]
+                                     #(game/play (game/unspeculate %) cell subcell)))
+                   :onPressIn (fn [evt]
+                                   (om/transact! game-cursor
+                                     #(game/speculate % cell subcell)))
+                   :onPressOut (fn [evt]
                                    (om/transact! game-cursor game/unspeculate))}
-              (css-transition-group #js {:transitionName "mark-transition"}
-                                    (when-not (empty? e) (mark e))))))))
+          (text nil (if (empty? e) "e" "m"))
+          #_(css-transition-group #js {:transitionName "mark-transition"}
+            (when-not (empty? e) (mark e))))))))
 
 (defn superposition
   "Om component for a quantum cell"

                             ["player-x" "fa-plus"]
                             ["player-o" "fa-circle-o"])]
        (text #js {:className "instructions"}
               (view #js {:className (apply class-name "mark" "fa" player-classes)})
               (str "'s turn: " phase))))))

(defn board [game owner]
  (reify

                                 :margin          40
                                 :backgroundColor "#EE1EEE"
                                 :justifyContent  "center"}}
        (om/build board game)))))


(defn ^:export main
