         (map trim-newline)
         (filter #(not (or (= %  "Heartbeat") (= % "Stream Start"))))
         (map str->clj)
-        (filter #(contains? (:projects @app) (keyword (:project %))))))
+        (filter #(contains? (enabled-projects @app) (keyword (:project %))))))
 
 (defn request
   [url callback-fn & {:keys [type] :or {type "GET"}}]



(enable-console-print!)
(def str->clj
  (comp #(js->clj % :keywordize-keys true) #(.parse js/JSON %)))



(defn project-list->map
  [projects]
  (->>  (map #(assoc % :color "#222") projects)
        (map #(assoc % :enabled true))
        (reduce #(assoc %1 (keyword (:name %2)) %2) {})))

(defn initial-load
  [app]
