From 539deef6ed651d14691f6721ccb9979ca6cfc8e3 Mon Sep 17 00:00:00 2001
From: René 'Necoro' Neumann <necoro@necoro.net>
Date: Mon, 30 Sep 2013 15:53:25 +0200
Subject: wgetpaste support for urxvt.

---
 .Xresources                 |  3 ++-
 .urxvt/extensions/wgetpaste | 26 ++++++++++++++++++++++++++
 2 files changed, 28 insertions(+), 1 deletion(-)
 create mode 100644 .urxvt/extensions/wgetpaste

diff --git a/.Xresources b/.Xresources
index fcd6bb6..7bf7bea 100644
--- a/.Xresources
+++ b/.Xresources
@@ -23,7 +23,8 @@ URxvt.keysym.Shift-Up: command:\033]720;1\007
 URxvt.keysym.Shift-Down: command:\033]721;1\007
 
 ! perl-modules
-URxvt.perl-ext-common:  default,url-select,clipboard,selection-autotransform
+URxvt.perl-lib: /home/necoro/.urxvt/extensions/
+URxvt.perl-ext-common:  default,url-select,clipboard,selection-autotransform,wgetpaste
 
 ! 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
new file mode 100644
index 0000000..7462319
--- /dev/null
+++ b/.urxvt/extensions/wgetpaste
@@ -0,0 +1,26 @@
+#! 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 { ("Pastebin" => \&wgetpaste) }
+        if `which wgetpast 2> /dev/null`;
+
+    return ()
+}
+
+sub wgetpaste {
+    my ($pout, $pin);
+
+    my $pid = open2($pout, $pin, 'wgetpaste');
+    print $pin $_;
+    close $pin;
+
+    $_ = <$pout>;
+
+    s/^.*?://;
+}
-- 
cgit v1.2.3-70-g09d2