          [:label {:for "checkbox1"} "Keep Me Signed in"]]
         [:input.btn-primary
          {:name "login"
+          :class (when-not submit-enabled? "btn-disabled")
+          :disabled (not submit-enabled?)
           :value "Continue"
           :type "submit"
           :on-click on-submit}]

;; Login
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defn- login-render
  [own local]
  (letfn [(on-submit []
            (rs/emit! (da/login {:username "cirilla"
                                 :password "secret"})))]
    (html
     [:div.login
      [:div.login-body

       [:div.login-content
        [:input.input-text
         {:name "email"
          :ref "email"
          :value (:email form "")
          :on-change #(login-field-change local :email %)
          :placeholder "Email or Username"
          :type "text"}]
        [:input.input-text
         {:name "password"
          :ref "password"
          :value (:password form "")
          :on-change #(login-field-change local :password %)
          :placeholder "Password"
          :type "password"}]
        #_[:div.input-checkbox.check-primary
