urxvt/reverse


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#!/usr/bin/perl

# Implement a 'toggle' command that toggles reverse video on and off

sub on_action
{
    my ($self, $cmd) = @_;

    if ($cmd eq "toggle") {
        my $e = $self->{enabled};
        my $act = $e ? "l" : "h";
        $self->{enabled} = not $e;
        $self->cmd_parse("\033[?5" . $act)
    }
}

sub on_start
{
    my ($self) = @_;

    $self->{enabled} = 0;
}