1 sub on_osc_seq {
2 my ($self, $seq, $value) = @_;
3
4 return unless $seq == 1;
5
6
7 my $icon = find_icon_path $self, $value;
8
9
10 my @cmd = (
11 'set-icon.py',
12 $icon,
13 sprintf "0x%x", $self->{term}->parent
14 );
15
16
17 %ENV = %{$self->env};
18
19
20 !system { $cmd[0] } @cmd;
21 }
22
23 sub find_icon_path {
24
25 my ($self, $search) = @_;
26
27
28 return $search if $search =~ m{/};
29
30
31 my $fn = "/usr/share/icons/gnome/32x32/apps/$search.png";
32 return $fn if -e $fn;
33
34
35 "/usr/share/icons/gnome/32x32/apps/gnome-terminal.png";
36 }
37