wgetpaste support for urxvt.

1 files changed, 26 insertions, 0 deletions

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/^.*?://;
+}