fix keyword renaming performance (#17291)

VERSION

@@ -1 +1 @@
-1.24.0
+1.25.0

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,16 +4,12 @@
 
 (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?
-   :0x025d27e58   "0x025d27e58"
-   :093b4684-92f0 "093b4684-92f0"
-   :3f9e77b8-97c7 "3f9e77b8-97c7"))
+   :requestedAccessAt           :requested-access-at
+   :canDeleteMessageForEveryone :can-delete-message-for-everyone?
+   :name                        :name
+   :0x025d27e58                 "0x025d27e58"
+   :093b4684-92f0               "093b4684-92f0"
+   :3f9e77b8-97c7               "3f9e77b8-97c7"))
 
 (deftest rename-contract-community-keys-test
   (are [i e] (= (events/rename-contract-community-keys i) e)

status-go-version.json

@@ -3,7 +3,7 @@
     "_comment": "Instead use: scripts/update-status-go.sh <rev>",
     "owner": "status-im",
     "repo": "status-go",
-    "version": "v0.166.8",
-    "commit-sha1": "eda1f5482b371ffa72c1ee87f77a229546d9c842",
-    "src-sha256": "16b4wkph3kqngxlfwwsvssmlyvyikvbmg87vw32gpg7yqrf36xyl"
+    "version": "v0.166.9+hotfix.1",
+    "commit-sha1": "7e9ceea743bf1766c1eb40024342d92a0e93ad9e",
+    "src-sha256": "0zj1f2pmjfk4nhdlbm3b6k2xx6n5rd1lqvfmca77cnf6jl2cg5qd"
 }