X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=term-colours.4th;h=1852a20a73c07d2f3f4a48777d0822451a526f88;hb=3eaf389aa81bcfbf8dd64c89520925413d5c2390;hp=5c08a008433d92b8cd3c1cece6fe006933837b36;hpb=24acc44c999a869d56c734b5e30fae16d6c516c6;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 )