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

io.streams.256color: use "\e" escape.

db4
John Benediktsson 2012-07-26 19:15:27 -07:00
parent 4b7d7aed1c
commit fbd79553e0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/io/streams/256color/256color.factor
View File

@ -61,10 +61,10 @@ intensities [| r i |
256colors [ keys swap infimum-by ] [ at ] bi ; 256colors [ keys swap infimum-by ] [ at ] bi ;
: color>foreground ( color -- str ) : color>foreground ( color -- str )
color>256color "\u00001b[38;5;%sm" sprintf ; color>256color "\e[38;5;%sm" sprintf ;
: color>background ( color -- str ) : color>background ( color -- str )
color>256color "\u00001b[48;5;%sm" sprintf ; color>256color "\e[48;5;%sm" sprintf ;
TUPLE: 256color stream ; TUPLE: 256color stream ;
@ -79,7 +79,7 @@ M: 256color stream-format
[ [
[ foreground swap at [ color>foreground ] [ "" ] if* ] [ foreground swap at [ color>foreground ] [ "" ] if* ]
[ background swap at [ color>background ] [ "" ] if* ] [ background swap at [ color>background ] [ "" ] if* ]
bi append [ "\u00001b[0m" surround ] unless-empty bi append [ "\e[0m" surround ] unless-empty
] dip stream>> stream-write ; ] dip stream>> stream-write ;
M: 256color make-span-stream M: 256color make-span-stream