   [selected-pages page]
   (assoc page :selected? (contains? (set selected-pages) (:id page))))
 
-(ui/defcomponent inbox-column [[state column] owner {:keys [handle-drop!]}]
+(ui/defcomponent inbox-column [[state column] owner opts]
   (init-state [_]
     {:selection (->> (column-pages column state)
                      (map :id)

  (into {}
        ;; Transducerpower
        (comp (mapcat #(column-pages (val %) state))
              (map (juxt :id identity)))
        columns))


    (let [gen (IdGenerator.getInstance)
          columns [(->InboxColumnSource (.getNextUniqueId gen))
                   (->FakeColumnSource (.getNextUniqueId gen))]]
      {:columns (into {} (map (juxt :id identity))
                      columns)}))
  (will-mount [_]
    (api/fetch-inbox! state))
  (render-state [_ {:keys [columns]}]
