                           "Do you agree or disagree with this statement?")
                  (om/build usage-view statement)
                  (dom/div #js {:className "text-center"}
-                          (bs/button-primary #(rlib/supportive? true)
+                          (bs/button-primary #(get-statement-url statement true)
                                              (vlib/fa-icon "fa-thumbs-up")
                                              " Agree")
                           " "
-                          (bs/button-primary #(rlib/supportive? false)
+                          (bs/button-primary #(get-statement-url statement false)
                                              (vlib/fa-icon "fa-thumbs-down")
                                              " Disagree")))))))

(defn reference-usage-handler
  "Handler to process information about the reference. Store results and change view."
  [response]
  (let [res (com/success-handler response)]
    (lib/update-state-item! :common :reference-usages (fn [_] res))
    (lib/change-view! :reference-usages)))


  [data _owner]
  (reify om/IRender
    (render [_]
      (let [issue (:issue data)
            statement (:statement data)
            author (:author data)]
        (dom/div #js {:className "bs-callout bs-callout-info"}
