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


(defn set-people-to-all-active-klicksters [atm interval]
  (go-loop []
    (reset! atm (<! (genome/<get-all-active-klickster-profiles)))
    (println "Downloaded" (count @atm) "Klicksters") 
    (<! (timeout interval))
    (recur)))

(set-people-to-all-active-klicksters people-atom (* 5 60 1000))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; filter macro test


(defn Floor [title users]
  [:div 
   [:h3 title " (" (str (count users)) ")"]
   [:hr]
   [:div {:style {:display :flex
                  :flex-direction :row
