Support --show-env option in terminal-autodetect

Author: japhb

Changes

@@ -1,6 +1,10 @@
 Revision history for Terminal-Capabilities
 
 {{$NEXT}}
+  [Features]
+  - Support --show-env option in `terminal-autodetect` to show values of all
+    known terminal-related environment variables
+
 
 0.0.4  2025-05-30T20:53:23-07:00
   [Features]
@@ -13,6 +17,7 @@ Revision history for Terminal-Capabilities
   - Document ::Autodetect module use in README
   - Various bits of README cleanup and clarification
 
+
 0.0.3  2023-12-29T19:39:04-08:00
   - Update test missed in WGL4R support changes
 

bin/terminal-autodetect

@@ -1,14 +1,52 @@
 #!/usr/bin/env raku
 use Terminal::Capabilities::Autodetect;
 
-my ($caps, $terminal, $version) = terminal-env-detect;
-put "Terminal: {$terminal // 'unknown'}";
-put "Version:  {$version  // 'unknown'}";
-put 'Caps:';
-
-for < symbol-set vt100-boxes bold italic inverse underline
-      color3bit colorbright color8bit color24bit
-      emoji-text emoji-color emoji-skin
-      emoji-iso emoji-reg emoji-zwj > {
-    printf "  %-11s  %s\n", $_, $caps."$_"();
+constant BOLD_YELLOW = "\e[1;33m";
+constant RESET       = "\e[0m";
+
+# Display a section of detected environment variables
+sub section($section, @vars) {
+    put BOLD_YELLOW ~ $section ~ RESET;
+    printf("%-22s  %s\n", $_, %*ENV{$_} // '') for @vars;
+    put '';
+}
+
+
+# Show current values of all known terminal-related environment variables
+sub show-env() {
+    section('General',     < LANG TERM COLORTERM COLORFGBG >);
+    section('Alacritty',   < ALACRITTY_WINDOW_ID ALACRITTY_LOG ALACRITTY_SOCKET >);
+    section('CRT',         < COLORSCHEMES_DIR KB_LAYOUT_DIR >);
+    section('kitty',       < KITTY_WINDOW_ID KITTY_PID KITTY_PUBLIC_KEY KITTY_INSTALLATION_DIR >);
+    section('Konsole',     < KONSOLE_DBUS_SERVICE KONSOLE_DBUS_SESSION KONSOLE_DBUS_WINDOW >);
+    section('Misc',        < TERM_PROGRAM TERM_PROGRAM_VERSION >);
+    section('MLTerm',      [ 'MLTERM', ]);
+    section('Qt',          < D_DISABLE_RT_SCREEN_SCALE QT_SCALE_FACTOR_ROUNDING_POLICY >);
+    section('Terminator',  < TERMINATOR_DBUS_NAME TERMINATOR_DBUS_PATH TERMINATOR_UUID >);
+    section('Terminology', < TERMINOLOGY XTERM_256_COLORS >);
+    section('Zutty',       [ 'ZUTTY_VERSION', ]);
+    section('VTE',         < VTE_VERSION TILIX_ID GNOME_TERMINAL_SERVICE GNOME_TERMINAL_SCREEN >);
+    section('Xterm',       < XTERM_VERSION XTERM_SHELL XTERM_LOCALE >);
+}
+
+
+#| Show autodetected terminal capabilities
+sub MAIN(Bool :$show-env,  #= Show known terminal-related environment values also
+        ) {
+    if $show-env {
+        show-env;
+        put BOLD_YELLOW ~ 'Detected' ~ RESET;
+    }
+
+    my ($caps, $terminal, $version) = terminal-env-detect;
+    put "Terminal: {$terminal // 'unknown'}";
+    put "Version:  {$version  // 'unknown'}";
+    put 'Caps:';
+
+    for < symbol-set vt100-boxes bold italic inverse underline
+          color3bit  colorbright color8bit color24bit
+          emoji-text emoji-color emoji-skin
+          emoji-iso  emoji-reg   emoji-zwj > {
+        printf "  %-11s  %s\n", $_, $caps."$_"();
+    }
 }