Atua-WWW: Now HTML 4.01 Strict compliant
FossilOrigin-Name: b5c10a70f34222702a6f9b11a55195833ffe74b03379102f3ec505374ab55f95
This commit is contained in:
parent
12ec404b61
commit
d786dd0704
1 changed files with 4 additions and 3 deletions
|
@ -304,11 +304,12 @@ The `gopher:icon` displays an indicator for menu items.
|
|||
|
||||
:gopher:generate-index (f-)
|
||||
'Content-type:_text/html puts eol eol
|
||||
'<!DOCTYPE_HTML_PUBLIC_"-//W3C//DTD_HTML_4.01_Transitional//EN"_"http://www.w3.org/TR/html4/loose.dtd"> puts eol
|
||||
'<!DOCTYPE_HTML_PUBLIC_"-//W3C//DTD_HTML_4.01//EN" puts sp
|
||||
'"http://www.w3.org/TR/html4/strict.dtd"> puts eol
|
||||
'<html><head><meta_http-equiv="Content-Type"_content="text/html;_charset=utf-8"> puts
|
||||
'<style_type="text/css">tt_{_white-space:_pre;_} puts
|
||||
'_*_{_color:_#bbb;_background:_#090909;_font-size:_large;_}_a_{_color:_#FF6600;_} puts
|
||||
'</style><title>forthworks.com</title></head><body> puts eol eol
|
||||
'</style><title>forthworks.com</title></head><body><p> puts eol eol
|
||||
file:R file:open !FID
|
||||
@FID file:size !Size
|
||||
[ buffer gopher:gets
|
||||
|
@ -317,7 +318,7 @@ The `gopher:icon` displays an indicator for menu items.
|
|||
@FID file:close
|
||||
[ #70 [ $_ putc ] times ] html:tt html:br eol
|
||||
'forthworks.com:80_/_atua-www_/_running_on_retro gopher:i
|
||||
'</body></html> puts
|
||||
'</p></body></html> puts
|
||||
;
|
||||
````
|
||||
|
||||
|
|
Loading…
Reference in a new issue