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

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

  (:require [mrhyde.extend-js]
            [blade :refer [L]]
            [cljs.core.async :refer [chan <! >! timeout]]
            [shoreleave.remotes.http-rpc :refer [remote-callback]]
            [domina :as dom]
            [domina.events :as ev])
  (:require-macros [cljs.core.async.macros :refer [go]]
                   [shoreleave.remotes.macros :as macros]))

