Group settings to new structure

This commit is contained in:
virvar 2016-05-12 16:31:27 +03:00
parent 344f64b9f2
commit 5283256804
5 changed files with 8 additions and 19 deletions

View File

@ -15,7 +15,7 @@
[syng-im.components.chats.new-group :refer [new-group]] [syng-im.components.chats.new-group :refer [new-group]]
[syng-im.components.chat.new-participants :refer [new-participants]] [syng-im.components.chat.new-participants :refer [new-participants]]
[syng-im.components.chat.remove-participants :refer [remove-participants]] [syng-im.components.chat.remove-participants :refer [remove-participants]]
[syng-im.components.group-settings :refer [group-settings]] [syng-im.group-settings.group-settings :refer [group-settings]]
[syng-im.components.profile :refer [profile my-profile]] [syng-im.components.profile :refer [profile my-profile]]
[syng-im.utils.logging :as log] [syng-im.utils.logging :as log]
[syng-im.utils.utils :refer [toast]] [syng-im.utils.utils :refer [toast]]

View File

@ -1,4 +1,4 @@
(ns syng-im.components.group-settings (ns syng-im.group-settings.group-settings
(:require [re-frame.core :refer [subscribe dispatch dispatch-sync]] (:require [re-frame.core :refer [subscribe dispatch dispatch-sync]]
[syng-im.resources :as res] [syng-im.resources :as res]
[syng-im.components.react :refer [view [syng-im.components.react :refer [view
@ -11,9 +11,9 @@
[syng-im.components.realm :refer [list-view]] [syng-im.components.realm :refer [list-view]]
[syng-im.components.styles :refer [color-purple [syng-im.components.styles :refer [color-purple
text2-color]] text2-color]]
[syng-im.components.group-settings-styles :as st] [syng-im.group-settings.styles.group-settings :as st]
[syng-im.utils.listview :refer [to-realm-datasource]] [syng-im.utils.listview :refer [to-realm-datasource]]
[syng-im.components.group-settings-member :refer [contact-inner-view]] [syng-im.group-settings.views.member :refer [contact-inner-view]]
[reagent.core :as r])) [reagent.core :as r]))
(defn set-group-settings-name [chat-name] (defn set-group-settings-name [chat-name]

View File

@ -1,4 +1,4 @@
(ns syng-im.components.group-settings-styles (ns syng-im.group-settings.styles.group-settings
(:require [syng-im.components.styles :refer [font (:require [syng-im.components.styles :refer [font
title-font title-font
color-white color-white

View File

@ -1,4 +1,4 @@
(ns syng-im.components.group-settings-member-styles (ns syng-im.group-settings.styles.member
(:require [syng-im.components.styles :refer [font (:require [syng-im.components.styles :refer [font
title-font title-font
text1-color text1-color
@ -6,17 +6,6 @@
color-white color-white
online-color]])) online-color]]))
(def search-icon
{:width 17
:height 17})
(def contacts-list-container
{:flex 1
:backgroundColor :white})
(def contacts-list
{:backgroundColor :white})
(def contact-photo-container (def contact-photo-container
{:borderRadius 50}) {:borderRadius 50})

View File

@ -1,8 +1,8 @@
(ns syng-im.components.group-settings-member (ns syng-im.group-settings.views.member
(:require [clojure.string :as s] (:require [clojure.string :as s]
[syng-im.components.react :refer [view image text icon touchable-highlight]] [syng-im.components.react :refer [view image text icon touchable-highlight]]
[syng-im.resources :as res] [syng-im.resources :as res]
[syng-im.components.group-settings-member-styles :as st])) [syng-im.group-settings.styles.member :as st]))
(defn contact-photo [{:keys [photo-path]}] (defn contact-photo [{:keys [photo-path]}]
[view st/contact-photo-container [view st/contact-photo-container