Un-indent some instances of form-to

clintharrison · Apr 23, 2011 · 9aae536 · 9aae536
1 parent 2b806e1
commit 9aae536
Show file tree

Hide file tree

Showing 3 changed files with 29 additions and 29 deletions.
diff --git a/src/foreclojure/login.clj b/src/foreclojure/login.clj
@@ -13,20 +13,20 @@
 (def-page my-login-page []
   [:div.error (session/flash-get :error)]
   (form-to [:post "/login"]
-           [:table
-            [:tr
-             [:td (label :user "Username")]
-             [:td (text-field :user)]]
-            [:tr
-             [:td (label :pwd "Password")]
-             [:td (password-field :pwd)]]
-            [:tr
-             [:td]
-             [:td [:button {:type "submit"} "Log In"]]]
-            [:tr
-             [:td ]
-             [:td
-              [:a {:href "/login/reset"} "Forgot your password?"]]]]))
+    [:table
+     [:tr
+      [:td (label :user "Username")]
+      [:td (text-field :user)]]
+     [:tr
+      [:td (label :pwd "Password")]
+      [:td (password-field :pwd)]]
+     [:tr
+      [:td]
+      [:td [:button {:type "submit"} "Log In"]]]
+     [:tr
+      [:td ]
+      [:td
+       [:a {:href "/login/reset"} "Forgot your password?"]]]]))
 
 (defn do-login [user pwd]
   (let [user (.toLowerCase user)

diff --git a/src/foreclojure/problems.clj b/src/foreclojure/problems.clj
@@ -94,12 +94,12 @@
       [:b "Enter your code:" [:br]
        [:span {:class "error"} (session/flash-get :error)]]]
      (form-to [:post "/run-code"] 
-              (text-area {:id "code-box"
-                          :spellcheck "false"}
-                         :code (session/flash-get :code))
-              (hidden-field :id id)
-              [:br]
-              [:button.large {:type "submit"} "Run"])]))
+       (text-area {:id "code-box"
+                   :spellcheck "false"}
+                  :code (session/flash-get :code))
+       (hidden-field :id id)
+       [:br]
+       [:button.large {:type "submit"} "Run"])]))
 
 (def-page problem-page []
   [:div.congrats (session/flash-get :message)]
@@ -132,4 +132,4 @@
   (GET "/problems" [] (problem-page))
   (GET "/problem/:id" [id] (code-box id))
   (POST "/run-code" {{:strs [id code]} :form-params}
-        (run-code (Integer. id) code)))
+    (run-code (Integer. id) code)))
diff --git a/src/foreclojure/register.clj b/src/foreclojure/register.clj
@@ -10,14 +10,14 @@
 (def-page register-page []
   [:div.error (session/flash-get :error)]
   (form-to [:post "/register"]
-           [:table
-            (map form-row
-                 [[text-field :user "Username (4-13 chars.)"]
-                  [password-field :pwd "Password (7-13 chars.)"]
-                  [password-field :repeat-pwd "Repeat Password"]
-                  [text-field :email "Email"]])
-            [:tr
-             [:td [:button {:type "submit"} "Register"]]]]))
+    [:table
+     (map form-row
+          [[text-field :user "Username (4-13 chars.)"]
+           [password-field :pwd "Password (7-13 chars.)"]
+           [password-field :repeat-pwd "Repeat Password"]
+           [text-field :email "Email"]])
+     [:tr
+      [:td [:button {:type "submit"} "Register"]]]]))
 
 (defn do-register [user pwd repeat-pwd email]
   (let [lower-user (.toLowerCase user)]