Mercurial > urweb
comparison demo/batchFun.ur @ 1641:68429cfce8db
Redo HTML context classification, to keep regular <body> tags out of <table> and <tr>
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Tue, 20 Dec 2011 19:02:04 -0500 |
parents | 78fe9841c39d |
children | 6bc2a8cb3a67 |
comparison
equal
deleted
inserted
replaced
1640:dc986eb6113c | 1641:68429cfce8db |
---|---|
83 </xml> | 83 </xml> |
84 in | 84 in |
85 <xml><dyn signal={ls <- signal lss; return <xml><table> | 85 <xml><dyn signal={ls <- signal lss; return <xml><table> |
86 <tr> | 86 <tr> |
87 <th>Id</th> | 87 <th>Id</th> |
88 {@mapX [colMeta] [[Body, Tr]] | 88 {@mapX [colMeta] [tr] |
89 (fn [nm :: Name] [p ::_] [rest ::_] [[nm] ~ rest] m => | 89 (fn [nm :: Name] [p ::_] [rest ::_] [[nm] ~ rest] m => |
90 <xml><th>{[m.Nam]}</th></xml>) | 90 <xml><th>{[m.Nam]}</th></xml>) |
91 M.fl M.cols} | 91 M.fl M.cols} |
92 </tr> | 92 </tr> |
93 {show' ls} | 93 {show' ls} |