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

html.streams: Use color objects

db4
Eduardo Cavazos 2008-08-04 11:01:55 -05:00
parent 0929a5a9e8
commit 9d1f741893
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,9 +1,11 @@
! Copyright (C) 2004, 2008 Slava Pestov. ! Copyright (C) 2004, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: generic assocs help http io io.styles io.files continuations
io.streams.string kernel math math.order math.parser namespaces USING: combinators generic assocs help http io io.styles io.files
quotations assocs sequences strings words html.elements continuations io.streams.string kernel math math.order math.parser
xml.entities sbufs continuations destructors accessors ; namespaces quotations assocs sequences strings words html.elements
xml.entities sbufs continuations destructors accessors arrays ;
IN: html.streams IN: html.streams
GENERIC: browser-link-href ( presented -- href ) GENERIC: browser-link-href ( presented -- href )
@ -47,9 +49,9 @@ TUPLE: html-sub-stream < html-stream style parent ;
] [ call ] if* ] [ call ] if*
] [ call ] if* ; inline ] [ call ] if* ; inline
: hex-color, ( triplet -- ) : hex-color, ( color -- )
3 head-slice { [ red>> ] [ green>> ] [ blue>> ] } cleave 3array
[ 255 * >fixnum >hex 2 CHAR: 0 pad-left % ] each ; [ 255 * >fixnum >hex 2 CHAR: 0 pad-left % ] each ;
: fg-css, ( color -- ) : fg-css, ( color -- )
"color: #" % hex-color, "; " % ; "color: #" % hex-color, "; " % ;