                                   :checked following? :value following?}]))))
 
 (defn generate-user-list [user-set]
-  (let [[user-id following] 
+  (let [[user-id following]
         (if (session/session-get :user)
           (with-user [{:keys [_id following]}]
             [_id following])

     :main (generate-user-list (get-ranked-users))})})

(def-page top-users-page []
  (let [username (session/session-get :user) 
        {:keys [user-ranking top-100]} (get-top-100-and-current-user username)]
    {:title "Top 100 Users"
     :content
     (content-page
      {:heading "Top 100 Users"
       :heading-note (list "[show " (link-to "/users/all" "all") "]")
       :sub-heading (list (format-user-ranking user-ranking) 
                          [:span.contributor "*"] "&nbsp;"
                          (link-to repo-url "4clojure contributor"))
       :main (generate-user-list top-100)})}))

      (update! :users
               {:_id _id}
               {operation {:following follow-id}}))))

(defn static-follow-user [username follow?]
  (follow-user username follow?)
  (response/redirect (str "/user/" username)))
