parent
b522302ee8
commit
72550083f9
|
@ -148,19 +148,19 @@
|
||||||
(let [msgs @messages
|
(let [msgs @messages
|
||||||
;_ (log/debug "messages=" msgs)
|
;_ (log/debug "messages=" msgs)
|
||||||
;; temp to show first status
|
;; temp to show first status
|
||||||
msgs-clj (assoc (js->clj msgs) "-1"
|
;; msgs-clj (assoc (js->clj msgs) "-1"
|
||||||
{:msg-id "-1"
|
;; {:msg-id "-1"
|
||||||
:content (str "The brash businessman’s braggadocio "
|
;; :content (str "The brash businessman’s braggadocio "
|
||||||
"and public exchange with candidates "
|
;; "and public exchange with candidates "
|
||||||
"in the US presidential election")
|
;; "in the US presidential election")
|
||||||
:delivery-status "seen"
|
;; :delivery-status "seen"
|
||||||
:from "Status"
|
;; :from "Status"
|
||||||
:chat-id "-"
|
;; :chat-id "-"
|
||||||
:content-type content-type-status
|
;; :content-type content-type-status
|
||||||
:timestamp 1
|
;; :timestamp 1
|
||||||
:outgoing false
|
;; :outgoing false
|
||||||
:to nil})
|
;; :to nil})
|
||||||
msgs (clj->js msgs-clj)
|
;; msgs (clj->js msgs-clj)
|
||||||
;; end temp
|
;; end temp
|
||||||
datasource (to-realm-datasource msgs)
|
datasource (to-realm-datasource msgs)
|
||||||
contacts (:contacts @chat)
|
contacts (:contacts @chat)
|
||||||
|
|
Loading…
Reference in New Issue