resource switch tag filters

src/cljs/ulysses/components/header.cljs

@@ -24,7 +24,16 @@
       [link [:home] {} config/site-title]]
     [progress]])
 
-(defn- uconn-banner-right-menu-item [href fa-id]
+(defn login []
+  (let [user (subscribe [:user])]
+    (fn []
+      (let [user @user]
+        [:div.login
+          (if-let [netid (:netid user)]
+            [:span "you are logged in as " netid]
+            [link "http://ulysses-api-staging.core/login" {} "log in"])]))))
+
+(defn uconn-banner-right-menu-item [href fa-id]
   [:li.nav-item
     [link
       href
@@ -46,7 +55,8 @@
             [link ovpr-url {:class :full} "Office of the Vice President for Research"]]
           [:ul.nav.navbar-nav.red-button-menu.pull-right
             [uconn-banner-right-menu-item "http://uconn.edu/search" :search]
-            [uconn-banner-right-menu-item "http://uconn.edu/az/" :sort-alpha-asc]]]))))
+            [uconn-banner-right-menu-item "http://uconn.edu/az/" :sort-alpha-asc]]
+          [login]]))))
 
 ;; ----------------------------------------------------------------------------
 ;; main

src/cljs/ulysses/core.cljs

@@ -22,7 +22,8 @@
     #(dispatch [:window-scroll])))
 
 (defn start-pollings []
-  (js/setInterval #(dispatch [:window-resize]) 100))
+  (js/setInterval #(dispatch [:window-resize]) 100)
+  (js/setInterval #(dispatch [:request-user-poll]) (* 30 1000)))
 
 (defn ^:export init []
   (routes/app-routes)

src/cljs/ulysses/db.cljs

@@ -27,6 +27,12 @@
    ; current window scroll position
    :window-scroll-position (window-scroll-position)
 
+   ;; -------------------------------------------------------------------------
+   ;; user
+   ;; -------------------------------------------------------------------------
+
+   :user nil
+
    ;; -------------------------------------------------------------------------
    ;; data
    ;; -------------------------------------------------------------------------

src/cljs/ulysses/handlers.cljs

@@ -8,6 +8,7 @@
                                    window-scroll-position
                                    clean-incoming-grant-op
                                    clean-incoming-grant-ops
+                                   boolean?
                                    parse-int-id
                                    str->int
                                    to-id-map
@@ -48,7 +49,7 @@
 
 (register-handler
   :window-resize
-  (fn [db [_]]
+  (fn [db _]
     (let [ws (window-size)
           ds (document-size)]
       (if (and (= ws (:window-size db)) (= ds (:document-size db)))
@@ -58,7 +59,7 @@
 
 (register-handler
   :window-scroll
-  (fn [db [_]]
+  (fn [db _]
     (assoc db :window-scroll-position (window-scroll-position))))
 
 (register-handler
@@ -77,6 +78,28 @@
   (fn [db [_ response]]
     db)) ; do nothing for now
 
+;; ----------------------------------------------------------------------------
+;; user
+;; ----------------------------------------------------------------------------
+
+(register-handler
+  :request-user-poll
+  (fn [db _]
+    (request db
+      [:login :poll]
+      :handler #(dispatch [:receive-user-poll %])
+      ;; if server didn't respond or an error occurred, log out
+      :error-handler #(dispatch [:receive-user-poll false]))))
+
+(register-handler
+  :receive-user-poll
+  (fn [db [_ response]]
+    (println "login:" response)
+    (if-not (and (boolean? response) response)
+      ;; not logged in anymore, so nil the user
+      (assoc db :user nil)
+      db)))
+
 ;; ----------------------------------------------------------------------------
 ;; raw data
 ;; ----------------------------------------------------------------------------

src/cljs/ulysses/subs.cljs

@@ -51,6 +51,15 @@
       (let [{:keys [page-current page-last]} @db]
         {:current page-current :last page-last}))))
 
+;; ----------------------------------------------------------------------------
+;; user
+;; ----------------------------------------------------------------------------
+
+(register-sub
+  :user
+  (fn [db _]
+    (reaction (:user @db))))
+
 ;; ----------------------------------------------------------------------------
 ;; raw data
 ;; ----------------------------------------------------------------------------

src/cljs/ulysses/utils.cljs

@@ -19,6 +19,9 @@
   [& args]
   nil)
 
+(defn boolean? [x]
+  (or (true? x) (false? x)))
+
 (defn ptr
   "print x, then return it. useful for
   debugging inside threading macros or map"

src/sass/app.scss

@@ -58,6 +58,7 @@
 @import 'components/grant-op-boxes';
 @import 'components/grant-op-filters';
 @import 'components/grant-op-pagination';
+@import 'components/login';
 @import 'components/main-logo';
 @import 'components/modal-alpha';
 @import 'components/not-found';

src/sass/components/_login.scss

@@ -0,0 +1,25 @@
+// login
+
+// NOTE
+// this is within the relative uconn-banner
+
+.uconn-banner {
+  .login {
+    padding: .7rem 1rem 0 0;
+    position: absolute;
+    right: 0;
+    top: 60px;
+  }
+
+  &.slim {
+    .login {
+      top: 40px;
+    }
+  }
+
+  @media screen and (max-width: 850px) {
+    .login {
+      top: 40px;
+    }
+  }
+}

src/sass/components/_uconn-banner.scss

@@ -43,6 +43,7 @@
   left: 0;
   margin-bottom: 8px;
   padding: 0 1rem;
+  position: relative;
   top: 0;
   user-select: none;
   width: 100%;
@@ -82,7 +83,7 @@
       }
 
       + .nav-item {
-        margin-left: 0.3rem;
+        margin-left: .3rem;
       }
     }
   }