 ;;*
 ;;**************************************************************************************************
 
+
+
+
 (def chan-ajax-post-json (chan))
 (def chan-ajax-post-json-white-end (chan))
 

  (while true
    (let [[url params handler-fn error-handler-fn] (<! chan-ajax-post-json)]
      (println "AJAX POST REQUEST: START ON " url " <- " params)

      ;; Данный вариант не работает в общей функции
      ;; #_(POST "/tag/path-and-chailds"

        :handler (fn [[ok response]]

                   (put! chan-ajax-post-json-white-end 1)

                   (if ok
                     (handler-fn response)
                     (do (println "AJAX ERROR: " ok)
                         (error-handler-fn response)))

                   ;;(println "AJAX POST RESPONSE ON " url " ->  " response)

                   (println "AJAX POST REQUEST: END ON " url))
        })

      (let [_ (<! chan-ajax-post-json-white-end)]
        (when-let [e (by-id :top-download-message)] (dommy/remove! e))))))

(defn ajax-post-json
  ([url params handler-fn]
