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

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