handlers+subs for dashboard banner

src/cljs/commiteth/handlers.cljs

@@ -59,7 +59,7 @@
  :initialize-db
  [(inject-cofx :store)]
  (fn [{:keys [db store]} [_]]
-     {:db (merge db/default-db store)}))
+   {:db (merge db/default-db store)}))
 
 
 (reg-event-fx
@@ -223,6 +223,13 @@
           :owner-bounties issues
           :owner-bounties-loading? false)))
 
+(reg-event-fx
+ :dashboard/mark-banner-as-seen
+ [(inject-cofx :store)]
+ (fn [{:keys [db store]} [_ banner-id]]
+   {:db    (update-in db    [:dashboard/seen-banners] (fnil conj #{}) banner-id)
+    :store (update-in store [:dashboard/seen-banners] (fnil conj #{}) banner-id)}))
+
 (defn get-ls-token [db token]
   (let [login (get-in db [:user :login])]
     (get-in db [:tokens login token])))

src/cljs/commiteth/subscriptions.cljs

@@ -96,6 +96,24 @@
       :unpaid {:count (count unpaid)
                :combined-usd-value (sum-dollars unpaid)}})))
 
+(reg-sub
+ :dashboard/seen-banners
+ (fn [db _] (:dashboard/seen-banners db)))
+
+(reg-sub
+ :dashboard/banner-msg
+ :<- [:user]
+ :<- [:dashboard/seen-banners]
+ (fn [[user seen-banners] _]
+   (cond
+     (not (contains? seen-banners "bounty-issuer-salute"))
+     {:name (or (some-> (:name user) (string/split  #"\s") first)
+                (:login user))
+      :banner-id "bounty-issuer-salute"}
+
+     #_(not (contains? seen-banners "new-dashboard-info"))
+     #_{:banner-id "new-dashboard-info"})))
+
 (reg-sub
   :pagination
   (fn [db [_ table]]