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

added link element, rel attribute for styled-page.

cvs
Chris Double 2004-08-01 22:30:22 +00:00
parent 13bcbfd465
commit 616f2bd2d9
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
contrib/cont-responder/cont-html.factor
View File

@ -270,6 +270,7 @@ USE: logic
[ [
"input" "input"
"br" "br"
"link"
] [ define-open-html-word ] each ] [ define-open-html-word ] each
! Define some attributes ! Define some attributes
@ -277,5 +278,5 @@ USE: logic
"method" "action" "type" "value" "name" "method" "action" "type" "value" "name"
"size" "href" "class" "border" "rows" "cols" "size" "href" "class" "border" "rows" "cols"
"id" "onclick" "style" "valign" "accesskey" "id" "onclick" "style" "valign" "accesskey"
"src" "language" "colspan" "onchange" "src" "language" "colspan" "onchange" "rel"
] [ define-attribute-word ] each ] [ define-attribute-word ] each

12
contrib/cont-responder/cont-utils.factor
View File

@ -40,6 +40,18 @@ USE: html
<body> [ call ] </body> <body> [ call ] </body>
] </html> ; ] </html> ;
: styled-page ( title stylesheet-quot quot -- )
#! Call the quotation, with all output going to the
#! body of an html page with the given title. stylesheet-quot
#! is called to generate the required stylesheet.
<html> [
<head> [
<title> [ rot write ] </title>
swap call
] </head>
<body> [ call ] </body>
] </html> ;
: paragraph ( str -- ) : paragraph ( str -- )
#! Output the string as an html paragraph #! Output the string as an html paragraph
<p> [ write ] </p> ; <p> [ write ] </p> ;