diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-02-23 20:45:41 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-02-23 20:45:41 +0100 |
| commit | 557d48217ed13fe34cfef6e8b8e03699856d82d1 (patch) | |
| tree | 20e2ffcbe4e05f34479c3945ba1d44ed9b2a1c87 | |
| parent | 69fbec0f979628d59c18cbf6d3ae9b483caa5ea2 (diff) | |
Fix indentation.
| -rw-r--r-- | cljssss-g.clj | 38 |
1 files 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 |