Group settings to new structure

Former-commit-id: 5283256804
This commit is contained in:
virvar 2016-05-12 16:31:27 +03:00
parent 70e9e2155b
commit b62b758c60
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.chat.new-participants :refer [new-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.utils.logging :as log]
[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]]
[syng-im.resources :as res]
[syng-im.components.react :refer [view
@ -11,9 +11,9 @@
[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.group-settings.styles.group-settings :as st]
[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]))
(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
title-font
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
title-font
text1-color
@ -6,17 +6,6 @@
color-white
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
{: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]
[syng-im.components.react :refer [view image text icon touchable-highlight]]
[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]}]
[view st/contact-photo-container