 (ns uberblick.core
   (:require [accountant.core :as accountant]
-            [cljs.core.async :as async :refer [<! >! chan take!]]
+            [cljs.core.async :as async :refer [<! >! chan take! timeout]]
             [cljs-http.client :as http]
             [genome-cljs.core :as genome]
             [goog.events :as events]

  ]])

(defn home-page []
  [: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])))])

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

                  "(startsWith? :FirstName \"M\")" 
                  "(= :LaborRoleID \"APPLDEVL\")"
                  "(substring? :Title \"Quality\")"
                  "(= :KeyscanStatus \"In 4th Flr N\")"
                  "(or (startsWith? :FirstName \"M\") (substring? :Title \"Edit\"))"
                  ]]
       [:hr]
       [:h3 "References"]
