Microrefactoring

This commit is contained in:
virvar 2016-05-11 10:42:04 +03:00
parent c89f2820aa
commit 3264bbfac9
2 changed files with 5 additions and 9 deletions

View File

@ -6,5 +6,4 @@
(defn phone-input-view [command] (defn phone-input-view [command]
[simple-command-input-view command {:keyboardType :phone-pad} [simple-command-input-view command {:keyboardType :phone-pad}
:validator (fn [message] :validator valid-mobile-number?])
(valid-mobile-number? message))])

View File

@ -41,9 +41,8 @@
(let [contact (subscribe [:contact])] (let [contact (subscribe [:contact])]
(fn [] (fn []
[scroll-view {:style st/profile} [scroll-view {:style st/profile}
[touchable-highlight {:style st/profile-back-button-touchable [touchable-highlight {:style st/profile-back-button-touchable
:on-press #(dispatch [:navigate-back]) :on-press #(dispatch [:navigate-back])}
:underlay-color :transparent}
[view st/profile-back-button-container [view st/profile-back-button-container
[icon :back st/profile-back-button-icon]]] [icon :back st/profile-back-button-icon]]]
[view st/status-block [view st/status-block
@ -55,15 +54,13 @@
[text {:style st/status} [text {:style st/status}
"!not implemented"] "!not implemented"]
[view st/btns-container [view st/btns-container
[touchable-highlight {:onPress #(message-user (:whisper-identity @contact)) [touchable-highlight {:onPress #(message-user (:whisper-identity @contact))}
:underlay-color :transparent}
[view st/message-btn [view st/message-btn
[text {:style st/message-btn-text} [text {:style st/message-btn-text}
"Message"]]] "Message"]]]
[touchable-highlight {:onPress (fn [] [touchable-highlight {:onPress (fn []
;; TODO not implemented ;; TODO not implemented
) )}
:underlay-color :transparent}
[view st/more-btn [view st/more-btn
[icon :more_vertical_blue st/more-btn-image]]]]] [icon :more_vertical_blue st/more-btn-image]]]]]
[view st/profile-properties-container [view st/profile-properties-container