diff options
| author |  Adam Chlipala <adamc@csail.mit.edu> | 2018-06-04 09:58:50 -0400 |
|---|---|---|
| committer |  GitHub <noreply@github.com> | 2018-06-04 09:58:50 -0400 |
| commit | ea85b40d3a89447dcc65696cb1bb65bcf8806869 (patch) | |
| tree | 92ba987f00bcf063155bab5160eab3ed17df1563 /src | |
| parent | 50010c982776ae62233f577f74a8e92e02c5b190 (diff) | |
| parent | 4bf7bfd52e5e822b05665b1872a2cfd31417486d (diff) | |
Merge pull request #127 from ashalkhakov/cradio
Adding: cradio (support for client-side radio box).
Diffstat (limited to 'src')
| -rw-r--r-- | src/css.sml | 1 | ||||
| -rw-r--r-- | src/monoize.sml | 4 |
2 files changed, 4 insertions, 1 deletions
diff --git a/src/css.sml b/src/css.sml index 9e50686f..17ec01d5 100644 --- a/src/css.sml +++ b/src/css.sml @@ -104,6 +104,7 @@ val tags = [("span", inline), ("cpassword", replaced), ("button", replaced), ("ccheckbox", replaced), + ("cradio", replaced), ("cselect", replaced), ("ctextarea", replaced), ("tabl", table), diff --git a/src/monoize.sml b/src/monoize.sml index 85a66e87..11c6ea31 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -3070,7 +3070,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) = | _ => (attrs, NONE) - val dynamics = ["dyn", "ctextbox", "cpassword", "ccheckbox", "cselect", "coption", "ctextarea", "active", "script", "cemail", "csearch", "curl", "ctel", "ccolor"] + val dynamics = ["dyn", "ctextbox", "cpassword", "ccheckbox", "cradio", "cselect", "coption", "ctextarea", "active", "script", "cemail", "csearch", "curl", "ctel", "ccolor"] fun isSome (e, _) = case e of @@ -3560,6 +3560,8 @@ fun monoExp (env, st, fm) (all as (e, loc)) = | "ctime" => cinput ("time", "time") | "ccheckbox" => cinput ("checkbox", "chk") + | "cradio" => cinput ("radio", "crad") + | "cselect" => (case List.find (fn ("Source", _, _) => true | _ => false) attrs of NONE => |