xmode.code2html fix

2007-12-06 01:03:27 -05:00 · 2007-12-06 01:03:27 -05:00 · 6bc8995106
parent bb45b6702b
commit 6bc8995106
1 changed files with 6 additions and 6 deletions
--- a/extra/xmode/code2html/code2html.factor
+++ b/extra/xmode/code2html/code2html.factor
@ -16,9 +16,7 @@ IN: xmode.code2html
    tokenize-line htmlize-tokens ;

 : htmlize-lines ( lines mode -- )
-    <pre>
-        f swap load-mode [ htmlize-line nl ] curry reduce drop
-    </pre> ;
+    f swap load-mode [ htmlize-line nl ] curry reduce drop ;

 : default-stylesheet ( -- )
    <style>
@ -34,9 +32,11 @@ IN: xmode.code2html
            <title> dup write </title>
        </head>
        <body>
-            over empty?
-            [ 2drop ]
-            [ over first find-mode htmlize-lines ] if
+            <pre>
+                over empty?
+                [ 2drop ]
+                [ over first find-mode htmlize-lines ] if
+            </pre>
        </body>
    </html> ;