Microrefactoring

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

View File

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

View File

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