     ))
 
 (defn display-message-on-time [time message]
-  (let [el [:div {:id "top-message" :class "alert alert-success" :style "position:absolute;top:10px;left:10px" :role "alert"}
+  (let [el [:div {:id "top-message" :class "alert alert-success" :style "position:absolute;bottom:10px;right:10px" :role "alert"}
             message]]
-    (->> el hipo/create (dommy/append! (by-id :main-navbar)))
+    (->> el hipo/create (dommy/append! (sel1 :body)))
     ;;(.appendChild (.-body js/document) (hipo/create el))
     (js/setTimeout (fn []
                      (when-let [e (by-id :top-message)]

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

