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

diff --git a/term-colours.4th b/term-colours.4th
new file mode 100644
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 )