From 5601c301f9bd21b1badd3187ff0e36b6517c02e3 Mon Sep 17 00:00:00 2001
From: Iain Patterson <me@iain.cx>
Date: Thu, 15 Oct 2009 15:13:22 +0100
Subject: [PATCH] Remove broken urxvt vimselection plugin.

Half the time it doesn't work and we end up pasting junk into another
window.
---
 .Xdefaults          |  2 +-
 .urxvt/vimselection | 34 ----------------------------------
 2 files changed, 1 insertion(+), 35 deletions(-)
 delete mode 100644 .urxvt/vimselection

diff --git a/.Xdefaults b/.Xdefaults
index 354fc64..71c2aa6 100644
--- a/.Xdefaults
+++ b/.Xdefaults
@@ -41,7 +41,7 @@ urxvt.secondaryscroll: True
 urxvt.answerbackString: urxvt
 ! Change font size.
 urxvt.perl-lib: .urxvt
-urxvt.perl-ext: font,vimselection
+urxvt.perl-ext: font
 urxvt.keysym.M-minus: perl:font:smaller
 urxvt.keysym.M-equal: perl:font:bigger
 
diff --git a/.urxvt/vimselection b/.urxvt/vimselection
deleted file mode 100644
index 4a68fab..0000000
--- a/.urxvt/vimselection
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/usr/bin/perl
-
-# Hide Vim stuff like marks and numbers from the selection.
-sub on_sel_grab {
-  my ($self) = @_;
-
-  # Assume that the terminal will have been resized.
-  return unless $self->{term}->ncol > 80;
-
-  my $selection = $self->{term}->selection;
-  my @lines = split /\n/, $selection;
-  my @new;
-  my $n = 0;
-
-  foreach my $line (@lines) {
-    # If this is the first line only do the replacement at the beginning.
-    # Subsequent lines are necessarily captured from the first column.
-    unless ($n++) {
-      if (($self->{term}->selection_beg)[1] > 1) {
-        push @new, $line;
-        next;
-      }
-    }
-
-    # Strip signs, numbers (five or eight columns) and non-line squiggles.
-    if ($line =~ /^(. )?(~|[ \d]{5}|[ \d]{8})?/) { $line =~ s/// }
-
-    push @new, $line;
-  }
-
-  # Save the new selection.
-  $selection = join "\n", @new;
-  $self->{term}->selection($selection);
-}
-- 
2.7.4