 
 
 ;;;; Views
-(defn clipboard-item [data owner]
+(defn clipboard-item [data]
   (reify
     om/IInitState
     (init-state [_]

  []
  (let [selections (get-stored-selections)
        current (lib/get-selection)
        with-current (distinct (conj selections current))]
    (lib/update-state-item! :clipboard :selections (fn [_] with-current))))



                    :className   "bs-callout bs-callout-info"
                    :draggable   true
                    :onDragStart drag-event}
               (dom/div nil (:title data))
               #_(dom/button #js {:className "btn btn-sm btn-default"
                                :onClick   #(discuss.communication/ajax-get "api/cat-or-dog")
                                :title     "Select this reference for your statement"}
                           (vlib/fa-icon "fa-check"))))))

(defn view []
  (when (pos? (count (get-stored-selections)))
    (dom/div nil
             (dom/h5 nil "Clipboard")
             (apply dom/div nil
                    (map #(om/build clipboard-item (lib/merge-react-key %)) (get-stored-selections))))))