[fix 7380] bubble width on small devices

This commit is contained in:
yenda 2019-02-01 01:58:38 +01:00
parent b3416f5ad5
commit c58342d397
No known key found for this signature in database
GPG Key ID: 0095623C0069DCE6
1 changed files with 12 additions and 9 deletions

View File

@ -29,13 +29,11 @@
(let [align (if outgoing :flex-end :flex-start) (let [align (if outgoing :flex-end :flex-start)
direction (if outgoing :row-reverse :row)] direction (if outgoing :row-reverse :row)]
(merge {:flex-direction direction (merge {:flex-direction direction
:width 230
:padding-top (message-padding-top message) :padding-top (message-padding-top message)
:align-self align :align-self align
:align-items align} :align-items align}
(when display-photo? (when display-photo?
{:padding-right 8 {:padding-left 8}))))
:padding-left 8}))))
(def message-timestamp (def message-timestamp
{:font-size 10 {:font-size 10
@ -66,8 +64,11 @@
:font-size 12 :font-size 12
:color colors/text-gray}) :color colors/text-gray})
(defn group-message-wrapper [message] (defn group-message-wrapper [{:keys [outgoing] :as message}]
(merge {:flex-direction :column} (merge {:flex-direction :column}
(if outgoing
{:margin-left 64}
{:margin-right 64})
(last-message-padding message))) (last-message-padding message)))
(defn timestamp-content-wrapper [{:keys [outgoing]}] (defn timestamp-content-wrapper [{:keys [outgoing]}]
@ -76,11 +77,13 @@
(defn group-message-view (defn group-message-view
[outgoing message-type] [outgoing message-type]
(let [align (if outgoing :flex-end :flex-start)] (let [align (if outgoing :flex-end :flex-start)]
{:flex-direction :column (merge {:flex 1
:width 320 :flex-direction :column
:padding-left 8 :max-width 320
:padding-right 8 :align-items align}
:align-items align})) (if outgoing
{:margin-right 8}
{:margin-left 8}))))
(defn delivery-status [outgoing] (defn delivery-status [outgoing]
(if outgoing (if outgoing