      (html  [:tr
              {:onClick   (fn [_ _]
                            (history/update-token-ids! history :properties entity_id)
+                           (put! selected-row-chan @property)
                            (common/fixed-scroll-to-element "property-details-div"))
               :className (if (:selected property) "success")
               :id        (str table-id "-selected")}

            (om/build-all property-row (if sort-asc
                                         (sort-by sort-fn (:data properties))
                                         (reverse (sort-by sort-fn (:data properties))))
                          {:opts {:table-id table-id}})]]])))))

(defmethod properties-table :default [properties owner]
  (om/component

  (reify
    om/IInitState
    (init-state [_]
      {:th-chan (chan)
       :selected-row-chan (chan)})
    om/IWillMount
    (will-mount [_]
      ;; Put selected property into :selected-property cursor
      (go-loop []
        (let [selected-row-chan (om/get-state owner :selected-row-chan)
              row               (<! selected-row-chan)]
          (om/update! properties [:selected-property :property] row))
        (recur))
      (go-loop []
        (let [{:keys [th-chan]}                   (om/get-state owner)
              {:keys [sort-key sort-fn sort-asc]} (:sort-spec @properties)
