Microrefactoring
This commit is contained in:
parent
c89f2820aa
commit
3264bbfac9
|
@ -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))])
|
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue