| 1 | #! perl |
1 | #! perl |
| 2 | |
2 | |
| 3 | #:META:X_RESOURCE:%.expr:string:background expression |
3 | #:META:X_RESOURCE:%.expr:string:background expression |
| 4 | #:META:X_RESOURCE:%.border.:boolean:respect the terminal border |
4 | #:META:X_RESOURCE:%.border.:boolean:respect the terminal border |
|
|
5 | |
|
|
6 | #TODO: once, rootalign |
| 5 | |
7 | |
| 6 | =head1 background - manage terminal background |
8 | =head1 background - manage terminal background |
| 7 | |
9 | |
| 8 | =head2 SYNOPSIS |
10 | =head2 SYNOPSIS |
| 9 | |
11 | |
| … | |
… | |
| 451 | |
453 | |
| 452 | my $repeat; |
454 | my $repeat; |
| 453 | |
455 | |
| 454 | if (my $again = $state->{again}) { |
456 | if (my $again = $state->{again}) { |
| 455 | $repeat = 1; |
457 | $repeat = 1; |
|
|
458 | my $self = $self; |
| 456 | $state->{timer} = $again == $old->{again} |
459 | $state->{timer} = $again == $old->{again} |
| 457 | ? $old->{timer} |
460 | ? $old->{timer} |
| 458 | : urxvt::timer->new->after ($again)->interval ($again)->cb (sub { |
461 | : urxvt::timer->new->after ($again)->interval ($again)->cb (sub { |
| 459 | ++$self->{counter}; |
462 | ++$self->{counter}; |
| 460 | $self->recalculate |
463 | $self->recalculate |
