diff options
| author |  Vladimir Shabanov <vshabanoff@gmail.com> | 2017-12-05 17:24:12 +0300 |
|---|---|---|
| committer | Vladimir Shabanov <vshabanoff@gmail.com> | 2017-12-05 17:29:28 +0300 |
| commit | a707c42ce3773318f80ed78eea653a581639fdba (patch) | |
| tree | 6b82f5c0067a785575a037e5534a8eb7041a3721 /src | |
| parent | 8604afcbc37276760ae74b2d1fbe200aa4b64dce (diff) | |
Added oninput event to inputs which support it.
Added onscroll event to <body> and title/sizes attributes to <link>.
Diffstat (limited to 'src')
| -rw-r--r-- | src/monoize.sml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index ddf6cd4c..60ff78ea 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -3281,6 +3281,10 @@ fun monoExp (env, st, fm) (all as (e, loc)) = SOME (strcat [str "addOnChange(d,exec(", (L'.EJavaScript (L'.Script, e), loc), str "));"]) + | ("Oninput", e, _) => + SOME (strcat [str "addOnInput(d,exec(", + (L'.EJavaScript (L'.Script, e), loc), + str "));"]) | (x, e, (L'.TFun ((L'.TRecord [], _), _), _)) => SOME (strcat [str ("d." ^ lowercaseFirst x ^ "=exec("), (L'.EJavaScript (L'.Script, e), loc), |