fix keyword renaming performance (#17291)

src/status_im/signals/core.cljs

@@ -143,5 +143,7 @@
       "localPairing"               (handle-local-pairing-signals
                                     cofx
                                     (js->clj event-js :keywordize-keys true))
+      "curated.communities.update" (rf/dispatch [:fetched-contract-communities
+                                                 (js->clj event-js :keywordize-keys true)])
 
       (log/debug "Event " type " not handled"))))

src/status_im2/contexts/communities/discover/events.cljs

@@ -1,19 +1,42 @@
 (ns status-im2.contexts.communities.discover.events
-  (:require [camel-snake-kebab.core :as csk]
-            [clojure.string :as string]
-            [taoensso.timbre :as log]
+  (:require [taoensso.timbre :as log]
             [utils.re-frame :as rf]))
 
+(def commmunity-keys-renamed
+  {:requestedAccessAt           :requested-access-at
+   :fileSize                    :file-size
+   :communityTokensMetadata     :community-tokens-metadata
+   :activeMembersCount          :active-members-count
+   :unknownCommunities          :unknown-communities
+   :canRequestAccess            :can-request-access?
+   :adminSettings               :admin-settings
+   :canManageUsers              :can-manage-users?
+   :categoryID                  :category-id
+   :canPost                     :can-post?
+   :isControlNode               :is-control-node?
+   :pinMessageAllMembersEnabled :pin-message-all-members-enabled
+   :isMember                    :is-member?
+   :canDeleteMessageForEveryone :can-delete-message-for-everyone?
+   :tokenPermissions            :token-permissions
+   :muteTill                    :mute-till
+   :contractCommunities         :contract-communities
+   :banList                     :ban-list
+   :keyUid                      :key-uid
+   :memberRole                  :member-role
+   :introMessage                :intro-message
+   :contractFeaturedCommunities :contract-featured-communities
+   :canJoin                     :can-join?
+   :outroMessage                :outro-message
+   :resizeTarget                :resize-target})
+
 (defn rename-contract-community-key
   [k]
   (let [s                  (name k)
-        lower-cased        (csk/->kebab-case-string s)
         starts-with-digit? (re-matches #"^\d.*" s)
-        predicate?         (some #(string/starts-with? lower-cased %)
-                                 ["can-" "is-"])]
+        existing-rename    (k commmunity-keys-renamed)]
     (cond starts-with-digit? s
-          predicate?         (keyword (str lower-cased "?"))
-          :else              (keyword lower-cased))))
+          existing-rename    existing-rename
+          :else              (keyword s))))
 
 (defn rename-contract-community-keys
   [m]
@@ -43,4 +66,3 @@
                     :params     []
                     :on-success #(rf/dispatch [:fetched-contract-communities %])
                     :on-error   #(log/error "failed to fetch contract communities" %)}]})
-

src/status_im2/contexts/communities/discover/events_test.cljs

@@ -4,13 +4,9 @@
 
 (deftest rename-contract-community-key-test
   (are [i e] (= (events/rename-contract-community-key i) e)
-   :foo           :foo
-   :fooBar        :foo-bar
-   :fooBarBaz     :foo-bar-baz
-   :isFoo         :is-foo?
-   :isFooBar      :is-foo-bar?
-   :canFoo        :can-foo?
-   :canFooBar     :can-foo-bar?
+   :requestedAccessAt           :requested-access-at
+   :canDeleteMessageForEveryone :can-delete-message-for-everyone?
+   :name                        :name
    :0x025d27e58                 "0x025d27e58"
    :093b4684-92f0               "093b4684-92f0"
    :3f9e77b8-97c7               "3f9e77b8-97c7"))