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