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

Cleanup

db4
Slava Pestov 2008-08-04 15:03:54 -05:00
parent f99ab896f8
commit 6dff5fcc6a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/html/streams/streams.factor
View File

@ -50,8 +50,8 @@ TUPLE: html-sub-stream < html-stream style parent ;
] [ call ] if* ; inline ] [ call ] if* ; inline
: hex-color, ( color -- ) : hex-color, ( color -- )
{ [ red>> ] [ green>> ] [ blue>> ] } cleave 3array [ red>> ] [ green>> ] [ blue>> ] tri
[ 255 * >fixnum >hex 2 CHAR: 0 pad-left % ] each ; [ 255 * >fixnum >hex 2 CHAR: 0 pad-left % ] tri@ ;
: fg-css, ( color -- ) : fg-css, ( color -- )
"color: #" % hex-color, "; " % ; "color: #" % hex-color, "; " % ;