                          (merge {:response-format :json :keywords? true}))))))
     (recur)))
 
-
 (defn selected-range-change
   [selected selection-key {{ids :ids search :search} :args}]
   (let [new-selected (get ids selection-key)]

            history (om/get-shared owner :history)]
        (dom/div #js {:id (str table-id "-container")}
         (dom/table
          #js {:id table-id
               :className "table table-hover hecuba-table"} ;; table-hover table-stripedso,
          (dom/thead
           nil

      (let [{:keys [programmes projects active-components]} tables
            history (om/get-shared owner :history)]
        (html
         [:div {:id "projects-div"}
          [:h2 "Projects"]
          [:ul {:class "breadcrumb"}
           [:li [:a
                 {:onClick (fn projects-div-history-change
                             [_ _]
                             (history/update-token-ids! history :programmes nil)
                             (fixed-scroll-to-element "programmes-div"))}
                 (title-for programmes)]]]
          (om/build table projects {:opts {:histkey :projects}})])))))

