Mercurial > urweb

changeset 907:5fe49effbc83

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
JavaScript urlifying of bools; correct Link attribute escaping
author Adam Chlipala <adamc@hcoop.net>
date Tue, 11 Aug 2009 12:01:54 -0400
parents c270fb847dc2
children ed06e25c70ef
files src/monoize.sml src/settings.sml src/tag.sml
diffstat 3 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/monoize.sml	Tue Aug 11 11:26:37 2009 -0400
+++ b/src/monoize.sml	Tue Aug 11 12:01:54 2009 -0400
@@ -2538,6 +2538,7 @@
                                           val x =
                                               case x of
                                                   "Typ" => "Type"
+                                                | "Link" => "Href"
                                                 | _ => x
                                           val xp = " " ^ lowercaseFirst x ^ "=\""
 
--- a/src/settings.sml	Tue Aug 11 11:26:37 2009 -0400
+++ b/src/settings.sml	Tue Aug 11 12:01:54 2009 -0400
@@ -143,6 +143,7 @@
                           ("urlifyInt", "ts"),
                           ("urlifyFloat", "ts"),
                           ("urlifyString", "uf"),
+                          ("urlifyBool", "bs"),
                           ("recv", "rv"),
                           ("strcat", "cat"),
                           ("intToString", "ts"),
--- a/src/tag.sml	Tue Aug 11 11:26:37 2009 -0400
+++ b/src/tag.sml	Tue Aug 11 12:01:54 2009 -0400
@@ -117,7 +117,7 @@
                                                    end
                                            in
                                                case x of
-                                                   (CName "Link", _) => tagIt (Link, "Href")
+                                                   (CName "Link", _) => tagIt (Link, "Link")
                                                  | (CName "Action", _) => tagIt (Action ReadWrite, "Action")
                                                  | _ => ((x, e, t), (count, tags, byTag, newTags))
                                            end)