 
 (defn set-people-to-all-active-klicksters [atm interval]
   (go-loop []
-    (reset! atm (<! (genome/<get-all-active-klickster-profiles)))
-    (println "Downloaded" (count @atm) "Klicksters") 
+    (let [people (<! (genome/<get-all-active-klickster-profiles))]
+      (when (> (count people) 0)
+        (do
+          (reset! atm people)
+          (println "Downloaded" (count @atm) "Klicksters")))) 
     (<! (timeout interval))
     (recur)))
 
 (set-people-to-all-active-klicksters people-atom (* 5 60 1000))
+
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; filter macro test

              ((fn [expr] (prn expr) expr))
              (eval-str ,,,))))



;; Todo:
;; partition-by :KeyscanStatus. Then display and add filters.
;; add a <users-details test data set monday morning
;; partition the users by 200

(defn filter-people [people]
  (let [all-the-people (try
                         (if-not (empty? @filters)

            [secretary.core :as secretary :include-macros true]
            [clojure.walk :as walk]
            [cljs.pprint :as pprint]
            [alandipert.storage-atom :refer [local-storage]]
            [cljs.tools.reader :refer [read-string]]
            [cljs.js :refer [empty-state eval js-eval]])
  (:require-macros [cljs.core.async.macros :refer [go go-loop]])
