                                                  :onChange  #(vlib/commit-component-state :statement % owner)
                                                  :value     statement}))
                         (show-selection)
+
                         (dom/button #js {:className "btn btn-default"
-                                         :onClick   #(com/dispatch-add-action statement (lib/get-selection))}
-                                    "Submit"))))))
+                                         :onClick   #(com/dispatch-add-action statement (lib/get-selection))
+                                         :disabled  (> 10 (count statement))}
+                                    (remaining-characters statement))
+                        )))))
 
 (defn- build-with-buttons
   "Add navigation buttons to the provided view."

                         (vlib/fa-icon "fa-quote-right"))
               (dom/span #js {:className "input-group-addon pointer"
                              :onClick   lib/remove-selection}
                         (vlib/fa-icon "fa-times"))))))

(defn add-element
  "Show form to add a new statement."

            [discuss.utils.common :as lib]
            [discuss.utils.extensions]
            [discuss.utils.views :as vlib]))

;;;; Auxiliary
(defn- remaining-characters
  "Show remaining characters needed to submit a post."
  [statement]
  (let [remaining (- 10 (count statement))]
    (if (pos? remaining)
      (str "Noch " remaining " Zeichen")
      "Abschicken")))


;;;; Elements
(defn control-elements []
