From fb3dc5ec44ca5808380fee2f57cebd3acc018451 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ren=C3=A9=20=27Necoro=27=20Neumann?= <necoro@necoro.eu>
Date: Mon, 17 Feb 2020 23:15:08 +0100
Subject: Remove urxvt wgetpaste extension

---
 .Xresources                 |  2 +-
 .urxvt/extensions/wgetpaste | 29 -----------------------------
 2 files changed, 1 insertion(+), 30 deletions(-)
 delete mode 100644 .urxvt/extensions/wgetpaste

diff --git a/.Xresources b/.Xresources
index ad5d423..95d3c8d 100644
--- a/.Xresources
+++ b/.Xresources
@@ -25,7 +25,7 @@ URxvt.keysym.Shift-Down: command:\033]721;1\007
 
 ! perl-modules
 URxvt.perl-lib: HOME/.urxvt/extensions/
-URxvt.perl-ext-common:  default,url-select,clipboard,selection-autotransform,wgetpaste,cwd-spawn
+URxvt.perl-ext-common:  default,url-select,clipboard,selection-autotransform,cwd-spawn
 
 ! allow Alt-V/-C for pasting from/copying to clipboard
 URxvt.keysym.M-v: perl:clipboard:paste
diff --git a/.urxvt/extensions/wgetpaste b/.urxvt/extensions/wgetpaste
deleted file mode 100644
index 1f81f54..0000000
--- a/.urxvt/extensions/wgetpaste
+++ /dev/null
@@ -1,29 +0,0 @@
-#! perl -w
-
-# Adds an entry to the selection popup allowing to move the current selection
-# to a pastebin via wgetpaste.
-
-use IPC::Open2;
-
-sub on_start {
-    my ($self) = @_;
-
-    push @{ $self->{term}{selection_popup_hook} }, sub {
-            `which wgetpaste 2> /dev/null`
-                ? ("Pastebin" => \&wgetpaste)
-                : ()
-        };
-
-    return ()
-}
-
-sub wgetpaste {
-    my ($pout, $pin);
-
-    my $pid = open2($pout, $pin, 'wgetpaste');
-    print $pin $_;
-    close $pin;
-
-    # selection-popup expects the final text in $_
-    ($_ = <$pout>) =~ s/^.*?://;
-}
-- 
cgit v1.2.3