✨ Send only necessary data on profile update

backend/src/app/rpc/commands/profile.clj

@@ -110,7 +110,6 @@
    ::sm/params schema:update-profile
    ::sm/result schema:profile}
   [{:keys [::db/pool] :as cfg} {:keys [::rpc/profile-id fullname lang theme] :as params}]
-
   (db/with-atomic [conn pool]
     ;; NOTE: we need to retrieve the profile independently if we use
     ;; it or not for explicit locking and avoid concurrent updates of

frontend/src/app/main/data/users.cljs

@@ -343,9 +343,9 @@
     (watch [_ state _]
       (let [on-success (:on-success opts identity)
             on-error   (:on-error opts rx/throw)
-            profile    (:profile state)]
-
-        (->> (rp/cmd! :update-profile (dissoc profile :props))
+            profile    (:profile state)
+            params     (select-keys profile [:fullname :lang :theme])]
+        (->> (rp/cmd! :update-profile params)
              (rx/tap on-success)
              (rx/catch on-error))))))