[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
1 changed files with 3 additions and 3 deletions

View File

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