 (defn row-for [{:keys [selected data]}]
   (find-first #(= (:id %) selected) data))
 
-(defn uri-for-selection-change 
+(defn uri-for-selection-change
   "Returns the uri to load because of change of selection. Returns nil
    if no change to selection"
   [selected selection-key template {{ids :ids} :args}]

                                              :className (when (= id (:selected cursor)) "row-selected")
                                              ;; TODO use this to scroll the row into view.
                                              ;; Possible solution here: http://stackoverflow.com/questions/1805808/how-do-i-scroll-a-row-of-a-table-into-view-element-scrollintoview-using-jquery
                                              :id (str table-id "-selected") 
                                              }
                                         (into-array
                                          (for [[k {:keys [href]}] cols]

      (let [cols (get-in cursor [:header :cols])
            table-id (str (name histkey) "-table")]
        (dom/table #js {:id table-id
                        :className "table table-bordered hecuba-table "} ;; table-hover table-stripedso,
                   (dom/thead nil
                              (dom/tr nil
                                      (into-array
