Mercurial > urweb
comparison src/demo.sml @ 1761:f8ddaa296115
Fix hyphenation for demos; parse CSS class 'table' as 'tabl'
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 13 May 2012 14:27:29 -0400 |
parents | c414850f206f |
children | 3d922a28370b |
comparison
equal
deleted
inserted
replaced
1760:74fcc977a13d | 1761:f8ddaa296115 |
---|---|
422 case #kind rule of | 422 case #kind rule of |
423 Settings.Exact => () | 423 Settings.Exact => () |
424 | Settings.Prefix => TextIO.output (outf, "*"); | 424 | Settings.Prefix => TextIO.output (outf, "*"); |
425 TextIO.output (outf, " "); | 425 TextIO.output (outf, " "); |
426 TextIO.output (outf, #to rule); | 426 TextIO.output (outf, #to rule); |
427 if #hyphenate rule then | |
428 TextIO.output (outf, " [-]") | |
429 else | |
430 (); | |
427 TextIO.output (outf, "\n"))) (#rewrites combined); | 431 TextIO.output (outf, "\n"))) (#rewrites combined); |
428 filters "url" (#filterUrl combined); | 432 filters "url" (#filterUrl combined); |
429 filters "mime" (#filterMime combined); | 433 filters "mime" (#filterMime combined); |
430 app (fn path => | 434 app (fn path => |
431 (TextIO.output (outf, "safeGet "); | 435 (TextIO.output (outf, "safeGet "); |