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

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

@ -40,6 +40,18 @@ USE: html
<body> [ call ] </body>
] </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 -- )
#! Output the string as an html paragraph
<p> [ write ] </p> ;