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

io.streams.256color: adding support for bold and italic.

db4
John Benediktsson 2012-08-23 15:20:44 -07:00
parent dd2a5729a7
commit 8810576465
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -60,12 +60,19 @@ intensities [| r i |
color>rgb '[ _ distance ] color>rgb '[ _ distance ]
256colors [ keys swap infimum-by ] [ at ] bi ; 256colors [ keys swap infimum-by ] [ at ] bi ;
: color>foreground ( color -- str ) : color>foreground ( color -- string )
color>256color "\e[38;5;%sm" sprintf ; color>256color "\e[38;5;%sm" sprintf ;
: color>background ( color -- str ) : color>background ( color -- string )
color>256color "\e[48;5;%sm" sprintf ; color>256color "\e[48;5;%sm" sprintf ;
: font-styles ( font-style -- string )
H{
{ bold "\e[1m" }
{ italic "\e[3m" }
{ bold-italic "\e[1m\e[3m" }
} at "" or ;
TUPLE: 256color stream ; TUPLE: 256color stream ;
C: <256color> 256color C: <256color> 256color
@ -79,7 +86,8 @@ 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 [ "\e[0m" surround ] unless-empty [ font-style swap at [ font-styles ] [ "" ] if* ]
tri 3append [ "\e[0m" surround ] unless-empty
] dip stream>> stream-write ; ] dip stream>> stream-write ;
M: 256color make-span-stream M: 256color make-span-stream