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

Fix indentation and style

This commit is contained in:
Dan Holmsand 2015-10-22 13:44:14 +02:00
parent 63515236cb
commit 2f6f2a4491
1 changed files with 40 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

79
src/reagent/impl/template.cljs
View File

@ -107,7 +107,8 @@
;; <input type="??" > ;; <input type="??" >
;; The properites 'selectionStart' and 'selectionEnd' only exist on some inputs ;; The properites 'selectionStart' and 'selectionEnd' only exist on some inputs
;; See: https://html.spec.whatwg.org/multipage/forms.html#do-not-apply ;; See: https://html.spec.whatwg.org/multipage/forms.html#do-not-apply
(def these-inputs-have-selection-api #{"text" "textarea" "password" "search" "tel" "url"}) (def these-inputs-have-selection-api #{"text" "textarea" "password" "search"
"tel" "url"})
(defn ^boolean has-selection-api? (defn ^boolean has-selection-api?
[input-type] [input-type]
@ -115,45 +116,45 @@
(defn input-set-value [this] (defn input-set-value [this]
(when-some [value ($ this :cljsInputValue)] (when-some [value ($ this :cljsInputValue)]
($! this :cljsInputDirty false) ($! this :cljsInputDirty false)
(let [node (find-dom-node this) (let [node (find-dom-node this)
node-value ($ node :value)] node-value ($ node :value)]
(when (not= value node-value) (when (not= value node-value)
(if-not (and (identical? node (.-activeElement js/document)) (if-not (and (identical? node ($ js/document :activeElement))
(has-selection-api? ($ node :type)) (has-selection-api? ($ node :type))
(string? value) (string? value)
(string? node-value)) (string? node-value))
; just set the value, no need to worry about a cursor ;; just set the value, no need to worry about a cursor
($! node :value value) ($! node :value value)
;; Setting "value" (below) moves the cursor position to the ;; Setting "value" (below) moves the cursor position to the
;; end which gives the user a jarring experience. ;; end which gives the user a jarring experience.
;; ;;
;; But repositioning the cursor within the text, turns out to ;; But repositioning the cursor within the text, turns out to
;; be quite a challenge because changes in the text can be ;; be quite a challenge because changes in the text can be
;; triggered by various events like: ;; triggered by various events like:
;; - a validation function rejecting a user inputted char ;; - a validation function rejecting a user inputted char
;; - the user enters a lower case char, but is transformed to ;; - the user enters a lower case char, but is transformed to
;; upper. ;; upper.
;; - the user selects multiple chars and deletes text ;; - the user selects multiple chars and deletes text
;; - the user pastes in multiple chars, and some of them are ;; - the user pastes in multiple chars, and some of them are
;; rejected by a validator. ;; rejected by a validator.
;; - the user selects multiple chars and then types in a ;; - the user selects multiple chars and then types in a
;; single new char to repalce them all. ;; single new char to repalce them all.
;; Coming up with a sane cursor repositioning strategy hasn't ;; Coming up with a sane cursor repositioning strategy hasn't
;; been easy ALTHOUGH in the end, it kinda fell out nicely, ;; been easy ALTHOUGH in the end, it kinda fell out nicely,
;; and it appears to sanely handle all the cases we could ;; and it appears to sanely handle all the cases we could
;; think of. ;; think of.
;; So this is just a warning. The code below is simple ;; So this is just a warning. The code below is simple
;; enough, but if you are tempted to change it, be aware of ;; enough, but if you are tempted to change it, be aware of
;; all the scenarios you have handle. ;; all the scenarios you have handle.
(let [existing-offset-from-end (- (count node-value) (let [existing-offset-from-end (- (count node-value)
($ node :selectionStart)) ($ node :selectionStart))
new-cursor-offset (- (count value) new-cursor-offset (- (count value)
existing-offset-from-end)] existing-offset-from-end)]
($! node :value value) ($! node :value value)
($! node :selectionStart new-cursor-offset) ($! node :selectionStart new-cursor-offset)
($! node :selectionEnd new-cursor-offset))))))) ($! node :selectionEnd new-cursor-offset)))))))
(defn input-handle-change [this on-change e] (defn input-handle-change [this on-change e]
(let [res (on-change e)] (let [res (on-change e)]