fix httpd load issue
parent
6cfa1db4df
commit
59c4195889
|
@ -149,6 +149,9 @@ M: html-stream stream-format ( str style stream -- )
|
|||
] object-link-tag
|
||||
] with-stream* ;
|
||||
|
||||
: with-html-stream ( quot -- )
|
||||
stdio get <html-stream> swap with-stream* ;
|
||||
|
||||
: html-outliner ( caption contents -- )
|
||||
<table "display: inline; " =style table>
|
||||
<tr>
|
||||
|
@ -183,9 +186,6 @@ M: html-stream with-nested-stream ( quot style stream -- )
|
|||
|
||||
M: html-stream stream-terpri [ <br/> ] with-stream* ;
|
||||
|
||||
: with-html-stream ( quot -- )
|
||||
stdio get <html-stream> swap with-stream* ;
|
||||
|
||||
: default-css ( -- )
|
||||
<style>
|
||||
"A:link { text-decoration: none; color: black; }" print
|
||||
|
|
Loading…
Reference in New Issue