]> gitweb.factorcode.org Git - factor.git/commitdiff
projects / factor.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: bb45b67)
xmode.code2html fix
authorSlava Pestov <slava@factorcode.org>
Thu, 6 Dec 2007 06:03:27 +0000 (01:03 -0500)
committerSlava Pestov <slava@factorcode.org>
Thu, 6 Dec 2007 06:03:27 +0000 (01:03 -0500)
extra/xmode/code2html/code2html.factor patch | blob | history

diff --git a/extra/xmode/code2html/code2html.factor b/extra/xmode/code2html/code2html.factor
index 5dc44841d36ff9af79e8e7a1ab69df779d9c072b..dfc50988a3892c6224cd1c812a2e03a58561833b 100755 (executable)
--- 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> ;
 
Factor programming language