chore: add accessiblity ids to message status views

Signed-off-by: Brian Sztamfater <brian@status.im>
This commit is contained in:
Brian Sztamfater 2023-02-08 12:32:48 -03:00
parent cc348fda99
commit 8cfc6ecb4f
No known key found for this signature in database
GPG Key ID: 59EB921E0706B48F
2 changed files with 21 additions and 16 deletions

View File

@ -7,7 +7,9 @@
(defn status (defn status
[outgoing-status] [outgoing-status]
[rn/view {:style style/status-container} [rn/view
{:accessibility-label :message-status
:style style/status-container}
[quo/icon [quo/icon
(if (= outgoing-status :delivered) (if (= outgoing-status :delivered)
:i/delivered :i/delivered

View File

@ -99,7 +99,10 @@
context (assoc context :on-long-press #(message-on-long-press message-data context)) context (assoc context :on-long-press #(message-on-long-press message-data context))
response-to (:response-to content)] response-to (:response-to content)]
[rn/touchable-highlight [rn/touchable-highlight
{:underlay-color (colors/theme-colors colors/neutral-5 colors/neutral-90) {:accessibility-label (if (and outgoing (= outgoing-status :sending))
:message-sending
:message-sent)
:underlay-color (colors/theme-colors colors/neutral-5 colors/neutral-90)
:style {:border-radius 16 :style {:border-radius 16
:opacity (if (and outgoing (= outgoing-status :sending)) 0.5 1)} :opacity (if (and outgoing (= outgoing-status :sending)) 0.5 1)}
:on-press (fn [] :on-press (fn []