       (lib/error-msg! error)
       (do
         (lib/no-error!)
-        (lib/update-state-item! :discussion :search (fn [_] res))))))
+        (lib/update-state-item! :discussion :search (fn [_] res))
+        #_(let [foo (prepare-search-results)]
+          (println foo)
+          (println (count foo)))))))
 
 (defn statement
   "Find related statements to given keywords."

(defn item-view [data owner]
  (reify om/IRender
    (render [_]
      (println data)
      (dom/div #js {:id (str (lib/prefix-name "search-item-") (swap! counter inc))}
               (dom/div nil data)
               (println data)))))

(defn view []
  (reify om/IRender

                        (dom/input #js {:className   "form-control"
                                        :onChange    #(statement (.. % -target -value))
                                        :placeholder "Find Statement"}))
               (println (prepare-search-results))
               #_(apply dom/ol #js {:className "foobar"}
                        (om/build-all item-view (lib/get-bubbles)))
               #_(apply dom/div nil
                        (om/build-all item-view vals-dict
                                      ))
               ))))