add view profile on long message press

Author: Ferossgp

src/status_im/ui/screens/chat/message/message.cljs

@@ -14,7 +14,7 @@
             [status-im.ui.components.react :as react]
             [status-im.utils.money :as money]
             [status-im.ethereum.transactions.core :as transactions]
-            [status-im.ui.screens.chat.message.sheets :as sheets]
+            [status-im.ui.screens.chat.sheets :as sheets]
             [status-im.ui.screens.chat.photos :as photos]
             [status-im.ui.screens.chat.styles.message.message :as style]
             [status-im.ui.screens.chat.utils :as chat.utils]

src/status_im/ui/screens/chat/message/sheets.cljs

@@ -9,6 +9,7 @@
             [status-im.ui.components.colors :as colors]
             [status-im.utils.platform :as platform]
             [status-im.ui.components.chat-icon.screen :as chat-icon.screen]
+            [status-im.ui.screens.chat.styles.message.sheets :as sheets.styles]
             [status-im.ui.components.list-item.views :as list-item])
   (:require-macros [status-im.utils.views :refer [defview letsubs]]))
 
@@ -89,7 +90,8 @@
        :icon     :main-icons/delete
        :on-press #(hide-sheet-and-dispatch [:chat.ui/remove-chat-pressed chat-id])}]]))
 
-(defn group-chat-actions [{:keys [chat-id contact group-chat chat-name color online]}]
+(defn group-chat-actions
+  [{:keys [chat-id contact group-chat chat-name color online]}]
   [react/view
    [list-item/list-item
     {:theme       :action
@@ -124,3 +126,55 @@
     public?    [public-chat-actions current-chat]
     group-chat [group-chat-actions current-chat]
     :else      [chat-actions current-chat]))
+
+
+(defn options [chat-id message-id]
+  (fn []
+    [react/view
+     [react/i18n-text {:style sheets.styles/sheet-text :key :message-not-sent}]
+     [list-item/list-item
+      {:theme               :action
+       :title               :t/resend-message
+       :icon                :main-icons/refresh
+       :accessibility-label :resend-message-button
+       :on-press            #(hide-sheet-and-dispatch [:chat.ui/resend-message chat-id message-id])}]
+     [list-item/list-item
+      {:theme               :action-destructive
+       :title               :t/delete-message
+       :icon                :main-icons/delete
+       :accessibility-label :delete-transaction-button
+       :on-press            #(hide-sheet-and-dispatch [:chat.ui/delete-message chat-id message-id])}]]))
+
+(defn message-long-press [{:keys [message-id content identicon from] :as message}]
+  (fn []
+    (let [{:keys [ens-name alias]} @(re-frame/subscribe [:contacts/contact-name-by-identity from])]
+     [react/view
+      [list-item/list-item
+       {:theme               :action
+        :icon                (multiaccounts/displayed-photo {:identicon  identicon
+                                                             :public-key from})
+        :title               [view-profile {:name   (or ens-name alias)
+                                            :helper :t/view-profile}]
+        :accessibility-label :view-chat-details-button
+        :accessories         [:chevron]
+        :on-press            #(hide-sheet-and-dispatch  [:chat.ui/show-profile from])}]
+      [list-item/list-item
+       {:theme    :action
+        :title    :t/message-reply
+        :icon     :main-icons/reply
+        :on-press #(hide-sheet-and-dispatch [:chat.ui/reply-to-message message-id])}]
+      [list-item/list-item
+       {:theme    :action
+        :title    :t/sharing-copy-to-clipboard
+        :icon     :main-icons/copy
+        :on-press (fn []
+                    (re-frame/dispatch [:bottom-sheet/hide-sheet])
+                    (react/copy-to-clipboard (:text content)))}]
+      (when-not platform/desktop?
+        [list-item/list-item
+         {:theme    :action
+          :title    :t/sharing-share
+          :icon     :main-icons/share
+          :on-press (fn []
+                      (re-frame/dispatch [:bottom-sheet/hide-sheet])
+                      (list-selection/open-share {:message (:text content)}))}])])))