Moved source to src directory.

[scheme.forth.jl.git] / term-colours.4th

diff --git a/term-colours.4th b/term-colours.4th
deleted file mode 100644 (file)
index 1852a20..0000000
--- a/term-colours.4th
+++ /dev/null
@@ -1,47 +0,0 @@
-\ Words for controlling terminal colours via ANSI escape sequences
-
-: escape 27 emit [char] [ emit ;
-: escape-end [char] m emit ;
-
-: fg [char] 3 ;
-: bg [char] 4 ;
-
-: set-term-colour
-    escape emit [char] 0 + emit escape-end
-;
-
-: colour
-    create ,
-does>
-    @ swap
-    set-term-colour
-;
-
-0 colour black
-1 colour red
-2 colour green
-3 colour yellow
-4 colour blue
-5 colour magenta
-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 )