               (read-string))
       (js/console.warn "Couldn't read transfer-data for key:" (pr-str key))))
 
+(defn- drag-copy? [e]
+  e.ctrlKey)
+
 (defn ^:private column-drag-start
   "Called from `inbox-column' when `dragstart' event is fired. Manages
   selection-updates and sets the drag-data in the event."

            [pepa.components.page :as page]

            [cljs.reader :refer [read-string]]
            [goog.string :as gstring])
  (:require-macros [cljs.core.async.macros :refer [go go-loop]]
                   [cljs.core.match.macros :refer [match]])
  (:import [cljs.core.ExceptionInfo]

      (go
        (if (<! (accept-drop! target state pages target-idx))
          (do
            ;; TODO: Handle copy instead of move
            (println "Target saved.")
            (when-not copy?
              (println "Removing from source...")
              (<! (remove-pages! source state page-ids)))
            (println "Drop saved!"))
          (js/console.warn "`accept-drop!' returned non-truthy value. Aborting drop."))))))

