diff options
Diffstat (limited to 'urxvt')
-rwxr-xr-x | urxvt/reverse | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/urxvt/reverse b/urxvt/reverse new file mode 100755 index 0000000..8e99201 --- /dev/null +++ b/urxvt/reverse @@ -0,0 +1,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; +} |