   (while true
     (let [[url params handler-fn error-handler-fn] (<! chan-ajax-post-json)]
       (println "AJAX POST REQUEST: START ON " url " <- " params)
+
+
+      (let [el [:div {:id "top-download-message" :class "alert alert-warning" :style "position:absolute;top:40%;left:40%" :role "alert"}
+                [:img {:src "/images/preloader.gif"}]
+                "Подождите, идет загрузка данных..."]]
+        (->> el
+             hipo/create
+             (dommy/append! (sel1 :body))))
 
       ;; Данный вариант не работает в общей функции
       ;; #_(POST "/tag/path-and-chailds"

        :handler (fn [[ok response]]

                   (put! chan-ajax-post-json-white-end 1)
                   
                   (if ok
                     (handler-fn response)
                     (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)]
        ))))

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

;;*
;;**************************************************************************************************




(def chan-ajax-post-json (chan))
(def chan-ajax-post-json-white-end (chan))

