summaryrefslogtreecommitdiffstats
path: root/.urxvt/ext/clipboard
blob: fb3660370e2d5666bb2eb57d3c2bd637336423d5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
#! /usr/bin/perl

sub on_sel_grab
{
  my $query = $_[0]->selection;
  open (my $pipe,'|-','xsel -ib') or die;
  print $pipe $query;
  close $pipe;
  open (my $pipe,'|-','xsel -ip') or die;
  print $pipe $query;
  close $pipe;
}