Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
No need to force this into a vector
  • Loading branch information
amalloy committed Oct 8, 2011
1 parent cbec197 commit 6218d6a
Showing 1 changed file with 11 additions and 12 deletions.
23 changes: 11 additions & 12 deletions src/foreclojure/users.clj
Expand Up @@ -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"
Expand Down Expand Up @@ -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
Expand Down

0 comments on commit 6218d6a

Please sign in to comment.