                                                      (dom/td nil nil)
                                                      (dom/td nil nil)
                                                      (dom/td nil (dom/span #js {:onClick #(go (>! delete-ch cursor))
-                                                                                :style #js {:float "right"}} "X")))
+                                                                                :style #js {:color (:link theme)
+                                                                                            :float "right"}} "X")))
                                              (dom/tr nil
                                                      (dom/td closer "{")
                                                      (dom/td nil nil)

  (reify
    om/IRenderState
    (render-state [_ state]
      (dom/td #js {:onClick #(do
                               (om/update! cursor [(mod (inc (first cursor)) 2)])
                               (go (>! (:set-state-ch state) id)))
                   :style #js {:width "20px"
                               :fontSize "20px"
                               :color (if on "#F00" (:foreground theme))}}
             (str " " (first cursor))))))

(def style-grey #js {:style #js {:color (:foreground theme)}})


                                                                   (dom/td #js {:onClick #(om/update-state! owner
                                                                                                            (fn [s] (merge s {:state :editing
                                                                                                                              :text v
                                                                                                                              :field k})))
                                                                                :style #js {:color (:link theme)}}
                                                                           v))))
                                               (keys cursor)
                                               (vals cursor))
