add clipboard script for use with urxvt

wjackson · Aug 24, 2011 · 1e5f012 · 1e5f012
1 parent d0ba8b5
commit 1e5f012
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/Xdefaults b/Xdefaults
@@ -32,3 +32,4 @@ URxvt.color7  : #D3D7CF
 URxvt.color15 : #EEEEEC
 
 URxvt*font: xft:DejaVuSansMono:pixelsize=13
+URxvt.perl-ext-common: default,matcher,clipboard
diff --git a/clipboard b/clipboard
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+
+sub on_sel_grab {
+    my $query=quotemeta $_[0]->selection;
+    $query=~ s/\n/\\n/g;
+    $query=~ s/\r/\\r/g;
+    system( "echo -en " . $query . " | xsel -i -b -p --display :0" );
+}