                      (fn [e]
                        (print "REQUEST ERROR")
                        (let [ee (.-target e)]
-                         
+
                          (try
                            (make-reload-if-reload-client (t/read r (.getResponseText ee)))
                            (catch js/Error e
                              (println "ERR -1 " e)))
-                         
+
                          (print-error "ERROR" ee false)
-                         
+
                          (when error-fn
                            (let [rt (.getResponseText ee)]
                              (try

                     (get-response-as-transit-or-text ee)
                     "\n---------------------------------------------------------\n\n")
            (when (and show-alert  (not= 0 (.getStatus ee)))
              (js/alert (str
                         "ERROR IN [" s "]\n"
                         "Status: " (.getStatus ee) " - " (.getStatusText ee) "\n"
                         (get-response-as-transit-or-text ee)))))

          ;; (redirect-to-root-when-not-transit [ee]
          ;;   (let [ct (.getResponseHeader ee "Content-Type")]




(defn get-data [uri params success-fn & [error-fn complete-fn disable-progress-element? my-error-alert-fn]]
  (letfn [(get-response-as-transit-or-text [ee]
            (try
              (t/read r (.getResponseText ee))
