   (let [{:keys [author content aggregate-id]} data]
     (when-not (empty? content)
       (html [:div.bs-callout.bs-callout-info
-             [:span.badge.pull-right aggregate-id]
-             [:p (vlib/safe-html content)]
-             [:p (str "Author: " author)]]))))
+             [:div.row
+              [:div.col-sm-8
+               [:p (vlib/safe-html content)]
+               [:p [:span.btn.btn-sm.btn-primary
+                    {:on-click #(.log js/console "foo")}
+                    (t :search :reuse)]]]
+              [:div.col-sm-4
+               [:div.text-right
+                [:span.label.label-default
+                 (str (t :search :origin) ": " aggregate-id)]
+                [:br]
+                [:span.label.label-default
+                 (str (t :search :author) ": " author)]]]]]))))
 
 (defui Result
   Object

            [goog.crypt.base64 :as b64]
            [ajax.core :refer [GET]]
            [discuss.specs :as specs]
            [discuss.utils.views :as vlib]
            [discuss.parser :as parser]
            [discuss.utils.common :as lib]

(defn search-query-now
  "Create form to select issue and place the search."
  [_ _] (reify om/IRender (render [_] search-for-statement)))
