 
   (try
     (-> url
-        (client/get {:client-params {"http.useragent" user-agent}
-                     :query-params
-                     {:nb             max-per-page
-                      :page           (inc page)
-                      :with_moves     1
-                      :with_movetimes 1
-                      :with_opening   1
-                      :with_analysis  1}})
+        (http-get
+          {:client-params {"http.useragent" user-agent}
+           :query-params
+           {:nb             max-per-page
+            :page           (inc page)
+            :with_moves     1
+            :with_movetimes 1
+            :with_opening   1
+            :with_analysis  1}})
 
         :body
 

(def ^:private nice-downloader-waiting-time 1000)
(def ^:private even-nicer-downloader-waiting-time 120000)

(defn username->user [url username user-agent]
  (let [url (str url "/user/" username)]
    (try
      (-> url
          (client/get {:client-params {"http.useragent" user-agent}})

          :body


        url          (str url "/user/" username "/games")

        nb-results   (-> url
                         (http-get
                           {:client-params {"http.useragent" user-agent}
                            :query-params
                            {:nb   1
                             :page 1}})

                         :body

