From 94aa19c42b640fc58aeb954628862748bf08750b Mon Sep 17 00:00:00 2001
From: Anton Khirnov <anton@khirnov.net>
Date: Sun, 29 Jan 2023 10:00:51 +0100
Subject: urxvt: add an extension for toggling reverse video

---
 urxvt/reverse | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 urxvt/reverse

(limited to 'urxvt')

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;
+}
-- 
cgit v1.2.3