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

[#5934] persist text in message input field after navigating to user profile and back

This commit is contained in:
Roman Volosovskyi 2018-09-22 22:34:45 +03:00
parent f558e94e99
commit d35b15e54e
No known key found for this signature in database
GPG Key ID: 0238A4B5ECEE70DE
1 changed files with 31 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
src/status_im/ui/screens/desktop/main/chat/views.cljs
View File

@ -180,35 +180,40 @@
:current-public-key current-public-key)]))]] :current-public-key current-public-key)]))]]
[connectivity/error-view]]))) [connectivity/error-view]])))
(views/defview chat-text-input [] (views/defview chat-text-input [chat-id input-text]
(views/letsubs [inp-ref (atom nil)] (views/letsubs [inp-ref (atom nil)]
(let [component (reagent/current-component) {:should-component-update
(fn [_ [_ old-chat-id] [_ new-chat-id]]
;; update component only when switch to another chat
(not= old-chat-id new-chat-id))}
(let [component (reagent/current-component)
set-container-height-fn #(reagent/set-state component {:container-height %}) set-container-height-fn #(reagent/set-state component {:container-height %})
{:keys [container-height empty?] :or {empty? true}} (reagent/state component)] {:keys [container-height empty?] :or {empty? true}} (reagent/state component)]
[react/view {:style (styles/chat-box container-height)} [react/view {:style (styles/chat-box container-height)}
[react/text-input {:placeholder (i18n/label :t/type-a-message) [react/text-input {:placeholder (i18n/label :t/type-a-message)
:auto-focus true :auto-focus true
:multiline true :multiline true
:blur-on-submit true :blur-on-submit true
:style (styles/chat-text-input container-height) :style (styles/chat-text-input container-height)
:font :default :font :default
:ref #(reset! inp-ref %) :ref #(reset! inp-ref %)
:default-value input-text
:on-content-size-change #(set-container-height-fn (.-height (.-contentSize (.-nativeEvent %)))) :on-content-size-change #(set-container-height-fn (.-height (.-contentSize (.-nativeEvent %))))
:on-key-press (fn [e] :on-key-press (fn [e]
(let [native-event (.-nativeEvent e) (let [native-event (.-nativeEvent e)
key (.-key native-event) key (.-key native-event)
modifiers (js->clj (.-modifiers native-event)) modifiers (js->clj (.-modifiers native-event))
should-send (and (= key "Enter") (not (contains? (set modifiers) "shift")))] should-send (and (= key "Enter") (not (contains? (set modifiers) "shift")))]
(when should-send (when should-send
(.clear @inp-ref) (.clear @inp-ref)
(.focus @inp-ref) (.focus @inp-ref)
(re-frame/dispatch [:send-current-message])))) (re-frame/dispatch [:send-current-message]))))
:on-change (fn [e] :on-change (fn [e]
(let [native-event (.-nativeEvent e) (let [native-event (.-nativeEvent e)
text (.-text native-event)] text (.-text native-event)]
(reagent/set-state component {:empty? (= "" text)}) (reagent/set-state component {:empty? (= "" text)})
(re-frame/dispatch [:set-chat-input-text text])))}] (re-frame/dispatch [:set-chat-input-text text])))}]
[react/touchable-highlight {:style styles/send-button [react/touchable-highlight {:style styles/send-button
:on-press (fn [] :on-press (fn []
(.clear @inp-ref) (.clear @inp-ref)
(.focus @inp-ref) (.focus @inp-ref)
@ -217,11 +222,11 @@
[icons/icon :icons/arrow-left {:style (styles/send-icon-arrow empty?)}]]]]))) [icons/icon :icons/arrow-left {:style (styles/send-icon-arrow empty?)}]]]])))
(views/defview chat-view [] (views/defview chat-view []
(views/letsubs [current-chat [:get-current-chat]] (views/letsubs [{:keys [input-text chat-id] :as current-chat} [:get-current-chat]]
[react/view {:style styles/chat-view} [react/view {:style styles/chat-view}
[toolbar-chat-view current-chat] [toolbar-chat-view current-chat]
[messages-view current-chat] [messages-view current-chat]
[chat-text-input]])) [chat-text-input chat-id input-text]]))
(views/defview chat-profile [] (views/defview chat-profile []
(letsubs [identity [:get-current-contact-identity] (letsubs [identity [:get-current-contact-identity]