This commit is contained in:
Roman Volosovskyi 2017-04-17 16:03:02 +03:00
parent 0e5b515f5e
commit 9737d0fb60

View File

@ -197,13 +197,13 @@
[{:keys [content] :as message}] [{:keys [content] :as message}]
[message-view message [message-view message
(let [parsed-text (parse-text content) (let [parsed-text (parse-text content)
simple-text? (= (count parsed-text) 2)] simple-text? (and (= (count parsed-text) 2)
(nil? (second parsed-text)))]
(if simple-text? (if simple-text?
[autolink {:style (st/text-message message) [autolink {:style (st/text-message message)
:text (apply str parsed-text) :text (apply str parsed-text)
:onPress #(browse %)}] :onPress #(browse %)}]
[text {:style (st/text-message message)} [text {:style (st/text-message message)} parsed-text]))])
(parse-text content)]))])
(defmulti message-content (fn [_ message _] (message :content-type))) (defmulti message-content (fn [_ message _] (message :content-type)))