 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; filter macro test
 (defn eval-str [s]
-  (eval (empty-state)
-        s;(read-string s)
-        {:eval       js-eval
-         :source-map true
-         :context    :expr}
-        (fn [result] result)))
+  (try
+    (eval (empty-state)
+          s;(read-string s)
+          {:eval       js-eval
+           :source-map true
+           :context    :expr}
+          (fn [result] result))
+    (catch :default e
+      (println "Error while evaluating string")
+      (prn e))))
 
 ;; Todo: Add ":my-bla"
 (defn create-filter-fn 

(defn home-page []
  [:div
   (let [people (filter-people @people-atom)]
     (if (> (count people) 0)
       (for [[floor people] people]
         ^{:key floor} [Floor floor people])
       [:h2 "No one that fits your filters is in!"]))])

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

;; partition the users by 200

(defn filter-people [people]
  (let [all-the-people (try
                         (if-not (empty? @filters)
                           (let [my-filters (map #(create-filter-fn all-profile-keys %) @filters)]
                             (filter (apply every-pred my-filters) people))
                           people)
                         (catch :default e
                           (println "Error while filtering")
                           (prn e)))
        nil->Out (fn [by-floors]
                 (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!
             (genome/filter-in?)
