urxvt-extensions/perl/printscrollback

   1 #!/usr/bin/env perl
   2
   3 use constant {RXVT_CAPTURE=>1, RXVT_PASS=>(),};
   4
   5 sub on_user_command
   6 {
   7         my ($rxvt, $comm) = @_;
   8         if($comm eq "print-scrollback")
   9         {
  10                 my $state = urxvt::ShiftMask;
  11                 my $keycode = 111;  # Print
  12                 $rxvt->key_press($state, $keycode);
  13                 $rxvt->key_release($state, $keycode);
  14         }
  15 }