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

fix httpd load issue

cvs
Slava Pestov 2006-01-24 04:03:15 +00:00
parent 6cfa1db4df
commit 59c4195889
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
contrib/httpd/html.factor
View File

@ -149,6 +149,9 @@ M: html-stream stream-format ( str style stream -- )
] object-link-tag ] object-link-tag
] with-stream* ; ] with-stream* ;
: with-html-stream ( quot -- )
stdio get <html-stream> swap with-stream* ;
: html-outliner ( caption contents -- ) : html-outliner ( caption contents -- )
<table "display: inline; " =style table> <table "display: inline; " =style table>
<tr> <tr>
@ -183,9 +186,6 @@ M: html-stream with-nested-stream ( quot style stream -- )
M: html-stream stream-terpri [ <br/> ] with-stream* ; M: html-stream stream-terpri [ <br/> ] with-stream* ;
: with-html-stream ( quot -- )
stdio get <html-stream> swap with-stream* ;
: default-css ( -- ) : default-css ( -- )
<style> <style>
"A:link { text-decoration: none; color: black; }" print "A:link { text-decoration: none; color: black; }" print