close es on logout , 401, and empty token case

#165

src/cljs/swarmpit/component/header.cljs

@@ -3,6 +3,7 @@
             [material.icon :as icon]
             [swarmpit.url :refer [dispatch!]]
             [swarmpit.storage :as storage]
+            [swarmpit.event.source :as eventsource]
             [swarmpit.routes :as routes]
             [clojure.string :as string]
             [rum.core :as rum]
@@ -61,6 +62,7 @@
       {:key         "user-menu-logout"
        :onTouchTap  (fn []
                       (storage/remove "token")
+                      (eventsource/close!)
                       (dispatch!
                         (routes/path-for-frontend :login)))
        :primaryText "Log out"})))

src/cljs/swarmpit/controller.cljs

@@ -6,13 +6,21 @@
             [cemerick.url :refer [query->map]]
             [swarmpit.url :refer [dispatch!]]
             [swarmpit.storage :as storage]
+            [swarmpit.event.source :as eventsource]
             [swarmpit.routes :as routes]
             [swarmpit.component.state :as state]))
 
 (def cursor [:route])
 
 (defmulti dispatch (fn [location] (:handler location)))
 
+(defn login!
+  "Close event stream and redirect to login page"
+  []
+  (eventsource/close!)
+  (dispatch {:handler :login})
+  (dispatch! (routes/path-for-frontend :login)))
+
 (defn- execute
   ([success-fx error-fx]
    {:headers       {"Authorization" (storage/get "token")}
@@ -27,8 +35,7 @@
   ([api success-fx]
    (get api success-fx (fn [{:keys [status]}]
                          (case status
-                           401 (dispatch!
-                                 (routes/path-for-frontend :login))
+                           401 (login!)
                            403 (dispatch {:handler :unauthorized})
                            404 (dispatch {:handler :not-found})
                            (dispatch {:handler :error})))))

src/cljs/swarmpit/router.cljs

@@ -7,15 +7,10 @@
 
 (defonce location (atom nil))
 
-(defn- dispatch-login!
-  []
-  (controller/dispatch {:handler :login})
-  (dispatch! (routes/path-for-frontend :login)))
-
 (defn- on-navigate
   [location]
   (if (nil? (storage/get "token"))
-    (dispatch-login!)
+    (controller/login!)
     ;; Render to service list by default as we don't have any index page right now
     (if (= :index (:handler location))
       (controller/dispatch {:handler :service-list})