steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

xmode.code2html fix

release
Slava Pestov 2007-12-06 01:03:27 -05:00
parent bb45b6702b
commit 6bc8995106
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/xmode/code2html/code2html.factor
View File

@ -16,9 +16,7 @@ IN: xmode.code2html
tokenize-line htmlize-tokens ; tokenize-line htmlize-tokens ;
: htmlize-lines ( lines mode -- ) : htmlize-lines ( lines mode -- )
<pre> f swap load-mode [ htmlize-line nl ] curry reduce drop ;
f swap load-mode [ htmlize-line nl ] curry reduce drop
</pre> ;
: default-stylesheet ( -- ) : default-stylesheet ( -- )
<style> <style>
@ -34,9 +32,11 @@ IN: xmode.code2html
<title> dup write </title> <title> dup write </title>
</head> </head>
<body> <body>
over empty? <pre>
[ 2drop ] over empty?
[ over first find-mode htmlize-lines ] if [ 2drop ]
[ over first find-mode htmlize-lines ] if
</pre>
</body> </body>
</html> ; </html> ;