jetpac/dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix watcher prompt detection

Browse Source
This commit is contained in:
Petr Nyc
2026-06-05 12:13:19 +02:00
parent 657223f051
commit 4d6a76487f
1 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
bin/watcher.pl
View File

@@ -23,7 +23,6 @@ use IO::Select;
use POSIX qw(strftime mkfifo);
my $SCRIPT = '/Users/jetpac/bin/watcher.pl';
my $LINES = 20;
my $COOLDOWN = $ENV{WATCHER_COOLDOWN} || 60;
my $LOG_FILE = $ENV{WATCHER_LOG} || '';
my @PROMPTS = (
@@ -219,7 +218,7 @@ sub maybe_confirm {
my ($sock, $pane, $last_confirm_ref, $last_signature_ref, $source) = @_;
my $now = time;
my ($ok, $screen) = rendered_last_lines($sock, $pane, $LINES);
my ($ok, $screen) = rendered_visible_pane($sock, $pane);
exit 0 if !$ok;
return if !has_any_prompt($screen);
@@ -240,21 +239,18 @@ sub maybe_confirm {
}
}
sub rendered_last_lines {
my ($sock, $pane, $lines) = @_;
sub rendered_visible_pane {
my ($sock, $pane) = @_;
my @cmd = (
'tmux', '-S', $sock,
'capture-pane', '-p',
'-t', $pane,
'-S', '-' . ($lines * 3),
);
my ($ok, $out) = run_capture(@cmd);
return (0, '') if !$ok;
my @lines = split /\n/, clean_text($out);
@lines = @lines > $lines ? @lines[-$lines .. -1] : @lines;
return (1, join("\n", @lines));
return (1, clean_text($out));
}
sub start_pipe {