update events

Author: Pau1fitz

src/status_im/contexts/communities/events.cljs

@@ -12,6 +12,7 @@
     status-im.contexts.communities.actions.addresses-for-permissions.events
     status-im.contexts.communities.actions.community-options.events
     status-im.contexts.communities.actions.leave.events
+    [status-im.contexts.communities.utils :as utils]
     [status-im.navigation.events :as navigation]
     [taoensso.timbre :as log]
     [utils.i18n :as i18n]
@@ -163,33 +164,35 @@
 (defn initialize-permission-addresses
   [{:keys [db]} [community-id]]
   (when community-id
-    (let [accounts        (get-in db [:wallet :accounts])
-          sorted-accounts (sort-by :position (vals accounts))
-          addresses       (set (map :address sorted-accounts))]
+    (let [accounts  (utils/sorted-non-watch-only-accounts db)
+          addresses (set (map :address accounts))]
       {:db (update-in db
                       [:communities community-id]
                       assoc
+                      :previous-share-all-addresses? true
+                      :share-all-addresses?          true
                       :previous-permission-addresses addresses
                       :selected-permission-addresses addresses
-                      :airdrop-address               (:address (first sorted-accounts)))})))
+                      :airdrop-address               (:address (first accounts)))})))
 
 (rf/reg-event-fx :communities/initialize-permission-addresses
  initialize-permission-addresses)
 
 (defn update-previous-permission-addresses
   [{:keys [db]} [community-id]]
   (when community-id
-    (let [accounts                      (get-in db [:wallet :accounts])
-          sorted-accounts               (sort-by :position (vals accounts))
+    (let [accounts                      (utils/sorted-non-watch-only-accounts db)
           selected-permission-addresses (get-in db
                                                 [:communities community-id
                                                  :selected-permission-addresses])
           selected-accounts             (filter #(contains? selected-permission-addresses (:address %))
-                                                sorted-accounts)
-          current-airdrop-address       (get-in db [:communities community-id :airdrop-address])]
+                                                accounts)
+          current-airdrop-address       (get-in db [:communities community-id :airdrop-address])
+          share-all-addresses?          (get-in db [:communities community-id :share-all-addresses?])]
       {:db (update-in db
                       [:communities community-id]
                       assoc
+                      :previous-share-all-addresses? share-all-addresses?
                       :previous-permission-addresses selected-permission-addresses
                       :airdrop-address               (if (contains? selected-permission-addresses
                                                                     current-airdrop-address)
@@ -218,12 +221,32 @@
 (rf/reg-event-fx :communities/toggle-selected-permission-address
  toggle-selected-permission-address)
 
+(defn toggle-share-all-addresses
+  [{:keys [db]} [community-id]]
+  (let [share-all-addresses? (get-in db [:communities community-id :share-all-addresses?])
+        accounts             (utils/sorted-non-watch-only-accounts db)
+        addresses            (set (map :address accounts))]
+    {:db (update-in db
+                    [:communities community-id]
+                    (fn [community]
+                      (-> community
+                          (assoc :share-all-addresses? (not share-all-addresses?))
+                          (cond-> (not share-all-addresses?)
+                                  (assoc :selected-permission-addresses addresses)))))}))
+
+(rf/reg-event-fx :communities/toggle-share-all-addresses
+ toggle-share-all-addresses)
+
 (rf/reg-event-fx :communities/reset-selected-permission-addresses
  (fn [{:keys [db]} [community-id]]
    (when community-id
-     {:db (assoc-in db
-           [:communities community-id :selected-permission-addresses]
-           (get-in db [:communities community-id :previous-permission-addresses]))
+     {:db (update-in db
+                     [:communities community-id]
+                     assoc
+                     :selected-permission-addresses
+                     (get-in db [:communities community-id :previous-permission-addresses])
+                     :share-all-addresses?
+                     (get-in db [:communities community-id :previous-share-all-addresses?]))
       :fx [[:dispatch [:communities/check-permissions-to-join-community community-id]]]})))
 
 (rf/reg-event-fx :communities/get-community-channel-share-data