Skip to content

Preserve the position of the caret while editing a textarea or input[type=text] #8

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
ympbyc wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Preserve the position of the caret while editing a textarea or input[type=text] #8

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
12 changes: 9 additions & 3 deletions src/webfui/plugin/form_values.cljs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2,24 +2,30 @@
(:use [webfui.plugin.core :only [Plugin]]
[webfui.dom-manipulation :only [select-path-html parsed-html unparse-html path-dom resolve-target]]))

(def caret (atom {})) ;;I know this is ugly but I wanted to do this inside a plugin

(defn input [dom-watchers parsed-html event]
(let [target (.-target event)
[tagname attributes :as element] (resolve-target @parsed-html target)
event (@dom-watchers (keyword (:watch attributes)))]
(when (and event (contains? #{:input :textarea} tagname))
(let [value (.-value target)
selPos (.-selectionStart target)
new-element (update-in element
[1 :value]
(fn [old]
(set! (.-value target) old)
value))]
(reset! caret {:target target
:position selPos})
(event element new-element)))))

(deftype form-values []
Plugin
(declare-events [this body dom-watchers parsed-html]
(.addEventListener body "input" (partial input dom-watchers parsed-html)))
(fix-dom [this]
nil))


(let [{:keys [target position]} @caret]
(when (and target position)
(set! (.-selectionStart target) position)
(set! (.-selectionEnd target) position)))))