 (defn item-view [data owner]
   (reify om/IRender
     (render [_]
-      (dom/li nil
-              (vlib/safe-html data)))))
+      (dom/div #js {:className "bs-callout bs-callout-info"}
+               (vlib/safe-html (:text data))
+               (dom/span #js {:className "badge pull-right"}
+                         (lib/str->int (:distance data)))))))
 
 (defn form-view []
   (reify om/IRender

                                  (vlib/fa-icon "fa-search fa-fw"))
                        (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
                                      ))
               ))))

(defn results-view []
  (reify om/IRender
    (render [_]
      (dom/div nil
               (apply dom/ol nil
                      (om/build-all item-view (prepare-search-results)))))))
      (lib/error-msg! error)
      (do
        (lib/no-error!)
        (lib/update-state-item! :discussion :search (fn [_] res))))))

(defn statement
  "Find related statements to given keywords."
