diff options
Diffstat (limited to '.urxvt/extensions/wgetpaste')
-rw-r--r-- | .urxvt/extensions/wgetpaste | 29 |
1 files changed, 0 insertions, 29 deletions
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/^.*?://; -} |