       (addmarkers db0)))
 
 (defn setdb []
-  (let [db (.getElementById js/document "db")
-        mx (.getElementById js/document "max")
-        yo (.getElementById js/document "go")
-        sp (.getElementById js/document "stop")]
+  (let [db (dom/by-id "db")
+        mx (dom/by-id "max")
+        yo (dom/by-id "go")
+        sp (dom/by-id "stop")]
     (set! (.-onclick yo)
           #(do (set! stop "go")
                (when (not (empty? layers)) (removelastlayer))

  (do (.removeLayer mymap (last layers))
      (set! layers (butlast layers))))

(macros/rpc (get-lang-list lang) [p] (def db0 p))

(defn setmap []
  (do (setdb)
      ;; (addmarkers db0)
      ))

(defn setdb0 [ldb mx]
  (do (def db0 (list ldb))


(defn addmarkers [dbb]
  (let [ch (chan)
        markers (L/MarkerClusterGroup.)
        per (dom/by-id "per")]
    (set! layers (conj layers markers))
    (go (while (not= stop "stop")
          (let [[a cnt perc] (<! ch)]
            (macros/rpc
             (get-marker a dbb) [p]
             (let [[[lat lng] img title] p
