michaelr
parent
cf4d2e45f5
commit
00c5019dc4
|
|
@ -1,207 +0,0 @@
|
||||||
(ns messenger.android.chat
|
|
||||||
(:require-macros
|
|
||||||
[natal-shell.components :refer [view text image touchable-highlight list-view
|
|
||||||
text-input toolbar-android]]
|
|
||||||
[natal-shell.data-source :refer [data-source clone-with-rows]]
|
|
||||||
[natal-shell.core :refer [with-error-view]]
|
|
||||||
[natal-shell.alert :refer [alert]])
|
|
||||||
(:require [om.next :as om :refer-macros [defui]]
|
|
||||||
[re-natal.support :as sup]
|
|
||||||
[messenger.state :as state]
|
|
||||||
[messenger.utils.resources :as res]
|
|
||||||
[messenger.components.invertible-scroll-view :refer [invertible-scroll-view]]))
|
|
||||||
|
|
||||||
(defn nav-pop [nav]
|
|
||||||
(binding [state/*nav-render* false]
|
|
||||||
(.pop nav)))
|
|
||||||
|
|
||||||
(defui Message
|
|
||||||
static om/Ident
|
|
||||||
(ident [this {:keys [id]}]
|
|
||||||
[:message/by-id id])
|
|
||||||
static om/IQuery
|
|
||||||
(query [this]
|
|
||||||
'[:id :type :body :outgoing :delivery-status :date :new-day])
|
|
||||||
Object
|
|
||||||
(render
|
|
||||||
[this]
|
|
||||||
(let [{:keys [id body outgoing delivery-status date new-day] :as props}
|
|
||||||
(om/props this)
|
|
||||||
type (keyword (:type props))]
|
|
||||||
(view {:paddingHorizontal 15}
|
|
||||||
;;; date
|
|
||||||
(when new-day
|
|
||||||
(text {:style {:marginVertical 10
|
|
||||||
:fontFamily "Avenir-Roman"
|
|
||||||
:fontSize 11
|
|
||||||
:color "#AAB2B2"
|
|
||||||
:letterSpacing 1
|
|
||||||
:lineHeight 15
|
|
||||||
:textAlign "center"
|
|
||||||
:opacity 0.8}}
|
|
||||||
date))
|
|
||||||
;;; body
|
|
||||||
(view {:style (merge {:flexDirection "column"
|
|
||||||
:width 260
|
|
||||||
:marginVertical 5}
|
|
||||||
(if outgoing
|
|
||||||
{:alignSelf "flex-end"
|
|
||||||
:alignItems "flex-end"}
|
|
||||||
{:alignSelf "flex-start"
|
|
||||||
:alignItems "flex-start"}))}
|
|
||||||
(view {:style (merge {:borderRadius 6}
|
|
||||||
(if (= type :text)
|
|
||||||
{:paddingVertical 12
|
|
||||||
:paddingHorizontal 16}
|
|
||||||
{:paddingVertical 14
|
|
||||||
:paddingHorizontal 10})
|
|
||||||
(if outgoing
|
|
||||||
{:backgroundColor "#D3EEEF"}
|
|
||||||
{:backgroundColor "#FBF6E3"}))}
|
|
||||||
(if (= type :text)
|
|
||||||
(text {:style {:fontSize 14
|
|
||||||
:fontFamily "Avenir-Roman"
|
|
||||||
:color "#4A5258"}}
|
|
||||||
body)
|
|
||||||
;;; audio
|
|
||||||
(view {:style {:flexDirection "row"
|
|
||||||
:alignItems "center"}}
|
|
||||||
(view {:style {:width 33
|
|
||||||
:height 33
|
|
||||||
:borderRadius 50
|
|
||||||
:elevation 1}}
|
|
||||||
(image {:source res/play
|
|
||||||
:style {:width 33
|
|
||||||
:height 33}}))
|
|
||||||
(view {:style {:marginTop 10
|
|
||||||
:marginLeft 10
|
|
||||||
:width 120
|
|
||||||
:height 26
|
|
||||||
:elevation 1}}
|
|
||||||
(view {:style {:position "absolute"
|
|
||||||
:top 4
|
|
||||||
:width 120
|
|
||||||
:height 2
|
|
||||||
:backgroundColor "#EC7262"}})
|
|
||||||
(view {:style {:position "absolute"
|
|
||||||
:left 0
|
|
||||||
:top 0
|
|
||||||
:width 2
|
|
||||||
:height 10
|
|
||||||
:backgroundColor "#4A5258"}})
|
|
||||||
(text {:style {:position "absolute"
|
|
||||||
:left 1
|
|
||||||
:top 11
|
|
||||||
:fontFamily "Avenir-Roman"
|
|
||||||
:fontSize 11
|
|
||||||
:color "#4A5258"
|
|
||||||
:letterSpacing 1
|
|
||||||
:lineHeight 15}}
|
|
||||||
"03:39")))))
|
|
||||||
;;; delivery status
|
|
||||||
(when (and outgoing delivery-status)
|
|
||||||
(view {:style {:flexDirection "row"
|
|
||||||
:marginTop 2}}
|
|
||||||
(image {:source (if (= (keyword delivery-status) :seen)
|
|
||||||
res/seen-icon
|
|
||||||
res/delivered-icon)
|
|
||||||
:style {:marginTop 6
|
|
||||||
:opacity 0.6}})
|
|
||||||
(text {:style {:fontFamily "Avenir-Roman"
|
|
||||||
:fontSize 11
|
|
||||||
:color "#AAB2B2"
|
|
||||||
:opacity 0.8
|
|
||||||
:marginLeft 5}}
|
|
||||||
(if (= (keyword delivery-status) :seen)
|
|
||||||
"Seen"
|
|
||||||
"Delivered")))))))))
|
|
||||||
|
|
||||||
(def message (om/factory Message {:keyfn :id}))
|
|
||||||
|
|
||||||
(defn render-row [row section-id row-id]
|
|
||||||
(message (js->clj row :keywordize-keys true)))
|
|
||||||
|
|
||||||
(defn generate-message [n]
|
|
||||||
{:id n
|
|
||||||
:type (if (= (rem n 4) 3)
|
|
||||||
:audio
|
|
||||||
:text)
|
|
||||||
:body (if (= (rem n 3) 0)
|
|
||||||
(apply str n "." (repeat 5 " This is a text."))
|
|
||||||
(str n ". This is a text."))
|
|
||||||
:outgoing (< (rand) 0.5)
|
|
||||||
:delivery-status (if (< (rand) 0.5) :delivered :seen)
|
|
||||||
:date "TODAY"
|
|
||||||
:new-day (= (rem n 3) 0)})
|
|
||||||
|
|
||||||
(defn generate-messages [n]
|
|
||||||
(map generate-message (range 1 (inc n))))
|
|
||||||
|
|
||||||
(defn load-messages []
|
|
||||||
(clone-with-rows (data-source {:rowHasChanged (fn [row1 row2]
|
|
||||||
(not= row1 row2))})
|
|
||||||
(vec (generate-messages 100))))
|
|
||||||
|
|
||||||
(defui NewMessage
|
|
||||||
Object
|
|
||||||
(render
|
|
||||||
[this]
|
|
||||||
(view {:style {:flexDirection "row"
|
|
||||||
:margin 10
|
|
||||||
:height 40
|
|
||||||
:backgroundColor "#E5F5F6"
|
|
||||||
:borderRadius 5}}
|
|
||||||
(image {:source res/mic
|
|
||||||
:style {:marginTop 11
|
|
||||||
:marginLeft 14
|
|
||||||
:width 13
|
|
||||||
:height 20}})
|
|
||||||
(text-input {:underlineColorAndroid "#9CBFC0"
|
|
||||||
:style {:flex 1
|
|
||||||
:marginLeft 18
|
|
||||||
:lineHeight 42
|
|
||||||
:fontSize 14
|
|
||||||
:fontFamily "Avenir-Roman"
|
|
||||||
:color "#9CBFC0"}}
|
|
||||||
"Your message")
|
|
||||||
(image {:source res/smile
|
|
||||||
:style {:marginTop 11
|
|
||||||
:marginRight 12
|
|
||||||
:width 18
|
|
||||||
:height 18}})
|
|
||||||
(image {:source res/att
|
|
||||||
:style {:marginTop 14
|
|
||||||
:marginRight 16
|
|
||||||
:width 17
|
|
||||||
:height 14}}))))
|
|
||||||
|
|
||||||
(def new-message (om/factory NewMessage))
|
|
||||||
|
|
||||||
(defui Chat
|
|
||||||
Object
|
|
||||||
(render
|
|
||||||
[this]
|
|
||||||
(let [{:keys [nav]} (om/get-computed this)
|
|
||||||
messages-ds (load-messages)]
|
|
||||||
(view {:style {:flex 1
|
|
||||||
:backgroundColor "white"}}
|
|
||||||
(toolbar-android {:logo res/logo-icon
|
|
||||||
:title "Chat name"
|
|
||||||
:titleColor "#4A5258"
|
|
||||||
:subtitle "Last seen just now"
|
|
||||||
:subtitleColor "#AAB2B2"
|
|
||||||
:navIcon res/nav-back-icon
|
|
||||||
:style {:backgroundColor "white"
|
|
||||||
:height 56
|
|
||||||
:elevation 2}
|
|
||||||
:onIconClicked (fn []
|
|
||||||
(nav-pop nav))})
|
|
||||||
(list-view {:dataSource messages-ds
|
|
||||||
:renderScrollComponent
|
|
||||||
(fn [props]
|
|
||||||
(invertible-scroll-view nil))
|
|
||||||
:renderRow render-row
|
|
||||||
:style {:backgroundColor "white"}})
|
|
||||||
(new-message)))))
|
|
||||||
|
|
||||||
(def chat (om/factory Chat))
|
|
||||||
|
|
@ -9,7 +9,7 @@
|
||||||
[messenger.utils.utils :refer [log toast http-post]]
|
[messenger.utils.utils :refer [log toast http-post]]
|
||||||
[messenger.utils.resources :as res]
|
[messenger.utils.resources :as res]
|
||||||
[messenger.comm.intercom :as intercom]
|
[messenger.comm.intercom :as intercom]
|
||||||
[messenger.android.chat :refer [chat]]))
|
[messenger.components.chat.chat :refer [chat]]))
|
||||||
|
|
||||||
(def fake-contacts? true)
|
(def fake-contacts? true)
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -12,7 +12,6 @@
|
||||||
[messenger.utils.utils :refer [log toast]]
|
[messenger.utils.utils :refer [log toast]]
|
||||||
[messenger.android.login :refer [login]]
|
[messenger.android.login :refer [login]]
|
||||||
[messenger.android.contacts-list :refer [contacts-list]]
|
[messenger.android.contacts-list :refer [contacts-list]]
|
||||||
[messenger.android.chat :refer [chat]]
|
|
||||||
[messenger.comm.pubsub :as pubsub]
|
[messenger.comm.pubsub :as pubsub]
|
||||||
[messenger.comm.intercom :as intercom :refer [load-user-phone-number]]
|
[messenger.comm.intercom :as intercom :refer [load-user-phone-number]]
|
||||||
[messenger.protocol.protocol-handler :refer [make-handler]]
|
[messenger.protocol.protocol-handler :refer [make-handler]]
|
||||||
|
|
|
||||||
|
|
@ -0,0 +1,68 @@
|
||||||
|
(ns messenger.components.chat.chat
|
||||||
|
(:require-macros
|
||||||
|
[natal-shell.components :refer [view list-view toolbar-android]]
|
||||||
|
[natal-shell.data-source :refer [data-source clone-with-rows]])
|
||||||
|
(:require [om.next :as om :refer-macros [defui]]
|
||||||
|
[messenger.utils.resources :as res]
|
||||||
|
[messenger.components.invertible-scroll-view :refer [invertible-scroll-view]]
|
||||||
|
[messenger.components.chat.message :refer [message]]
|
||||||
|
[messenger.components.chat.new-message :refer [new-message]]
|
||||||
|
[messenger.state :as state]))
|
||||||
|
|
||||||
|
(defn generate-message [n]
|
||||||
|
{:id n
|
||||||
|
:type (if (= (rem n 4) 3)
|
||||||
|
:audio
|
||||||
|
:text)
|
||||||
|
:body (if (= (rem n 3) 0)
|
||||||
|
(apply str n "." (repeat 5 " This is a text."))
|
||||||
|
(str n ". This is a text."))
|
||||||
|
:outgoing (< (rand) 0.5)
|
||||||
|
:delivery-status (if (< (rand) 0.5) :delivered :seen)
|
||||||
|
:date "TODAY"
|
||||||
|
:new-day (= (rem n 3) 0)})
|
||||||
|
|
||||||
|
(defn generate-messages [n]
|
||||||
|
(map generate-message (range 1 (inc n))))
|
||||||
|
|
||||||
|
(defn load-messages []
|
||||||
|
(clone-with-rows (data-source {:rowHasChanged (fn [row1 row2]
|
||||||
|
(not= row1 row2))})
|
||||||
|
(vec (generate-messages 100))))
|
||||||
|
|
||||||
|
(defn nav-pop [nav]
|
||||||
|
(binding [state/*nav-render* false]
|
||||||
|
(.pop nav)))
|
||||||
|
|
||||||
|
(defn render-row [row section-id row-id]
|
||||||
|
(message (js->clj row :keywordize-keys true)))
|
||||||
|
|
||||||
|
(defui Chat
|
||||||
|
Object
|
||||||
|
(render
|
||||||
|
[this]
|
||||||
|
(let [{:keys [nav]} (om/get-computed this)
|
||||||
|
messages-ds (load-messages)]
|
||||||
|
(view {:style {:flex 1
|
||||||
|
:backgroundColor "white"}}
|
||||||
|
(toolbar-android {:logo res/logo-icon
|
||||||
|
:title "Chat name"
|
||||||
|
:titleColor "#4A5258"
|
||||||
|
:subtitle "Last seen just now"
|
||||||
|
:subtitleColor "#AAB2B2"
|
||||||
|
:navIcon res/nav-back-icon
|
||||||
|
:style {:backgroundColor "white"
|
||||||
|
:height 56
|
||||||
|
:elevation 2}
|
||||||
|
:onIconClicked (fn []
|
||||||
|
(nav-pop nav))})
|
||||||
|
(list-view {:dataSource messages-ds
|
||||||
|
:renderScrollComponent
|
||||||
|
(fn [props]
|
||||||
|
(invertible-scroll-view nil))
|
||||||
|
:renderRow render-row
|
||||||
|
:style {:backgroundColor "white"}})
|
||||||
|
(new-message)))))
|
||||||
|
|
||||||
|
(def chat (om/factory Chat))
|
||||||
|
|
||||||
|
|
@ -0,0 +1,108 @@
|
||||||
|
(ns messenger.components.chat.message
|
||||||
|
(:require-macros
|
||||||
|
[natal-shell.components :refer [view text image]])
|
||||||
|
(:require [om.next :as om :refer-macros [defui]]
|
||||||
|
[messenger.utils.resources :as res]))
|
||||||
|
|
||||||
|
(defui Message
|
||||||
|
static om/Ident
|
||||||
|
(ident [this {:keys [id]}]
|
||||||
|
[:message/by-id id])
|
||||||
|
static om/IQuery
|
||||||
|
(query [this]
|
||||||
|
'[:id :type :body :outgoing :delivery-status :date :new-day])
|
||||||
|
Object
|
||||||
|
(render
|
||||||
|
[this]
|
||||||
|
(let [{:keys [id body outgoing delivery-status date new-day] :as props}
|
||||||
|
(om/props this)
|
||||||
|
type (keyword (:type props))]
|
||||||
|
(view {:paddingHorizontal 15}
|
||||||
|
;;; date
|
||||||
|
(when new-day
|
||||||
|
(text {:style {:marginVertical 10
|
||||||
|
:fontFamily "Avenir-Roman"
|
||||||
|
:fontSize 11
|
||||||
|
:color "#AAB2B2"
|
||||||
|
:letterSpacing 1
|
||||||
|
:lineHeight 15
|
||||||
|
:textAlign "center"
|
||||||
|
:opacity 0.8}}
|
||||||
|
date))
|
||||||
|
;;; body
|
||||||
|
(view {:style (merge {:flexDirection "column"
|
||||||
|
:width 260
|
||||||
|
:marginVertical 5}
|
||||||
|
(if outgoing
|
||||||
|
{:alignSelf "flex-end"
|
||||||
|
:alignItems "flex-end"}
|
||||||
|
{:alignSelf "flex-start"
|
||||||
|
:alignItems "flex-start"}))}
|
||||||
|
(view {:style (merge {:borderRadius 6}
|
||||||
|
(if (= type :text)
|
||||||
|
{:paddingVertical 12
|
||||||
|
:paddingHorizontal 16}
|
||||||
|
{:paddingVertical 14
|
||||||
|
:paddingHorizontal 10})
|
||||||
|
(if outgoing
|
||||||
|
{:backgroundColor "#D3EEEF"}
|
||||||
|
{:backgroundColor "#FBF6E3"}))}
|
||||||
|
(if (= type :text)
|
||||||
|
(text {:style {:fontSize 14
|
||||||
|
:fontFamily "Avenir-Roman"
|
||||||
|
:color "#4A5258"}}
|
||||||
|
body)
|
||||||
|
;;; audio
|
||||||
|
(view {:style {:flexDirection "row"
|
||||||
|
:alignItems "center"}}
|
||||||
|
(view {:style {:width 33
|
||||||
|
:height 33
|
||||||
|
:borderRadius 50
|
||||||
|
:elevation 1}}
|
||||||
|
(image {:source res/play
|
||||||
|
:style {:width 33
|
||||||
|
:height 33}}))
|
||||||
|
(view {:style {:marginTop 10
|
||||||
|
:marginLeft 10
|
||||||
|
:width 120
|
||||||
|
:height 26
|
||||||
|
:elevation 1}}
|
||||||
|
(view {:style {:position "absolute"
|
||||||
|
:top 4
|
||||||
|
:width 120
|
||||||
|
:height 2
|
||||||
|
:backgroundColor "#EC7262"}})
|
||||||
|
(view {:style {:position "absolute"
|
||||||
|
:left 0
|
||||||
|
:top 0
|
||||||
|
:width 2
|
||||||
|
:height 10
|
||||||
|
:backgroundColor "#4A5258"}})
|
||||||
|
(text {:style {:position "absolute"
|
||||||
|
:left 1
|
||||||
|
:top 11
|
||||||
|
:fontFamily "Avenir-Roman"
|
||||||
|
:fontSize 11
|
||||||
|
:color "#4A5258"
|
||||||
|
:letterSpacing 1
|
||||||
|
:lineHeight 15}}
|
||||||
|
"03:39")))))
|
||||||
|
;;; delivery status
|
||||||
|
(when (and outgoing delivery-status)
|
||||||
|
(view {:style {:flexDirection "row"
|
||||||
|
:marginTop 2}}
|
||||||
|
(image {:source (if (= (keyword delivery-status) :seen)
|
||||||
|
res/seen-icon
|
||||||
|
res/delivered-icon)
|
||||||
|
:style {:marginTop 6
|
||||||
|
:opacity 0.6}})
|
||||||
|
(text {:style {:fontFamily "Avenir-Roman"
|
||||||
|
:fontSize 11
|
||||||
|
:color "#AAB2B2"
|
||||||
|
:opacity 0.8
|
||||||
|
:marginLeft 5}}
|
||||||
|
(if (= (keyword delivery-status) :seen)
|
||||||
|
"Seen"
|
||||||
|
"Delivered")))))))))
|
||||||
|
|
||||||
|
(def message (om/factory Message {:keyfn :id}))
|
||||||
|
|
@ -0,0 +1,40 @@
|
||||||
|
(ns messenger.components.chat.new-message
|
||||||
|
(:require-macros
|
||||||
|
[natal-shell.components :refer [view image text-input]])
|
||||||
|
(:require [om.next :as om :refer-macros [defui]]
|
||||||
|
[messenger.utils.resources :as res]))
|
||||||
|
|
||||||
|
(defui NewMessage
|
||||||
|
Object
|
||||||
|
(render
|
||||||
|
[this]
|
||||||
|
(view {:style {:flexDirection "row"
|
||||||
|
:margin 10
|
||||||
|
:height 40
|
||||||
|
:backgroundColor "#E5F5F6"
|
||||||
|
:borderRadius 5}}
|
||||||
|
(image {:source res/mic
|
||||||
|
:style {:marginTop 11
|
||||||
|
:marginLeft 14
|
||||||
|
:width 13
|
||||||
|
:height 20}})
|
||||||
|
(text-input {:underlineColorAndroid "#9CBFC0"
|
||||||
|
:style {:flex 1
|
||||||
|
:marginLeft 18
|
||||||
|
:lineHeight 42
|
||||||
|
:fontSize 14
|
||||||
|
:fontFamily "Avenir-Roman"
|
||||||
|
:color "#9CBFC0"}}
|
||||||
|
"Your message")
|
||||||
|
(image {:source res/smile
|
||||||
|
:style {:marginTop 11
|
||||||
|
:marginRight 12
|
||||||
|
:width 18
|
||||||
|
:height 18}})
|
||||||
|
(image {:source res/att
|
||||||
|
:style {:marginTop 14
|
||||||
|
:marginRight 16
|
||||||
|
:width 17
|
||||||
|
:height 14}}))))
|
||||||
|
|
||||||
|
(def new-message (om/factory NewMessage))
|
||||||
Loading…
Reference in New Issue