From 84bb1b80b58eab4d3eb4e95b3eff5d3664072014 Mon Sep 17 00:00:00 2001 From: virvar Date: Thu, 12 May 2016 14:15:09 +0300 Subject: [PATCH] Group settings styles Former-commit-id: 240569434c31ae5ff73d24307523d7f5331d846f --- src/syng_im/components/group_settings.cljs | 87 +++++++------------ .../components/group_settings_styles.cljs | 86 ++++++++++++++++++ src/syng_im/models/chat.cljs | 3 +- src/syng_im/models/chats.cljs | 3 +- 4 files changed, 120 insertions(+), 59 deletions(-) create mode 100644 src/syng_im/components/group_settings_styles.cljs diff --git a/src/syng_im/components/group_settings.cljs b/src/syng_im/components/group_settings.cljs index 8c5a30eaf7..b1777e659a 100644 --- a/src/syng_im/components/group_settings.cljs +++ b/src/syng_im/components/group_settings.cljs @@ -5,16 +5,13 @@ text-input text image + icon touchable-highlight]] - [syng-im.components.styles :refer [font - title-font - color-white - color-purple - text1-color - text2-color - toolbar-background1]] [syng-im.components.toolbar :refer [toolbar]] [syng-im.components.realm :refer [list-view]] + [syng-im.components.styles :refer [color-purple + text2-color]] + [syng-im.components.group-settings-styles :as st] [syng-im.utils.listview :refer [to-realm-datasource]] [syng-im.components.contact-list.contact-inner :refer [contact-inner-view]] [syng-im.components.chats.new-group-contact :refer [new-group-contact]] @@ -23,74 +20,50 @@ (defn set-group-settings-name [chat-name] (dispatch [:set-group-settings-name chat-name])) +(defn save-group-chat [] + (dispatch [:save-group-chat])) + (defn chat-members [members] - [view {:style {:marginBottom 10}} + [view st/chat-members-container (for [member members] ^{:key member} [contact-inner-view member] ;; [new-group-contact member nil] )]) -(defn new-group-toolbar [chat-name] +(defn action-save [] + [touchable-highlight + {:on-press save-group-chat} + [view st/save-btn + [text {:style st/save-btn-text} "S"]]]) + +(defn new-group-toolbar [] [toolbar {:title "Chat settings" - :action {:image {:source res/v ;; {:uri "icon_search"} - :style {:width 20 - :height 18}} - :handler (fn [] - (dispatch [:save-group-chat chat-name]))}}]) + :custom-action [action-save]}]) (defn group-settings [] (let [chat-name (subscribe [:group-settings-name]) members (subscribe [:group-settings-members])] (fn [] - [view {:style {:flex 1 - :flexDirection "column" - :backgroundColor color-white}} - [new-group-toolbar @chat-name] - [view {:style {:marginHorizontal 16}} - [text {:style {:marginTop 24 - :marginBottom 16 - :color text2-color - :fontFamily font - :fontSize 14 - :lineHeight 20}} + [view st/group-settings + [new-group-toolbar] + [view st/properties-container + [text {:style st/chat-name-text} "Chat name"] - [text-input {:underlineColorAndroid color-purple - :style {:marginLeft -4 - :fontSize 14 - :fontFamily font - :color text1-color} + [text-input {:style st/chat-name-input + :underlineColorAndroid color-purple :autoFocus true :placeholderTextColor text2-color :onChangeText set-group-settings-name} @chat-name] - [text {:style {:marginTop 24 - :marginBottom 16 - :color text2-color - :fontFamily font - :fontSize 14 - :lineHeight 20}} + [text {:style st/members-text} "Members"] - [touchable-highlight {:on-press (fn []) - :underlay-color :transparent} - [view {:style {:flexDirection "row" - :marginBottom 16}} - [image {:source {:uri "icon_add_gray"} - :style {:marginVertical 19 - :marginHorizontal 3 - :width 17 - :height 17}}] - [text {:style {:marginTop 18 - :marginLeft 32 - :color text2-color - :fontFamily font - :fontSize 14 - :lineHeight 20}} + [touchable-highlight {:on-press (fn [] + ;; TODO not implemented + )} + [view st/add-members-container + [icon :add-gray st/add-members-icon] + [text {:style st/add-members-text} "Add members"]]] [chat-members (vals (js->clj @members :keywordize-keys true))] - [text {:style {:marginTop 24 - :marginBottom 16 - :color text2-color - :fontFamily font - :fontSize 14 - :lineHeight 20}} + [text {:style st/settings-text} "Settings"]]]))) diff --git a/src/syng_im/components/group_settings_styles.cljs b/src/syng_im/components/group_settings_styles.cljs new file mode 100644 index 0000000000..111a166fe7 --- /dev/null +++ b/src/syng_im/components/group_settings_styles.cljs @@ -0,0 +1,86 @@ +(ns syng-im.components.group-settings-styles + (:require [syng-im.components.styles :refer [font + title-font + color-white + color-purple + chat-background + online-color + selected-message-color + separator-color + text1-color + text2-color + toolbar-background1]])) + +(def chat-members-container + {:marginBottom 10}) + +(def save-btn + {:margin 10 + :width 36 + :height 36 + :borderRadius 50 + :backgroundColor color-purple}) + +(def save-btn-text + {:marginTop 7 + :marginLeft 13 + :color color-white + :fontFamily font + :fontSize 16 + :lineHeight 20}) + +(def group-settings + {:flex 1 + :flexDirection :column + :backgroundColor color-white}) + +(def properties-container + {:marginHorizontal 16}) + +(def chat-name-text + {:marginTop 24 + :marginBottom 16 + :color text2-color + :fontFamily font + :fontSize 14 + :lineHeight 20}) + +(def chat-name-input + {:marginLeft -4 + :fontSize 14 + :fontFamily font + :color text1-color}) + +(def members-text + {:marginTop 24 + :marginBottom 16 + :color text2-color + :fontFamily font + :fontSize 14 + :lineHeight 20}) + +(def add-members-icon + {:marginVertical 19 + :marginHorizontal 3 + :width 17 + :height 17}) + +(def add-members-container + {:flexDirection :row + :marginBottom 16}) + +(def add-members-text + {:marginTop 18 + :marginLeft 32 + :color text2-color + :fontFamily font + :fontSize 14 + :lineHeight 20}) + +(def settings-text + {:marginTop 24 + :marginBottom 16 + :color text2-color + :fontFamily font + :fontSize 14 + :lineHeight 20}) diff --git a/src/syng_im/models/chat.cljs b/src/syng_im/models/chat.cljs index 1fa736cafd..5fda433919 100644 --- a/src/syng_im/models/chat.cljs +++ b/src/syng_im/models/chat.cljs @@ -24,7 +24,8 @@ (defn set-group-settings [db] (let [group-chat (current-chat db)] - (assoc-in db db/group-settings-path group-chat))) + (assoc-in db db/group-settings-path + (select-keys group-chat [:chat-id :name :contacts])))) (defn update-new-group-selection [db identity add?] (update-in db db/new-group-path (fn [new-group] diff --git a/src/syng_im/models/chats.cljs b/src/syng_im/models/chats.cljs index faa2820fdf..f98c830fde 100644 --- a/src/syng_im/models/chats.cljs +++ b/src/syng_im/models/chats.cljs @@ -83,7 +83,8 @@ (r/write (fn [] ;; TODO UNDONE contacts - (r/create :chats (select-keys chat-settings [:chat-id :name]) true))) + (r/create :chats + (select-keys chat-settings [:chat-id :name :contacts]) true))) ;; TODO update chat in db atom (dispatch [:initialize-chats]) (-> db