   [{id :id user "username" target "target-username" keyword "keyword" content "content" :as event}]
   (let [current-user (get-in @auth ["twitter" "username"])]
     (.log js/console (str "Event User: " user ", Current User:" current-user))
-    (if (= user current-user)
-      (swap! events conj {:id id 
-                          :user user 
-                          :keyword keyword
-                          :target target
-                          :drunk (drunk? event)
-                          :content content}))))
+    #_(if (= user current-user))
+       (swap! events conj {:id id 
+                           :user user 
+                           :keyword keyword
+                           :target target
+                           :drunk (drunk? event)
+                           :content content})));;)
 
 (defn handle-childsnapshot
   [snapshot]

    (if val
      (add-event (merge {:id key} (js->clj val))))))

(.on fb "child_added" handle-childsnapshot)
    
(defn manage-page
  []
  (let [who (get-in auth ["uid"])]

	    [:tr
	     [:th "Drunk"][:th "Event"][:th "Insult"][:th "Keyword"] [:td who]]
     (for [event @events]
       [:tr {:key (:id event)}
        [:td (or (and (:drunk event) "Hell Yeah!") "Nope")]
        [:td (:target event)]
        [:td (:content event)]
        [:td (:keyword event)]
        [:td [:a {:href "#/delete"} "Delete"]]])]]))

(.on fb "child_added" handle-childsnapshot)

(secretary/defroute "/manage" []
  (session/put! :current-page #'manage-page))

(secretary/defroute "/delete" []
  (session/put! :current-page #'delete-page))

