 ;;------------------------------------------------------------
 
 (hiccups/defhtml password-html []
-	[:div#inner-container.login
-		[:div.login-container
-			[:label "MC password:"]
-			[:input#password.login-name {:type "password"}]
-			[:button#submit-pass.lg-btn "OK"]]])
+  [:div#inner-container
+    [:div.login-5983e
+      [:form
+        [:div.input-4a3e3
+          [:label.label-66a3b "MC password:"]
+          [:input#password.input-48f1f {:type "password"}]]
+        [:button#submit.red-btn-2c9ab "OK"]]]])
 
 (defn on-grant-mc
   "Callback for handling the MC access grant."


(defn init
  []
  (init-password-page!)
  )


  (.html ($ "#main-container") (password-html))

  ; Request access as MC when user submits password.
  (.click ($ "#submit")
          #(.emit @socket "request-mc"
                  (.val ($ "#password"))))

  ; Allow pressing enter to submit.
  (.keyup ($ "#password")
          #(if (= (.-keyCode %) 13)
             (.click ($ "submit"))))

  ; Render either the stop page or the start page
  ; when access as MC is granted.
