From 6218d6ac18a0656f3bf0fc86729b87a34854cb13 Mon Sep 17 00:00:00 2001
From: Alan Malloy <alan@malloys.org>
Date: Sat, 8 Oct 2011 16:05:52 -0700
Subject: [PATCH] No need to force this into a vector

---
 src/foreclojure/users.clj | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/src/foreclojure/users.clj b/src/foreclojure/users.clj
index d5accb38..30ab1c05 100644
--- a/src/foreclojure/users.clj
+++ b/src/foreclojure/users.clj
@@ -138,16 +138,16 @@
         (when (session/session-get :user)
           (with-user [{:keys [_id following]}]
             [_id (set following)]))]
-    (into [] (map-indexed
-              (fn [rownum {:keys [_id email position rank user contributor solved]}]
-                [rank
-                 (html (list
-                        (gravatar-img {:email email :class "gravatar"})
-                        [:a.user-profile-link {:href (str "/user/" user)}
-                         user (when contributor [:span.contributor " *"])]))
-                 (count solved)
-                 (html (following-checkbox user-id following _id user))])
-              user-set))))
+    (map-indexed
+     (fn [rownum {:keys [_id email position rank user contributor solved]}]
+       [rank
+        (html (list
+               (gravatar-img {:email email :class "gravatar"})
+               [:a.user-profile-link {:href (str "/user/" user)}
+                user (when contributor [:span.contributor " *"])]))
+        (count solved)
+        (html (following-checkbox user-id following _id user))])
+     user-set)))
 
 (def-page all-users-page []
   {:title "All 4Clojure Users"
@@ -299,8 +299,7 @@
         generate-datatable-users-list)))
 
 (defn user-datatable-query [params]
-  (let [
-        ranked-users (get-ranked-users)
+  (let [ranked-users (get-ranked-users)
         search-str (params :sSearch)
         filtered-users (datatable-filter ranked-users search-str)
         page-users (datatable-process