summaryrefslogtreecommitdiff
path: root/src/monoize.sml
diff options
context:
space:
mode:
authorGravatar Sergey Mironov <grrwlf@gmail.com>2013-12-06 13:59:39 +0400
committerGravatar Sergey Mironov <grrwlf@gmail.com>2013-12-06 13:59:39 +0400
commiteb64746b388cd3a3864e70039a0c04929b6bbd61 (patch)
tree0327311311073a9c0a5c7b6e5fd835d66c6f61a1 /src/monoize.sml
parentd89fd37a66ab73ea7eba5e2574c4e679c4026f0b (diff)
Add activeHead tag.
activeHead is similar to active but produces xhead instead of xbody
Diffstat (limited to 'src/monoize.sml')
-rw-r--r--src/monoize.sml12
1 files changed, 11 insertions, 1 deletions
diff --git a/src/monoize.sml b/src/monoize.sml
index 3df6ec92..8889937e 100644
--- a/src/monoize.sml
+++ b/src/monoize.sml
@@ -3264,7 +3264,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) =
val (style, fm) = monoExp (env, st, fm) style
val (dynStyle, fm) = monoExp (env, st, fm) dynStyle
- val dynamics = ["dyn", "ctextbox", "ccheckbox", "cselect", "coption", "ctextarea", "active"]
+ val dynamics = ["dyn", "ctextbox", "ccheckbox", "cselect", "coption", "ctextarea", "active", "activeHead"]
fun isSome (e, _) =
case e of
@@ -3600,6 +3600,16 @@ fun monoExp (env, st, fm) (all as (e, loc)) =
fm)
| _ => raise Fail "Monoize: Bad <active> attributes")
+ | "activeHead" =>
+ (case attrs of
+ [("Code", e, _)] =>
+ ((L'.EStrcat
+ ((L'.EPrim (Prim.String ("<script type=\"text/javascript\">active(execD(")), loc),
+ (L'.EStrcat ((L'.EJavaScript (L'.Script, e), loc),
+ (L'.EPrim (Prim.String ("))</script>")), loc)), loc)), loc),
+ fm)
+ | _ => raise Fail "Monoize: Bad <activeHead> attributes")
+
| "submit" => normal ("input type=\"submit\"", NONE)
| "image" => normal ("input type=\"image\"", NONE)
| "button" => normal ("input type=\"submit\"", NONE)