Return status view

Former-commit-id: b4c9c72481
This commit is contained in:
virvar 2016-04-25 12:05:54 +03:00
parent 989d4610f2
commit cc8d92193a
1 changed files with 13 additions and 13 deletions

View File

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