                            (println "Error while filtering")
                            (prn e)))
         nil->Out (fn [by-floors]
-                 (into {}
-                       (for [[k v] by-floors]
-                         [(if (nil? k) "Out" k) v])))]
+                   (into {}
+                         (for [[k v] by-floors]
+                           [(if (nil? k) "Out" k) v])))]
     (some->> all-the-people
              (group-by :KeyscanStatus)
              (nil->Out)  ; mark the OUT ones for better processing!

  ;; WorkTeam: Your actual team


(go
  (as-> (<! (genome/<get-all-active-klickster-profiles)) $
    (reset! people-atom $)
    ))

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

  ]])

(defn home-page []
  (try
    [:div
     (let [people (filter-people @people-atom)]
       (cond
         (nil? people) [:h2 "There has been an error while applying your filters!"]
         (= 0 (count people)) [:h2 "No one that fits your filters is in!"]
         :else (for [[floor people] people]
                 ^{:key floor} [Floor floor people])))]
    (catch :default e
      (prn e)
      [:h2 "There has been an error while applying your filters!"])))

(defn About
"Take the readme, render it to HTML, and set it as the element!"
