[FIX #1474] Fix copy/paste of coordinates, address, and map viewing

This commit is contained in:
angusiguess 2017-08-24 12:49:22 -03:00 committed by Roman Volosovskyi
parent 6fa9040def
commit 0df8dcad32

View File

@ -412,9 +412,9 @@
:on-long-press #(cond (= content-type text-content-type) :on-long-press #(cond (= content-type text-content-type)
(share content (label :t/message)) (share content (label :t/message))
(and (= content-type content-type-command) (= "location" (:content-command content))) (and (= content-type content-type-command) (= "location" (:content-command content)))
(let [params (str/split (get-in content [:params "address"]) #"&") (let [address (get-in content [:params :address])
latlong (rest params)] [location lat long] (str/split address #"&")]
(share-or-open-map (first params) (first latlong) (second latlong))))} (share-or-open-map location lat long)))}
[view [view
(let [incoming-group (and group-chat (not outgoing))] (let [incoming-group (and group-chat (not outgoing))]
[message-content message-body (merge message [message-content message-body (merge message