basis/html/streams/streams-docs.factor

   1 IN: html.streams
   2 USING: help.markup help.syntax kernel strings io io.styles
   3 quotations ;
   4
   5 HELP: browser-link-href
   6 { $values { "presented" object } { "href" string } }
   7 { $contract "Outputs a link to a page displaying a presentation of the given object. This word is called when " { $link write-object } " is called on " { $link html-stream } " instances." } ;
   8
   9 HELP: html-stream
  10 { $class-description "A formatted output stream which emits HTML markup." } ;
  11
  12 HELP: <html-stream>
  13 { $values { "stream" "an output stream" } { "html-stream" html-stream } }
  14 { $description "Creates a new formatted output stream which emits HTML markup on " { $snippet "stream" } "." } ;
  15
  16 HELP: with-html-writer
  17 { $values { "quot" quotation } }
  18 { $description "Calls the quotation in a new dynamic scope with " { $link output-stream } " rebound to an " { $link html-stream } " wrapping the current " { $link output-stream } "." }
  19 { $examples
  20     { $example
  21         "USING: io io.styles html.streams ;"
  22         "[ \"Hello\" { { font-style bold } } format nl ] with-html-writer"
  23         "<span style='font-style: normal; font-weight: bold; '>Hello</span><br/>"
  24     }
  25 } ;
  26
  27 ARTICLE: "html.streams" "HTML streams"
  28 "The " { $vocab-link "html.streams" } " vocabulary provides a stream which implements " { $link "styles" } " by writing HTML markup to the wrapped stream."
  29 { $subsection html-stream }
  30 { $subsection <html-stream> }
  31 { $subsection with-html-writer } ;
  32
  33 ABOUT: "html.streams"