   "Use text from clipboard item as reference for own statement."
   [_ev]
   (let [clipboard-item (get-in @lib/app-state [:clipboard :current])]
-    (lib/update-state-item! :user :selection (fn [_] (.. clipboard-item -innerText)))))
+    #_(lib/update-state-item! :user :selection (fn [_] (.. clipboard-item -innerText)))))
 
 (defn allow-drop [ev]
   (.preventDefault ev))
 
 (defn- drag-event [ev]
   (let [target (.. ev -target)]
-    (lib/update-state-item! :clipboard :current (fn [_] target))))
-
-
-;;;; Views
-(defn clipboard-item [data]
-  {:deprecated 0.4}
-  (reify
-    om/IInitState
-    (init-state [_]
-      {:selected? false})
-    om/IRenderState
-    (render-state [_ {:keys [selected?]}]
-      (dom/div #js {:className   "bs-callout bs-callout-info"
-                    :draggable   true
-                    :onDragStart drag-event}
-               (dom/div nil (:title data))))))
-
-(defn view
-  {:deprecated 0.4}
-  []
-  (reify om/IRender
-    (render [_]
-      (when (pos? (count (get-stored-selections)))
-        (dom/div #js {:style #js {:paddingTop "3em"}}
-                 (dom/h5 nil (t :clipboard :heading))
-                 (dom/p nil (t :clipboard :instruction))
-                 (apply dom/div nil
-                        (map #(om/build clipboard-item (lib/merge-react-key %)) (get-stored-selections))))))))
+    #_(lib/update-state-item! :clipboard :current (fn [_] target))))
 
 
 ;; -----------------------------------------------------------------------------
 
 (defui ClipboardItem
-  static nom/IQuery
+  static om/IQuery
   (query [this] [:title])
   Object
   (render [this]
-          (let [{:keys [title]} (nom/props this)]
+          (let [{:keys [title]} (om/props this)]
             (html
              [:div {:className "bs-callout bs-callout-info"
                     :draggable true
                     :onDragStart drag-event}
               title]))))
-(def clipboard-item-next (nom/factory ClipboardItem {:keyfn :title}))
+(def clipboard-item-next (om/factory ClipboardItem {:keyfn :title}))
 
 (defui Clipboard
-  static nom/IQuery
+  static om/IQuery
   (query [this]
-         [{:clipboard/items (nom/get-query ClipboardItem)}])
+         [{:clipboard/items (om/get-query ClipboardItem)}])
   Object
   (render [this]
-          (let [{:keys [clipboard/items]} (nom/props this)]
+          (let [{:keys [clipboard/items]} (om/props this)]
             (when (pos? (count items))
               (html [:div {:style {:paddingTop "rem"}}
                      [:h5 (t :clipboard :heading)]
                      [:p (t :clipboard :instruction)]
                      (map clipboard-item-next items)])))))
-(def clipboard (nom/factory Clipboard))
+(def clipboard (om/factory Clipboard))

  "Removes clicked selection."
  [title]
  (let [rcol (remove #(= (:title %) title) (get-stored-selections))]
    (lib/update-state-item! :clipboard :selections (fn [] rcol))))

(defn add-item!
  "Store current selection in clipboard."

   (let [selections (get-stored-selections)
         current current
         with-current (distinct (merge selections {:title current}))]
     #_(lib/update-state-item! :clipboard :selections (fn [_] with-current))))
  ([] (add-item! (lib/get-selection))))


