diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-11-20 11:34:36 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-11-20 11:34:36 -0500 |
| commit | a01f4dd530689d29ac7518bb9a8d19b919ef76ac (patch) | |
| tree | be1fb9f820200f6d2620e1e597ff809b1f438d29 /src/demo.sml | |
| parent | 7b09fa2aca2982038889f960e51d7b1e91a70991 (diff) | |
Some demo improvements
Diffstat (limited to 'src/demo.sml')
| -rw-r--r-- | src/demo.sml | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/demo.sml b/src/demo.sml index 5ed9da2a..580cd21f 100644 --- a/src/demo.sml +++ b/src/demo.sml @@ -27,7 +27,7 @@ structure Demo :> DEMO = struct -fun make {prefix, dirname} = +fun make {prefix, dirname, guided} = let val prose = OS.Path.joinDirFile {dir = dirname, file = "prose"} @@ -127,7 +127,12 @@ fun make {prefix, dirname} = file = out} val out = TextIO.openOut out - val () = (TextIO.output (out, "<frameset rows=\"50%,*\">\n"); + val () = (TextIO.output (out, "<frameset rows=\""); + TextIO.output (out, if guided then + "*,100" + else + "50%,*"); + TextIO.output (out, "\">\n"); TextIO.output (out, "<frame src=\""); TextIO.output (out, prefix); TextIO.output (out, "/"); |