Labels

$ tclsh << 'EOF'
> set fileName "colours.txt"
> set fileHandle [open $fileName r]
> set fileContent [read $fileHandle]
> close $fileHandle
> set colorMap [dict create {*}$fileContent]
> set outputList [list]
> dict for {text hex} $colorMap {
>     set cleanHex [string trimleft $hex "#"]
>     scan $cleanHex "%2x%2x%2x" r g b
>     lappend outputList "\033\[38;2;$r;$g;${b}m$text\033\[0m"
> }
> puts "# Gemini 3.5 generated this code."
> puts [join $outputList ", "]
> exit
> EOF
# Gemini 3.5 generated this code.
Awk, Csharp, Elisp, Haskell, Java, Julia, Python, Scheme, TeX, TypeScript
$

                 

$ perl -le '($h=$ARGV[0])=~s/^#//;
@c=map{hex}unpack"A2"x3,$h;
print"\e[38;2;".join(";",@c)."m$^V\e[0m";' '#0298c3'
v5.34.3
$



$ Rscript -e 'cat("\033[38;2;25;140;231m", version$nickname, "\033[0m\n")'
 Because it was There
$

 

$ tclsh << 'EOF'
> puts "\033\[30;48;2;228;204;152m[info patchlevel]\033\[0m"
> EOF
8.6.12
$

$ cat ansi.m4
divert(-1)
define(`grey', `syscmd(printf "\033[30;48;2;204;204;204m%s\033[0m\n" __m4_version__)')
divert(0)dnl
grey()dnl
$ m4 ansi.m4
1.9a.685-d69f-modified
$