From 557d48217ed13fe34cfef6e8b8e03699856d82d1 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Mon, 23 Feb 2009 20:45:41 +0100
Subject: Fix indentation.

---
 cljssss-g.clj | 38 +++++++++++++++++++-------------------
 1 file changed, 19 insertions(+), 19 deletions(-)

diff --git a/cljssss-g.clj b/cljssss-g.clj
index f6878aa..b61b84b 100644
--- a/cljssss-g.clj
+++ b/cljssss-g.clj
@@ -100,29 +100,29 @@
 
 (defservlet cljssss-g
   (GET "/login"
-       (if (= (params :valuesofbetawillgiverisetodom) "true")
-           (.toString (doto (.getInstanceOf templates "login")
-                        (.setAttributes {"logintext" "Login failed"})))
-           (.toString (doto (.getInstanceOf templates "login")
-                        (.setAttributes {"logintext" "Login"})))))
+    (if (= (params :valuesofbetawillgiverisetodom) "true")
+        (.toString (doto (.getInstanceOf templates "login")
+                     (.setAttributes {"logintext" "Login failed"})))
+        (.toString (doto (.getInstanceOf templates "login")
+                     (.setAttributes {"logintext" "Login"})))))
   (POST "/login"
-        (dosync
-         (with-db
-           (sql/with-query-results [{id :id password :password}]
-                                   ["SELECT id, password FROM user WHERE name = ?"
-                                    (params :name)]
-             (if (= password (params :password))
-               (do
-                 (alter session assoc :id id)
-                 (redirect-to "/"))
-               (redirect-to "/login?valuesofbetawillgiverisetodom=true"))))))
+    (dosync
+      (with-db
+        (sql/with-query-results [{id :id password :password}]
+                                ["SELECT id, password FROM user WHERE name = ?"
+                                 (params :name)]
+          (if (= password (params :password))
+              (do
+                (alter session assoc :id id)
+                (redirect-to "/"))
+              (redirect-to "/login?valuesofbetawillgiverisetodom=true"))))))
   (GET "/feedlist.opml"
-       (with-session (opml-string (session :id))))
+    (with-session (opml-string (session :id))))
   (GET "/lynxy-feedlist.html"
-       (with-session (lynxy-feedlist (session :id))))
+    (with-session (lynxy-feedlist (session :id))))
   (GET "/lynxy-showfeed"
-       (with-session
-         (lynxy-showfeed (session :id) (. Integer parseInt (params :feed)))))
+    (with-session
+      (lynxy-showfeed (session :id) (. Integer parseInt (params :feed)))))
   (GET "/"
     (with-session
       (.toString
-- 
cgit v1.2.3