diff --git a/contrib/cont-responder/cont-html.factor b/contrib/cont-responder/cont-html.factor index 1cb00047e5..a2cbdecd5f 100644 --- a/contrib/cont-responder/cont-html.factor +++ b/contrib/cont-responder/cont-html.factor @@ -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 \ No newline at end of file diff --git a/contrib/cont-responder/cont-utils.factor b/contrib/cont-responder/cont-utils.factor index 8c41a02f6b..27f0182e03 100644 --- a/contrib/cont-responder/cont-utils.factor +++ b/contrib/cont-responder/cont-utils.factor @@ -40,6 +40,18 @@ USE: html [ call ] ] ; +: 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. + [ + [ + [ rot write ] + swap call + ] + [ call ] + ] ; + : paragraph ( str -- ) #! Output the string as an html paragraph

[ write ]

;