                     :onDrop     discuss.clipboard/update-reference-drop}
                (dom/div #js {:className "panel-body"}
                         (dom/h4 #js {:className "text-center"} (lib/get-add-text))
-                        (dom/h5 #js {:className "text-center"} (safe-html (lib/get-add-premise-text)))
+                        (dom/h5 #js {:className "text-center"} (vlib/safe-html (lib/get-add-premise-text)))
                         (error-view)
                         (dom/div #js {:className "input-group"}
                                  (dom/span #js {:className "input-group-addon"}
-                                           (fa-icon "fa-comment"))
+                                           (vlib/fa-icon "fa-comment"))
                                  (dom/input #js {:className "form-control"
-                                                 :onChange  #(commit-target-value :statement % owner)
+                                                 :onChange  #(vlib/commit-target-value :statement % owner)
                                                  :value     statement}))
                         (when (lib/get-selection)
                           (dom/div #js {:className "input-group"}
                                    (dom/span #js {:className "input-group-addon"}
-                                             (fa-icon "fa-quote-left"))
+                                             (vlib/fa-icon "fa-quote-left"))
                                    (dom/input #js {:className "form-control"
                                                    :value     (lib/get-selection)})
                                    (dom/span #js {:className "input-group-addon"}
-                                             (fa-icon "fa-quote-right"))))
+                                             (vlib/fa-icon "fa-quote-right"))))
                         (dom/button #js {:className "btn btn-default"
                                          :onClick   #(com/dispatch-add-action statement (lib/get-selection))}
                                     "Submit"))))))

    (:is_system bubble) "bubble-system"
    (:is_status bubble) "bubble-status text-center"))

(defn- commit-target-value
  "Set local state of view, parse the value of the target of val."
  [key val owner]
  (om/set-state! owner key (.. val -target -value)))

(defn display
  "Toggle display view."
  [show]
  (if show
    #js {}
    #js {:display "none"}))

(defn toggle-show [show] (if show false true))

;; Elements
(defn loading-element []
  (when (lib/loading?)
    (dom/div #js {:className "loader"}

                               :onClick   #(integration/click-reference (:text data) (:url data))}
                          (:text data)
                          " "
                          (vlib/logo #(om/set-state! owner :show (vlib/toggle-show show))))
                (dom/span nil (:dom-post data))))))


