urxvt-extensions/perl/linefeed

   1 #! perl
   2
   3 use constant {RXVT_CAPTURE=>1, RXVT_PASS=>()};
   4
   5 sub on_osc_seq_perl
   6 {
   7         my ($rxvt, $osc, $resp) = @_;
   8         if($osc eq "linefeed")
   9         {
  10                 $rxvt->scr_add_lines("\n");
  11                 return RXVT_CAPTURE;
  12         }
  13         return RXVT_PASS;
  14 }
  15
  16 sub on_user_command
  17 {
  18         my ($rxvt, $comm) = @_;
  19         if($comm eq "linefeed_and_meta_return")
  20         {
  21                 $rxvt->scr_add_lines("\n");
  22                 $rxvt->tt_write("\x1B\r");
  23         }
  24 }
  25
  26 1;