X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=term-colours.4th;h=1852a20a73c07d2f3f4a48777d0822451a526f88;hb=bc4c866824b12208394e0ca8d6468ed8cd5c49a8;hp=5c08a008433d92b8cd3c1cece6fe006933837b36;hpb=2ab189727b2f1502367dae83dfaf931e3eab1684;p=scheme.forth.jl.git

diff --git a/term-colours.4th b/term-colours.4th
index 5c08a00..1852a20 100644
--- a/term-colours.4th
+++ b/term-colours.4th
@@ -10,19 +10,6 @@
     escape emit [char] 0 + 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
-;
-
-: bold
-    escape [char] 1 emit escape-end
-;
-
 : colour
     create ,
 does>
@@ -39,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 )