urxvt: add an extension for toggling reverse video

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;
+}