       (update! :users
                {:_id _id}
                {operation {:following follow-id}}))))
-  
+
 (defn static-follow-user [username follow?]
   (follow-user username follow?)
   (response/redirect (str "/user/" username)))

     :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)})}))

                                  :checked following? :value following?}]))))

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