Autodetect terminal caps in ScrollingSingleLineInput

Author: japhb

Changes

@@ -1,6 +1,13 @@
 Revision history for Terminal-LineEditor
 
 {{$NEXT}}
+  [Compatibility]
+  - Autodect terminal capabilities based on environment variables
+
+  [Packaging]
+  - Update Terminal::Capabilities dependency to :ver<0.0.8+> for terminal
+    autodetection functionality
+
 
 0.0.20  2025-05-13T17:12:27-07:00
   [Bug fix]

META6.json

@@ -8,7 +8,7 @@
   "depends": [
     "Terminal::API:auth<zef:patrickb>:ver<1.0.3+>",
     "Terminal::ANSIParser:auth<zef:japhb>:ver<0.0.3+>",
-    "Terminal::Capabilities:auth<zef:japhb>:ver<0.0.1+>",
+    "Terminal::Capabilities:auth<zef:japhb>:ver<0.0.8+>",
     "Text::MiscUtils:auth<zef:japhb>:ver<0.0.8+>"
   ],
   "description": "Generalized terminal line editing",

lib/Terminal/LineEditor/DuospaceInput.rakumod

@@ -2,6 +2,7 @@
 
 use Text::MiscUtils::Layout;
 use Terminal::Capabilities;
+use Terminal::Capabilities::Autodetect;
 
 use Terminal::LineEditor::EditableBuffer;
 
@@ -48,8 +49,7 @@ class Terminal::LineEditor::ScrollingSingleLineInput
  does Terminal::LineEditor::DuospaceLayoutCache {
     has UInt:D $.display-width is required;
 
-    # For backwards compatibility, default to symbol-set Uni1
-    has Terminal::Capabilities:D $.caps .= new(symbol-set => symbol-set('Uni1'));
+    has Terminal::Capabilities $.caps;
 
     has Str   $.left-scroll-mark;
     has Str   $.right-scroll-mark;
@@ -64,6 +64,9 @@ class Terminal::LineEditor::ScrollingSingleLineInput
         # Initialize scroll-cursor so buffer is ready
         $!scroll-cursor = self.buffer.add-cursor(:!auto-edit-move);
 
+        # Autodetect capabilities if not supplied
+        $!caps //= terminal-env-detect()[0];
+
         # Default scroll marks to match symbol set
         my constant %marks = ASCII  => « < > »,
                              Latin1 => < « » >,

t/11-scrolling-single-line-input.rakutest

@@ -26,11 +26,11 @@ isa-ok  $input.insert-cursor, Terminal::LineEditor::SingleLineTextBuffer::Cursor
 isa-ok  $input.scroll-cursor, $input.insert-cursor.WHAT;
 
 
-# Default marks
-is $input.left-scroll-mark,     '◀';
-is $input.right-scroll-mark,    '▶';
-is $input.left-no-scroll-mark,  ' ';
-is $input.right-no-scroll-mark, ' ';
+# Default marks (only specify width for marks that depend on terminal auto-detect)
+is $input.left-scroll-mark.chars,  1;
+is $input.right-scroll-mark.chars, 1;
+is $input.left-no-scroll-mark,   ' ';
+is $input.right-no-scroll-mark,  ' ';
 
 
 # available-width()