The Lambda Lab
/
projects
/
scheme.forth.jl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Working on quasiquote.
[scheme.forth.jl.git]
/
term-colours.4th
diff --git
a/term-colours.4th
b/term-colours.4th
index
97582dc
..
1852a20
100644
(file)
--- a/
term-colours.4th
+++ b/
term-colours.4th
@@
-10,14
+10,6
@@
escape emit [char] 0 + emit escape-end
;
escape emit [char] 0 + emit escape-end
;
-: reset-term
- escape [char] 0 escape-end
-;
-
-: bold
- escape [char] 1 emit escape-end
-;
-
: colour
create ,
does>
: colour
create ,
does>
@@
-25,6
+17,7
@@
does>
set-term-colour
;
set-term-colour
;
+0 colour black
1 colour red
2 colour green
3 colour yellow
1 colour red
2 colour green
3 colour yellow
@@
-33,8
+26,22
@@
does>
6 colour cyan
7 colour white
6 colour cyan
7 colour white
+: bold
+ escape [char] 1 emit escape-end
+;
+
+: reset-term
+ escape [char] 0 emit escape-end
+;
+
+: clear-term
+ escape [char] 2 emit [char] J emit
+ escape [char] 0 emit [char] ; emit [char] 0 emit [char] f emit
+;
+
\ Example usage:
\ fg red ( set fg colour to red )
\ bg green ( set bg colour to green )
\ bold ( use a bold font )
\ reset-term ( return everything to normal )
\ Example usage:
\ fg red ( set fg colour to red )
\ bg green ( set bg colour to green )
\ bold ( use a bold font )
\ reset-term ( return everything to normal )
+\ clear-term ( clear terminal and return cursor to origin )