   (remove-pages! [_ state page-ids]))
 
 (defprotocol ColumnDropTarget
-  (accepts-drop? [_ state])     ;can't get data in drag-over
   (accept-drop!  [_ state pages]))
 
 (defrecord InboxColumnSource [id]

                          (map om/value))
                    page-ids)]
    (if-not (seq pages)
      (js/console.warn "Ignoring drop consisting only of duplicate pages:"
                       (pr-str page-ids))
      (go
        (<! (accept-drop! target state pages))
        (println "Target saved. Removing from source...")
        (<! (remove-pages! source state page-ids))
        (println "Drop saved!")))))

(defn ^:private make-page-cache [state columns]
  (into {}

                     :fn (partial mark-page-selected (:selected selection))})]]))

(defn ^:private inbox-handle-drop! [state owner page-cache target source page-ids]
  (let [columns (om/get-state owner :columns)
        target (get columns target)
        source (get columns source)
