status-im
/
status-mobile
mirror of https://github.com/status-im/status-mobile.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Chat members names menu item 

Former-commit-id: 34f5ab31a1
This commit is contained in:
virvar 2016-05-20 16:18:12 +03:00
parent be0d7e2614
commit 615cc4d73a
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/status_im/chat/screen.cljs
View File

@ -1,6 +1,7 @@
(ns status-im.chat.screen (ns status-im.chat.screen
(:require-macros [status-im.utils.views :refer [defview]]) (:require-macros [status-im.utils.views :refer [defview]])
(:require [re-frame.core :refer [subscribe dispatch]] (:require [re-frame.core :refer [subscribe dispatch]]
[clojure.string :as s]
[status-im.components.react :refer [view [status-im.components.react :refer [view
text text
image image
@ -97,13 +98,20 @@
;; TODO stub data ('online' property) ;; TODO stub data ('online' property)
[chat-icon-view-menu-item chat-id group-chat name color true]) [chat-icon-view-menu-item chat-id group-chat name color true])
(defn members-text [members]
(let [max 35
text (str (s/join ", " (map #(:name %) members)) " and you")]
(if (< max (count text))
(str (subs text 0 (- max 3)) "...")
text)))
(defn actions-list-view [] (defn actions-list-view []
(let [{:keys [group-chat chat-id]} (let [{:keys [group-chat chat-id]}
(subscribe [:chat-properties [:group-chat :chat-id]])] (subscribe [:chat-properties [:group-chat :chat-id]])
members (subscribe [:current-chat-contacts])]
(when-let [actions (if @group-chat (when-let [actions (if @group-chat
[{:title "Members" [{:title "Members"
;; TODO stub data: members :subtitle (members-text @members)
:subtitle "Justas, Geoff, Alex and you"
:icon :menu_group :icon :menu_group
:icon-style {:width 25 :icon-style {:width 25
:height 19} :height 19}