diff options
Diffstat (limited to 'src/tutorial.sml')
| -rw-r--r-- | src/tutorial.sml | 27 |
1 files changed, 26 insertions, 1 deletions
diff --git a/src/tutorial.sml b/src/tutorial.sml index 2b875c0b..a2156adc 100644 --- a/src/tutorial.sml +++ b/src/tutorial.sml @@ -75,7 +75,26 @@ fun fixupFile (fname, title) = val (befor, after) = Substring.position "<span class=\"comment-delimiter\">(* </span><span class=\"comment\">" source in if Substring.isEmpty after then - TextIO.outputSubstr (outf, source) + let + val (befor, after) = Substring.position "<span class=\"comment-delimiter\">(** </span><span class=\"comment\">" source + in + if Substring.isEmpty after then + TextIO.outputSubstr (outf, source) + else + let + val (befor', after) = Substring.position " </span><span class=\"comment-delimiter\">*)</span>" + (Substring.slice (after, 65, NONE)) + in + if Substring.isEmpty after then + TextIO.outputSubstr (outf, source) + else + (TextIO.outputSubstr (outf, befor); + TextIO.output (outf, "<h2>"); + proseLoop befor'; + TextIO.output (outf, "</h2>"); + loop (Substring.slice (after, 49, NONE))) + end + end else let val (befor', after) = Substring.position " </span><span class=\"comment-delimiter\">*)</span>" @@ -105,6 +124,12 @@ fun fixupFile (fname, title) = TextIO.output (outf, "\t\tpadding: 5px;\n"); TextIO.output (outf, "\t\tfont-size: larger;\n"); TextIO.output (outf, "\t}\n"); + TextIO.output (outf, "\th2 {\n"); + TextIO.output (outf, "\t\tfont-family: Arial;\n"); + TextIO.output (outf, "\t\tfont-size: 20pt;\n"); + TextIO.output (outf, "\t\tbackground-color: #99FF99;\n"); + TextIO.output (outf, "\t\tpadding: 5px;\n"); + TextIO.output (outf, "\t}\n"); TextIO.output (outf, "-->\n"); TextIO.output (outf, "</style>\n"); TextIO.output (outf, "<title>"); |