chore: Fix subs leak and fix schema error (#19321)

src/legacy/status_im/subs/root.cljs

@@ -22,7 +22,6 @@
 (reg-root-key-sub :peers-count :peers-count)
 (reg-root-key-sub :peers-summary :peers-summary)
 (reg-root-key-sub :web3-node-version :web3-node-version)
-(reg-root-key-sub :alert-banners :alert-banners)
 
 ;;keycard
 (reg-root-key-sub :keycard :keycard)

src/status_im/contexts/chat/messenger/composer/utils.cljs

@@ -200,7 +200,8 @@
   []
   (let [chat-input (rf/sub [:chats/current-chat-input])]
     {:images               (seq (rf/sub [:chats/sending-image]))
-     :link-previews?       (rf/sub [:chats/link-previews?])
+     :link-previews?       (or (rf/sub [:chats/link-previews?])
+                               (rf/sub [:chats/status-link-previews?]))
      :audio                (rf/sub [:chats/sending-audio])
      :reply                (rf/sub [:chats/reply-message])
      :edit                 (rf/sub [:chats/edit-message])

src/status_im/contexts/communities/events.cljs

@@ -235,10 +235,10 @@
     [:cofx :schema.re-frame/cofx]
     [:args
      [:schema
-      [:catn
-       [:map
-        [:community-id [:? :string]]
-        [:update-last-opened-at? [:? :boolean]]]]]]]
+      [:vector
+       [:map {:closed true}
+        [:community-id {:optional true} :string]
+        [:update-last-opened-at? {:optional true} [:maybe :boolean]]]]]]]
    [:maybe
     [:map
      [:db map?]

src/status_im/contexts/communities/events_test.cljs

@@ -24,7 +24,7 @@
     (testing "do nothing"
       (is (match?
            nil
-           (events/fetch-community {} []))))))
+           (events/fetch-community {} [{}]))))))
 
 (deftest community-failed-to-fetch
   (testing "given a community id"

src/status_im/contexts/profile/settings/events.cljs

@@ -32,11 +32,6 @@
                 :params     [(or preferred-name display-name name) ""]
                 :on-success #(log/debug "sent contact update")}]]))]}))
 
-(rf/reg-event-fx :profile.settings/change-preview-privacy
- (fn [{:keys [db]}]
-   (let [private? (get-in db [:profile/profile :preview-privacy?])]
-     {:fx [[:profile.settings/blank-preview-flag-changed private?]]})))
-
 (rf/reg-event-fx :profile.settings/change-webview-debug
  (fn [_ [value]]
    (let [value' (boolean value)]

src/status_im/subs/chats.cljs

@@ -433,10 +433,14 @@
 (re-frame/reg-sub
  :chats/link-previews?
  :<- [:chats/link-previews-unfurled]
+ (fn [previews]
+   (boolean (seq previews))))
+
+(re-frame/reg-sub
+ :chats/status-link-previews?
  :<- [:chats/status-link-previews-unfurled]
- (fn [previews status-link-previews]
-   (boolean (or (seq status-link-previews)
-                (seq previews)))))
+ (fn [status-link-previews]
+   (boolean (seq status-link-previews))))
 
 (re-frame/reg-sub
  :chat/check-channel-muted?