X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=term-colours.4th;h=1852a20a73c07d2f3f4a48777d0822451a526f88;hp=97582dc45034f18ee3c93dd0a698944e9e833ae6;hb=3eaf389aa81bcfbf8dd64c89520925413d5c2390;hpb=ab2c14cdd02f93d17f8784e790415de0e6d7b996

diff --git a/term-colours.4th b/term-colours.4th
index 97582dc..1852a20 100644
--- a/term-colours.4th
+++ b/term-colours.4th
@@ -10,14 +10,6 @@
     escape emit [char] 0 + emit escape-end
 ;
 
-: reset-term
-    escape [char] 0 escape-end
-;
-
-: bold
-    escape [char] 1 emit escape-end
-;
-
 : colour
     create ,
 does>
@@ -25,6 +17,7 @@ does>
     set-term-colour
 ;
 
+0 colour black
 1 colour red
 2 colour green
 3 colour yellow
@@ -33,8 +26,22 @@ does>
 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 )
+\ clear-term    ( clear terminal and return cursor to origin )