 ! Copyright (C) 2004, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors assocs combinators destructors html io
+USING: accessors assocs colors combinators destructors html io
 io.styles kernel make math math.functions math.parser sequences
 strings xml.syntax ;
 IN: html.streams

    end-sub-stream format-html-span ;

: border-css, ( border -- )
    "border: 1px solid #" % hex-color, "; " % ;

: (padding-css,) ( horizontal vertical -- )
    2dup = [

: href-link-tag ( xml style -- xml )
    href of [ simple-link ] when* ;

: fg-css, ( color -- )
    "color: " % color>hex % "; " % ;

: bg-css, ( color -- )
    "background-color: " % color>hex % "; " % ;

: style-css, ( flag -- )
    dup
