Mercurial > urweb

comparison src/tag.sml @ 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 e0dd85ea58e1
children a5eb8f87bc17
comparison
equal deleted inserted replaced
906:c270fb847dc2 907:5fe49effbc83
115 (((CName newAttr, loc), e, t), 115 (((CName newAttr, loc), e, t),
116 (count, tags, byTag, newTags)) 116 (count, tags, byTag, newTags))
117 end 117 end
118 in 118 in
119 case x of 119 case x of
120 (CName "Link", _) => tagIt (Link, "Href") 120 (CName "Link", _) => tagIt (Link, "Link")
121 | (CName "Action", _) => tagIt (Action ReadWrite, "Action") 121 | (CName "Action", _) => tagIt (Action ReadWrite, "Action")
122 | _ => ((x, e, t), (count, tags, byTag, newTags)) 122 | _ => ((x, e, t), (count, tags, byTag, newTags))
123 end) 123 end)
124 s xets 124 s xets
125 in 125 in