urxvt-yac/clipboard

   1 #! /usr/bin/perl
   2
   3 # Usage:
   4 # URxvt.perl-ext-common: clipboard
   5 # URxvt.keysym.Mod4-c: perl:clipboard:copy
   6 # URxvt.keysym.Mod4-v: perl:clipboard:paste
   7
   8 # consult command "xmodmap" to see what your modifier mapped into.
   9
  10 sub copy {
  11    my ($self) = @_;
  12    my $pid = open( pout, "| xsel -ib" ) or die "fork";
  13    print pout $self->selection;
  14    close(pout) or die "close";
  15 }
  16
  17 sub paste {
  18    my ($self) = @_;
  19    my $content = `xsel -ob` ;
  20    $self->tt_write ($content);
  21 }
  22
  23 sub on_user_command {
  24    my ($self, $cmd) = @_;
  25    if ($cmd eq "clipboard:copy") {
  26       $self->copy;
  27    }
  28    if ($cmd eq "clipboard:paste") {
  29       $self->paste;
  30    }
  31 }