Moved ansi colour words to distinct file.

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

diff --git a/term-colours.4th b/term-colours.4th
new file mode 100644 (file)
index 0000000..97582dc
--- /dev/null
+++ b/term-colours.4th
@@ -0,0 +1,40 @@
+\ 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
+;
+
+: reset-term
+    escape [char] 0 escape-end
+;
+
+: bold
+    escape [char] 1 emit escape-end
+;
+
+: colour
+    create ,
+does>
+    @ swap
+    set-term-colour
+;
+
+1 colour red
+2 colour green
+3 colour yellow
+4 colour blue
+5 colour magenta
+6 colour cyan
+7 colour white
+
+\ 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 )