#! perl -w # Author: Bert Muennich # Website: http://www.github.com/muennich/urxvt-perls # License: GPLv2 # Use keyboard shortcuts to copy the selection to the clipboard and to paste # the clipboard contents (optionally escaping all special characters). # Requires xsel to be installed! # Usage: put the following lines in your .Xdefaults/.Xresources: # URxvt.perl-ext-common: ...,clipboard # URxvt.keysym.M-c: perl:clipboard:copy # URxvt.keysym.M-v: perl:clipboard:paste # URxvt.keysym.M-C-v: perl:clipboard:paste_escaped # Options: # URxvt.clipboard.autocopy: If true, PRIMARY overwrites clipboard # You can also overwrite the system commands to use for copying/pasting. # The default ones are: # URxvt.clipboard.copycmd: xsel -ib # URxvt.clipboard.pastecmd: xsel -ob # If you prefer xclip, then put these lines in your .Xdefaults/.Xresources: # URxvt.clipboard.copycmd: xclip -i -selection clipboard # URxvt.clipboard.pastecmd: xclip -o -selection clipboard # On Mac OS X, put these lines in your .Xdefaults/.Xresources: # URxvt.clipboard.copycmd: pbcopy # URxvt.clipboard.pastecmd: pbpaste # The use of the functions should be self-explanatory! use strict; sub on_start { my ($self) = @_; $self->{copy_cmd} = $self->x_resource('clipboard.copycmd') || 'xsel -ib'; $self->{paste_cmd} = $self->x_resource('clipboard.pastecmd') || 'xsel -ob'; if ($self->x_resource('clipboard.autocopy') eq 'true') { $self->enable(sel_grab => \&sel_grab); } () } sub copy { my ($self) = @_; if (open(CLIPBOARD, "| $self->{copy_cmd}")) { my $sel = $self->selection(); utf8::encode($sel); print CLIPBOARD $sel; close(CLIPBOARD); } else { print STDERR "error running '$self->{copy_cmd}': $!\n"; } () } sub paste { my ($self) = @_; my $str = `$self->{paste_cmd}`; if ($? == 0) { $self->tt_paste($str); } else { print STDERR "error running '$self->{paste_cmd}': $!\n"; } () } sub paste_escaped { my ($self) = @_; my $str = `$self->{paste_cmd}`; if ($? == 0) { $str =~ s/([!#\$%&\*\(\) ='"\\\|\[\]`~,<>\?])/\\\1/g; $self->tt_paste($str); } else { print STDERR "error running '$self->{paste_cmd}': $!\n"; } () } sub on_user_command { my ($self, $cmd) = @_; if ($cmd eq "clipboard:copy") { $self->copy; } elsif ($cmd eq "clipboard:paste") { $self->paste; } elsif ($cmd eq "clipboard:paste_escaped") { $self->paste_escaped; } () } sub sel_grab { my ($self) = @_; $self->copy; () }