UCW Bootstrap Form

gistfile1.txt

(defentry-point "form.html" (:application *ucw-hello-world-app*)
    ()
  ;; display the window component
  (call-as-window 'main-window
		  :title "Bootstrap form"
		  :body (make-instance 'bootstrap-form)))


(defcomponent bootstrap-form ()
  ())

(defmethod render ((component bootstrap-form))
  (<:div :class "container"
	 :style "padding:10px;"
	 (<:h2 :class "color-white" "Example")
	 (<:div :class "col-md-9 col-md-offset-1"
		:style ""
		(<:form :class "form-horizontal"
			(<:div :class "form-group row"
			       (<:label :class "col-sm-2 control-label color-white"
					"Email")
			       (<:div :class "col-sm-7"
				      (<:input :type "email"
					       :class "form-control"
					       :placeholder "Email")))
			(<:div :class "form-group"
			       (<:label :class "col-sm-2 control-label color-white"
					"Password")
			       (<:div :class "col-sm-7"
				      (<:input :type "password"
					       :class "form-control"
					       :placeholder "Password")))
			(<:div :class "form-group"
			       (<:div :class "col-sm-offset-2 col-sm-10"
				      (<:button :type "submit"
						:class "btn btn-default"
						"Sign in")))))))