Merge with master

Former-commit-id: 49a5b82a8c
This commit is contained in:
virvar 2016-04-08 12:40:51 +03:00
commit 449ac4fc2d
7 changed files with 115 additions and 35 deletions

View File

@ -18,13 +18,26 @@
[syng-im.components.chat.chat-message-new :refer [chat-message-new]])) [syng-im.components.chat.chat-message-new :refer [chat-message-new]]))
(defn contacts-by-identity [contacts]
(->> contacts
(map (fn [{:keys [identity] :as contact}]
[identity contact]))
(into {})))
(defn add-msg-color [{:keys [from] :as msg} contact-by-identity]
(let [{:keys [text-color background-color]} (get contact-by-identity from)]
(assoc msg :text-color text-color
:background-color background-color)))
(defn chat [{:keys [navigator]}] (defn chat [{:keys [navigator]}]
(let [messages (subscribe [:get-chat-messages]) (let [messages (subscribe [:get-chat-messages])
chat (subscribe [:get-current-chat])] chat (subscribe [:get-current-chat])]
(fn [] (fn []
(let [msgs @messages (let [msgs @messages
_ (log/debug "messages=" msgs) ;_ (log/debug "messages=" msgs)
datasource (to-realm-datasource msgs)] datasource (to-realm-datasource msgs)
contacts (:contacts @chat)
contact-by-identity (contacts-by-identity contacts)]
[view {:style {:flex 1 [view {:style {:flex 1
:backgroundColor "#eef2f5"}} :backgroundColor "#eef2f5"}}
(when android? (when android?
@ -45,6 +58,8 @@
:renderScrollComponent (fn [props] :renderScrollComponent (fn [props]
(invertible-scroll-view nil)) (invertible-scroll-view nil))
:renderRow (fn [row section-id row-id] :renderRow (fn [row section-id row-id]
(r/as-element [chat-message (js->clj row :keywordize-keys true)])) (let [msg (-> (js->clj row :keywordize-keys true)
(add-msg-color contact-by-identity))]
(r/as-element [chat-message msg])))
:style {:backgroundColor "white"}}] :style {:backgroundColor "white"}}]
[chat-message-new]])))) [chat-message-new]]))))

View File

@ -81,7 +81,7 @@
:marginHorizontal 0 :marginHorizontal 0
:fontSize 14 :fontSize 14
:fontFamily "Avenir-Roman" :fontFamily "Avenir-Roman"
:color "black"}} :color "black"}}
;; TODO isn't smart ;; TODO isn't smart
(if (= (:command command) :keypair-password) (if (= (:command command) :keypair-password)
"******" "******"
@ -90,7 +90,7 @@
(defn set-chat-command [command] (defn set-chat-command [command]
(dispatch [:set-chat-command (:command command)])) (dispatch [:set-chat-command (:command command)]))
(defn message-content-command-request [content outgoing] (defn message-content-command-request [content outgoing text-color background-color]
(let [{:keys [command content]} (commands/parse-command-request-msg-content content)] (let [{:keys [command content]} (commands/parse-command-request-msg-content content)]
[view {:style {:marginTop 10}} [view {:style {:marginTop 10}}
[view {:style (merge {:borderRadius 6 [view {:style (merge {:borderRadius 6
@ -98,10 +98,12 @@
:paddingHorizontal 16} :paddingHorizontal 16}
(if outgoing (if outgoing
{:backgroundColor "#D3EEEF"} {:backgroundColor "#D3EEEF"}
{:backgroundColor "#FBF6E3"}))} {:backgroundColor background-color}))}
[text {:style {:fontSize 14 [text {:style (merge {:fontSize 14
:fontFamily "Avenir-Roman" :fontFamily "Avenir-Roman"}
:color "#4A5258"}} (if outgoing
{:color "#4A5258"}
{:color text-color}))}
content]] content]]
[touchable-highlight {:style {:position "absolute" [touchable-highlight {:style {:position "absolute"
:top -15 :top -15
@ -119,9 +121,9 @@
:top 8 :top 8
:left 6}}]]]])) :left 6}}]]]]))
(defn message-content [{:keys [content-type content outgoing]}] (defn message-content [{:keys [content-type content outgoing text-color background-color]}]
(if (= content-type content-type-command-request) (if (= content-type content-type-command-request)
[message-content-command-request content outgoing] [message-content-command-request content outgoing text-color background-color]
[view {:style (merge {:borderRadius 6} [view {:style (merge {:borderRadius 6}
(if (= content-type text-content-type) (if (= content-type text-content-type)
{:paddingVertical 12 {:paddingVertical 12
@ -130,12 +132,14 @@
:paddingHorizontal 10}) :paddingHorizontal 10})
(if outgoing (if outgoing
{:backgroundColor "#D3EEEF"} {:backgroundColor "#D3EEEF"}
{:backgroundColor "#FBF6E3"}))} {:backgroundColor background-color}))}
(cond (cond
(= content-type text-content-type) (= content-type text-content-type)
[text {:style {:fontSize 14 [text {:style (merge {:fontSize 14
:fontFamily "Avenir-Roman" :fontFamily "Avenir-Roman"}
:color "#4A5258"}} (if outgoing
{:color "#4A5258"}
{:color text-color}))}
content] content]
(= content-type content-type-command) (= content-type content-type-command)
[message-content-command content] [message-content-command content]
@ -161,7 +165,7 @@
:seen "Seen" :seen "Seen"
:failed "Failed")]]) :failed "Failed")]])
(defn message-body [{:keys [msg-id content content-type outgoing delivery-status]}] (defn message-body [{:keys [msg-id content content-type outgoing delivery-status text-color background-color]}]
[view {:style (merge {:flexDirection "column" [view {:style (merge {:flexDirection "column"
:width 260 :width 260
:marginVertical 5} :marginVertical 5}
@ -170,18 +174,22 @@
:alignItems "flex-end"} :alignItems "flex-end"}
{:alignSelf "flex-start" {:alignSelf "flex-start"
:alignItems "flex-start"}))} :alignItems "flex-start"}))}
[message-content {:content-type content-type [message-content {:content-type content-type
:content content :content content
:outgoing outgoing}] :outgoing outgoing
:text-color text-color
:background-color background-color}]
(when (and outgoing delivery-status) (when (and outgoing delivery-status)
[message-delivery-status {:delivery-status delivery-status}])]) [message-delivery-status {:delivery-status delivery-status}])])
(defn chat-message [{:keys [msg-id content content-type outgoing delivery-status date new-day] :as msg}] (defn chat-message [{:keys [msg-id content content-type outgoing delivery-status date new-day text-color background-color] :as msg}]
[view {:paddingHorizontal 15} [view {:paddingHorizontal 15}
(when new-day (when new-day
[message-date {:date date}]) [message-date {:date date}])
[message-body {:msg-id msg-id [message-body {:msg-id msg-id
:content content :content content
:content-type content-type :content-type content-type
:outgoing outgoing :outgoing outgoing
:delivery-status (keyword delivery-status)}]]) :text-color text-color
:background-color background-color
:delivery-status (keyword delivery-status)}]])

View File

@ -20,6 +20,11 @@
(defn list-item [component] (defn list-item [component]
(r/as-element component)) (r/as-element component))
(comment
(.-width (.get (.. js/React -Dimensions) "window"))
)
;; (do ;; (do
;; (def activity-indicator-ios (r/adapt-react-class (.-ActivityIndicatorIOS js/React))) ;; (def activity-indicator-ios (r/adapt-react-class (.-ActivityIndicatorIOS js/React)))
;; (def animated-image (r/adapt-react-class (.-Animated.Image js/React))) ;; (def animated-image (r/adapt-react-class (.-Animated.Image js/React)))

View File

@ -8,3 +8,28 @@
(def text-content-type "text/plain") (def text-content-type "text/plain")
(def content-type-command "command") (def content-type-command "command")
(def content-type-command-request "command-request") (def content-type-command-request "command-request")
(def group-chat-colors [{:background "#AB7967", :text "#FFFFFF"}
{:background "#B48EAD", :text "#FFFFFF"}
{:background "#8FA1B3", :text "#FFFFFF"}
{:background "#96B5B4", :text "#FFFFFF"}
{:background "#A3BE8C", :text "#FFFFFF"}
{:background "#EBCB8B", :text "#FFFFFF"}
{:background "#D08770", :text "#FFFFFF"}
{:background "#BF616A", :text "#FFFFFF"}
{:background "#EFF1F5", :text "#000000"}
{:background "#DFE1E8", :text "#000000"}
{:background "#C0C5CE", :text "#000000"}
{:background "#A7ADBA", :text "#000000"}
{:background "#65737E", :text "#FFFFFF"}
{:background "#4F5B66", :text "#FFFFFF"}
{:background "#343D46", :text "#FFFFFF"}
{:background "#2B303B", :text "#FFFFFF"}])
(comment
(map (fn [c]
{:background c
:foreground c}) group-chat-colors)
(reverse group-chat-colors)
)

View File

@ -3,7 +3,8 @@
[syng-im.utils.random :refer [timestamp]] [syng-im.utils.random :refer [timestamp]]
[clojure.string :refer [join blank?]] [clojure.string :refer [join blank?]]
[syng-im.db :as db] [syng-im.db :as db]
[syng-im.utils.logging :as log])) [syng-im.utils.logging :as log]
[syng-im.constants :refer [group-chat-colors]]))
(defn signal-chats-updated [db] (defn signal-chats-updated [db]
(update-in db db/updated-chats-signal-path (fn [current] (update-in db db/updated-chats-signal-path (fn [current]
@ -40,8 +41,10 @@
_ (log/debug "creating chat" chat-name)] _ (log/debug "creating chat" chat-name)]
(r/write (r/write
(fn [] (fn []
(let [contacts (mapv (fn [ident] (let [contacts (mapv (fn [ident {:keys [background text]}]
{:identity ident}) identities)] {:identity ident
:background-color background
:text-color text}) identities group-chat-colors)]
(r/create :chats {:chat-id chat-id (r/create :chats {:chat-id chat-id
:name chat-name :name chat-name
:group-chat group-chat? :group-chat group-chat?
@ -55,12 +58,29 @@
(defn chat-by-id [chat-id] (defn chat-by-id [chat-id]
(-> (r/get-by-field :chats :chat-id chat-id) (-> (r/get-by-field :chats :chat-id chat-id)
(r/single-cljs))) (r/single-cljs)
(r/list-to-array :contacts)))
(comment (comment
(chat-by-id "1459693168208-31d4942e-ca3b-5c03-a397-cd7a29f777d4")
(chats-list)
(-> (r/get-by-field :chats :chat-id "0x04ed4c3797026cddeb7d64a54ca58142e57ea03cda21072358d67455b506db90c56d95033e3d221992f70d01922c3d90bf0697c49e4be118443d03ae4a1cd3c15c")
(r/single)
(aget "contacts")
(.map (fn [object index collection]
object)))
(-> (chat-by-id "0x04ed4c3797026cddeb7d64a54ca58142e57ea03cda21072358d67455b506db90c56d95033e3d221992f70d01922c3d90bf0697c49e4be118443d03ae4a1cd3c15c")
:contacts
vals
vec)
(-> (aget (aget (chats-list) 0) "contacts")
(js->clj :keywordize-keys true)
)
(r/delete (chats-list)) (r/delete (chats-list))
(swap! re-frame.db/app-db signal-chats-updated) (swap! re-frame.db/app-db signal-chats-updated)

View File

@ -94,12 +94,12 @@
(comment (comment
(r/write #(create-contact {:phone-number "0543072333" (r/write #(create-contact {:phone-number "0543072333"
:whisper-identity "0x04b6552945c18ebca487c8a829365d3812a246e1cd00d775f47248a21a61bad0912409b8bd18dc0604d1df494cea001cce85098906df231d2a431067734ecc5a21" :whisper-identity "0x04ed4c3797026cddeb7d64a54ca58142e57ea03cda21072358d67455b506db90c56d95033e3d221992f70d01922c3d90bf0697c49e4be118443d03ae4a1cd3c15c"
:name "Mr. Bean" :name "Mr. Bean"
:photo-path ""})) :photo-path ""}))
(r/write #(create-contact {:phone-number "0544828649" (r/write #(create-contact {:phone-number "0544828649"
:whisper-identity "0x043d9e25c6cf89941849cf5e4439084a93002f757cfd49fef411d4793d888b408dfa5bc54ac5989f65da8d764dc332f06b646f3cfae194a0801f6090b272a0c56e" :whisper-identity "0x0498bcce41dbe05c6d4776ef50d12c2ef1a00d9d7f7144d174ece3dce85ca3428bf0900352abcccdc463bd2cfa4ec319cda46c2079152c4cb14d1cad9a00dd7571"
:name "Mr. Batman" :name "Mr. Batman"
:photo-path ""})) :photo-path ""}))

View File

@ -34,7 +34,9 @@
:delivery-status {:type "string" :delivery-status {:type "string"
:optional true}}} :optional true}}}
{:name :chat-contact {:name :chat-contact
:properties {:identity "string"}} :properties {:identity "string"
:text-color "string"
:background-color "string"}}
{:name :chats {:name :chats
:primaryKey :chat-id :primaryKey :chat-id
:properties {:chat-id "string" :properties {:chat-id "string"
@ -100,6 +102,11 @@
(some-> (aget result 0) (some-> (aget result 0)
(js->clj :keywordize-keys true))) (js->clj :keywordize-keys true)))
(defn list-to-array [record list-field]
(assoc record list-field (-> (get record list-field)
vals
vec)))
(defn decode-value [{:keys [key value]}] (defn decode-value [{:keys [key value]}]
(read-string value)) (read-string value))