mirror of
https://github.com/status-im/status-mobile.git
synced 2025-01-30 18:35:37 +00:00
39 lines
1.5 KiB
Clojure
39 lines
1.5 KiB
Clojure
(ns syng-im.components.chat.suggestions
|
|
(:require-macros
|
|
[natal-shell.core :refer [with-error-view]])
|
|
(:require [re-frame.core :refer [subscribe dispatch]]
|
|
[syng-im.components.react :refer [view
|
|
text
|
|
touchable-highlight
|
|
list-view
|
|
list-item]]
|
|
[syng-im.utils.listview :refer [to-datasource]]
|
|
[syng-im.components.chat.suggestions-styles :as st]))
|
|
|
|
(defn set-command-input [command]
|
|
(dispatch [:set-chat-command command]))
|
|
|
|
(defn suggestion-list-item [suggestion]
|
|
[touchable-highlight
|
|
{:onPress #(set-command-input (keyword (:command suggestion)))}
|
|
[view st/suggestion-item-container
|
|
[view (st/suggestion-background suggestion)
|
|
[text {:style st/suggestion-text}
|
|
(:text suggestion)]]
|
|
[text {:style st/suggestion-description}
|
|
(:description suggestion)]]])
|
|
|
|
(defn render-row [row _ _]
|
|
(list-item [suggestion-list-item (js->clj row :keywordize-keys true)]))
|
|
|
|
(defn suggestions-view []
|
|
(let [suggestions-atom (subscribe [:get-suggestions])]
|
|
(fn []
|
|
(let [suggestions @suggestions-atom]
|
|
(when (seq suggestions)
|
|
[view (st/suggestions-container suggestions)
|
|
[list-view {:dataSource (to-datasource suggestions)
|
|
:enableEmptySections true
|
|
:renderRow render-row
|
|
:style {}}]])))))
|