Add remainder of supported ANSI escape sequences.

MFC after:	3 days
X-MFC-to:	stable/10
This commit is contained in:
Devin Teske 2015-04-01 01:17:36 +00:00
parent ae8fb6eac6
commit 20539a9a2a
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=280934

View File

@ -50,3 +50,15 @@ marker task-screen.4th
\ Mode end (clear attributes)
: me ( -- ) escc [char] m emit ;
\ Enable bold mode ( Esc-[1m )
: b ( -- ) escc 1 .# [char] m emit ;
\ Disable bold mode ( Esc-[22m )
: -b ( -- ) escc 22 .# [char] m emit ;
\ Enable inverse foreground/background mode ( Esc-[7m )
: inv ( -- ) escc 7 .# [char] m emit ;
\ Disable inverse foreground/background mode ( Esc-[27m )
: -inv ( -- ) escc 27 .# [char] m emit ;