 
 (defn drag-event [ev]
   (let [target (.. ev -target)]
-    (lib/update-state-item! :clipboard :current (fn [_] target)))
-  (.setData ev.dataTransfer "text" (.. ev -target -id)))
+    (lib/update-state-item! :clipboard :current (fn [_] target))))
 
 (defn drop-event [ev]
   (.preventDefault ev)

(defn item-view [data owner]
  (reify om/IRender
    (render [_]
      (dom/div #js {:className   "bs-callout bs-callout-info"
                    :data-id     100
                    :draggable   true
                    :onDragStart drag-event}
               data))))

(defn view [data owner]
  (reify om/IRender
    (render [_]
      (dom/div nil
               (dom/div #js {:className  "panel panel-body"
                             :onDragOver allow-drop
                             :onDrop     drop-event}
                        (lib/get-selection))
               (dom/h5 nil "Clipboard")
               (om/build-all item-view (get-stored-selections) {:key (rand-int 1000)})))))
  (:require [om.core :as om :include-macros true]
            [om.dom :as dom :include-macros true]
            [discuss.lib :as lib]))

(def counter (atom 0))

(defn get-stored-selections
  "Return all stored selections."
