Escape terminal title sequence

This commit is contained in:
Emmanuel BENOîT 2020-10-21 12:45:57 +02:00
parent 9907544111
commit d6fc8dcacb

1
spp.pl
View file

@ -587,6 +587,7 @@ sub gen_term_title
my $out = ''; my $out = '';
$out .= "\\033]0;$main\\007" if $CONFIG{term_set_title} & 1; $out .= "\\033]0;$main\\007" if $CONFIG{term_set_title} & 1;
$out .= "\\033]1;$main\\007" if $CONFIG{term_set_title} & 2; $out .= "\\033]1;$main\\007" if $CONFIG{term_set_title} & 2;
$out = "\\[$out\\]" if $out;
return $out; return $out;
} }