From d4c8e48441ca8f81973d952163ee2cc5f472fedd Mon Sep 17 00:00:00 2001
From: Sean Hagstrom <sean@seanhagstrom.com>
Date: Tue, 12 Mar 2024 13:34:59 +0000
Subject: [PATCH] Add action to remove contact inside contact action menu
 (#19168)

* chore: add english translation for "Remove contact"

* feature: integrate remove-contact acton in contact-profile action menu
---
 .../profile/contact/actions/view.cljs         | 78 ++++++++++++-------
 translations/en.json                          |  1 +
 2 files changed, 52 insertions(+), 27 deletions(-)

diff --git a/src/status_im/contexts/profile/contact/actions/view.cljs b/src/status_im/contexts/profile/contact/actions/view.cljs
index 7d7c3a0f5b..ff0aaf8ab3 100644
--- a/src/status_im/contexts/profile/contact/actions/view.cljs
+++ b/src/status_im/contexts/profile/contact/actions/view.cljs
@@ -3,39 +3,57 @@
             [quo.core :as quo]
             [react-native.core :as rn]
             [status-im.common.not-implemented :as not-implemented]
+            [status-im.constants :as constants]
             [status-im.contexts.profile.contact.add-nickname.view :as add-nickname]
+            [status-im.contexts.profile.utils :as profile.utils]
             [utils.i18n :as i18n]
             [utils.re-frame :as rf]))
 
 (defn view
   []
-  (let [{:keys [nickname public-key]} (rf/sub [:contacts/current-contact])
-        on-add-nickname               (rn/use-callback #(rf/dispatch [:show-bottom-sheet
-                                                                      {:content
-                                                                       (fn [] [add-nickname/view])}]))
-        on-remove-nickname            (rn/use-callback
-                                       (fn []
-                                         (rf/dispatch [:hide-bottom-sheet])
-                                         (rf/dispatch [:toasts/upsert
-                                                       {:id   :remove-nickname
-                                                        :type :positive
-                                                        :text (i18n/label :t/nickname-removed)}])
-                                         (rf/dispatch [:contacts/update-nickname public-key ""]))
-                                       [public-key])
-        on-show-qr                    (rn/use-callback
-                                       (fn []
-                                         (rf/dispatch [:universal-links/generate-profile-url
-                                                       {:public-key public-key
-                                                        :on-success #(rf/dispatch [:open-modal
-                                                                                   :share-contact])}]))
-                                       [public-key])
-        has-nickname?                 (rn/use-memo (fn [] (not (string/blank? nickname))) [nickname])
-        on-share-profile              (rn/use-callback
-                                       (fn []
-                                         (rf/dispatch [:universal-links/generate-profile-url
-                                                       {:public-key public-key
-                                                        :on-success #(rn/sharing {:message %})}]))
-                                       [public-key])]
+  (let [{:keys [nickname
+                public-key
+                contact-request-state]
+         :as   contact}    (rf/sub [:contacts/current-contact])
+
+        full-name          (profile.utils/displayed-name contact)
+        on-add-nickname    (rn/use-callback #(rf/dispatch [:show-bottom-sheet
+                                                           {:content
+                                                            (fn [] [add-nickname/view])}]))
+        on-remove-nickname (rn/use-callback
+                            (fn []
+                              (rf/dispatch [:hide-bottom-sheet])
+                              (rf/dispatch [:toasts/upsert
+                                            {:id   :remove-nickname
+                                             :type :positive
+                                             :text (i18n/label :t/nickname-removed)}])
+                              (rf/dispatch [:contacts/update-nickname public-key ""]))
+                            [public-key])
+        on-show-qr         (rn/use-callback
+                            (fn []
+                              (rf/dispatch [:universal-links/generate-profile-url
+                                            {:public-key public-key
+                                             :on-success #(rf/dispatch [:open-modal
+                                                                        :share-contact])}]))
+                            [public-key])
+        has-nickname?      (rn/use-memo (fn [] (not (string/blank? nickname))) [nickname])
+        on-share-profile   (rn/use-callback
+                            (fn []
+                              (rf/dispatch [:universal-links/generate-profile-url
+                                            {:public-key public-key
+                                             :on-success #(rn/sharing {:message %})}]))
+                            [public-key])
+        on-remove-contact  (rn/use-callback
+                            (fn []
+                              (rf/dispatch [:hide-bottom-sheet])
+                              (rf/dispatch [:toasts/upsert
+                                            {:id   :remove-contact
+                                             :type :positive
+                                             :text (->> (i18n/label :t/removed-from-contacts)
+                                                        (string/lower-case)
+                                                        (str full-name " "))}])
+                              (rf/dispatch [:contact.ui/remove-contact-pressed contact]))
+                            [public-key full-name])]
     [quo/action-drawer
      [[{:icon                :i/edit
         :label               (if has-nickname?
@@ -64,6 +82,12 @@
         :accessibility-label :mark-untrustworthy
         :add-divider?        (when-not has-nickname? true)
         :danger?             true}
+       (when (= constants/contact-request-state-mutual contact-request-state)
+         {:icon                :i/remove-user
+          :label               (i18n/label :t/remove-contact)
+          :on-press            on-remove-contact
+          :accessibility-label :remove-contact
+          :danger?             true})
        {:icon                :i/block
         :label               (i18n/label :t/block-user)
         :on-press            not-implemented/alert
diff --git a/translations/en.json b/translations/en.json
index 94cbddd9e1..ca696d24f2 100644
--- a/translations/en.json
+++ b/translations/en.json
@@ -1224,6 +1224,7 @@
     "remove": "Remove",
     "remove-from-chat": "Remove from chat",
     "remove-from-contacts": "Remove from contacts",
+    "remove-contact": "Remove contact",
     "remove-from-contacts-text": "By removing a user from your contact list you do not hide your wallet address from them",
     "remove-network": "Remove network",
     "remove-token": "Remove token",