blob: 7462319c27caee16c260c620e3e22f5561f1e4fc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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/^.*?://;
}
|