[ViewVC] Annotation of: cvs/rxvt-unicode/src/perl/searchable-scrollback

#! perl

# this extension implements scrollback buffer search

sub on_init {
   my ($self) = @_;

   my $hotkey = $self->{argv}[0]
                || $self->x_resource ("searchable-scrollback")
                || "M-s";

   $self->parse_keysym ($hotkey, "perl:searchable-scrollback:start")
      or warn "unable to register '$hotkey' as scrollback search start hotkey\n";

   ()
}

sub on_keyboard_command {
   my ($self, $cmd) = @_;

   $cmd eq "searchable-scrollback:start"
      and $self->enter;

   ()
}

sub msg {
   my ($self, $msg) = @_;

   $self->{overlay} = $self->overlay (0, -1, $self->ncol, 1, urxvt::OVERLAY_RSTYLE, 0);
   $self->{overlay}->set (0, 0, $self->special_encode ($msg));
}

sub enter {
   my ($self) = @_;

   return if $self->{overlay};

   $self->{view_start} = $self->view_start;
   $self->{pty_ev_events} = $self->pty_ev_events (urxvt::EVENT_NONE);
   $self->{row} = $self->nrow - 1;

   $self->enable (
      key_press     => \&key_press,
      tt_write      => \&tt_write,
      refresh_begin => \&refresh,
      refresh_end   => \&refresh,
   );

   $self->{manpage_overlay} = $self->overlay (0, -2, $self->ncol, 1, urxvt::OVERLAY_RSTYLE, 0);
   $self->{manpage_overlay}->set (0, 0, "scrollback search, see the ${urxvt::RXVTNAME}perl manpage for details");

   $self->idle;
}

sub leave {
   my ($self) = @_;

   $self->disable ("key_press", "tt_write", "refresh_begin", "refresh_end");
   $self->pty_ev_events ($self->{pty_ev_events});

   delete $self->{manpage_overlay};
   delete $self->{overlay};
   delete $self->{history};
   delete $self->{search};
}

sub idle {
   my ($self) = @_;

   $self->msg ("(escape cancels) /$self->{search}█");
}

sub search {
   my ($self, $dir) = @_;

   delete $self->{found};
   my $row = $self->{row};

   my $search = $self->special_encode ($self->{search});

   no re 'eval'; # just to be sure
   my $re = qr/$search/;

   while ($self->nrow > $row && $row > -$self->nsaved) {
      my $line = $self->line ($row)
         or last;

      my $text = $line->t;
      if ($text =~ /$re/g) {
         do {
            push @{ $self->{found} }, [$line->coord_of ($-[0]), $line->coord_of ($+[0])];
         } while $text =~ /$re/g;

         $self->{row} = $row;
         $self->view_start (-$row + ($self->nrow >> 1));
         $self->want_refresh;
         last;
      }

      $row = $dir < 0 ? $line->beg - 1 : $line->end + 1;
   }

   $self->scr_bell unless $self->{found};
}

sub refresh {
   my ($self) = @_;

   my $xor = urxvt::RS_RVid | urxvt::RS_Uline;
   for (@{ $self->{found} }) {
      $self->scr_xor_span (@$_, $xor);
      $xor = urxvt::RS_RVid;
   }

   ()
}

sub key_press {
   my ($self, $event, $keysym, $string) =  @_;

   delete $self->{manpage_overlay};

   if ($keysym == 0xff0d || $keysym == 0xff8d) {
      if ($self->{found}) {
         my ($br, $bc, $er, $ec) = @{ $self->{found}[0] };
         $self->selection_beg ($br, $bc);
         $self->selection_end ($er, $ec);
         $self->selection_make ($event->{time});
      }
      $self->leave;
   } elsif ($keysym == 0xff1b) {
      $self->view_start ($self->{view_start});
      $self->leave;
   } elsif ($keysym == 0xff57) {
      $self->{row} = $self->nrow - 1;
      $self->view_start (0);
   } elsif ($keysym == 0xff52) {
      $self->{row}-- if $self->{row} > -$self->nsaved;
      $self->search (-1);
   } elsif ($keysym == 0xff54) {
      $self->{row}++ if $self->{row} < $self->nrow;
      $self->search (+1);
   } elsif ($string eq "n") {
      if ($self->{found} && @{ $self->{found} }) {
         push @{ $self->{history} }, [$self->view_start, $self->{found}];
         $self->search (-1);
         $self->idle;
      }
   } elsif ($string eq "p" or $string eq "N") {
      if (my $prev = pop @{ $self->{history} }) {
         $self->view_start ($prev->[0]);
         $self->{found} = $prev->[1];
         $self->want_refresh;
      }
   } elsif ($keysym == 0xff08) {
      substr $self->{search}, -1, 1, "";
      $self->search;
      $self->idle;
   } elsif ($string =~ /^[^\x00-\x1f\x80-\xaf]+$/) {
      return; # pass to tt_write
   }

   1
}

sub tt_write {
   my ($self, $data) = @_;

   $self->{search} .= $self->locale_decode ($data);
   $self->search (-1);
   $self->idle;

   1
}


Revision:	1.13
Committed:	Thu Jan 12 05:22:47 2006 UTC (18 years, 4 months ago) by root
Branch:	MAIN
Changes since 1.12:	+53 -59 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#! perl
2
3			# this extension implements scrollback buffer search
4
5			sub on_init {
6			my ($self) = @_;
7
8	root	1.12	my $hotkey = $self->{argv}[0]
9			\|\| $self->x_resource ("searchable-scrollback")
10			\|\| "M-s";
11	root	1.1
12	root	1.4	$self->parse_keysym ($hotkey, "perl:searchable-scrollback:start")
13			or warn "unable to register '$hotkey' as scrollback search start hotkey\n";
14	root	1.1
15			()
16			}
17
18			sub on_keyboard_command {
19			my ($self, $cmd) = @_;
20
21	root	1.8	$cmd eq "searchable-scrollback:start"
22			and $self->enter;
23	root	1.1
24			()
25			}
26
27			sub msg {
28			my ($self, $msg) = @_;
29
30			$self->{overlay} = $self->overlay (0, -1, $self->ncol, 1, urxvt::OVERLAY_RSTYLE, 0);
31			$self->{overlay}->set (0, 0, $self->special_encode ($msg));
32			}
33
34			sub enter {
35			my ($self) = @_;
36
37			return if $self->{overlay};
38
39	root	1.8	$self->{view_start} = $self->view_start;
40	root	1.1	$self->{pty_ev_events} = $self->pty_ev_events (urxvt::EVENT_NONE);
41	root	1.13	$self->{row} = $self->nrow - 1;
42	root	1.1
43			$self->enable (
44	root	1.2	key_press => \&key_press,
45	root	1.7	tt_write => \&tt_write,
46	root	1.2	refresh_begin => \&refresh,
47			refresh_end => \&refresh,
48	root	1.1	);
49
50	root	1.8	$self->{manpage_overlay} = $self->overlay (0, -2, $self->ncol, 1, urxvt::OVERLAY_RSTYLE, 0);
51	root	1.11	$self->{manpage_overlay}->set (0, 0, "scrollback search, see the ${urxvt::RXVTNAME}perl manpage for details");
52	root	1.8
53	root	1.1	$self->idle;
54			}
55
56			sub leave {
57			my ($self) = @_;
58
59	root	1.7	$self->disable ("key_press", "tt_write", "refresh_begin", "refresh_end");
60	root	1.8	$self->pty_ev_events ($self->{pty_ev_events});
61	root	1.1
62	root	1.8	delete $self->{manpage_overlay};
63			delete $self->{overlay};
64			delete $self->{history};
65	root	1.13	delete $self->{search};
66	root	1.1	}
67
68			sub idle {
69			my ($self) = @_;
70
71	root	1.13	$self->msg ("(escape cancels) /$self->{search}█");
72	root	1.1	}
73
74			sub search {
75	root	1.13	my ($self, $dir) = @_;
76	root	1.1
77			delete $self->{found};
78	root	1.13	my $row = $self->{row};
79	root	1.1
80	root	1.7	my $search = $self->special_encode ($self->{search});
81
82	root	1.1	no re 'eval'; # just to be sure
83	root	1.7	my $re = qr/$search/;
84	root	1.1
85	root	1.13	while ($self->nrow > $row && $row > -$self->nsaved) {
86	root	1.1	my $line = $self->line ($row)
87			or last;
88
89			my $text = $line->t;
90			if ($text =~ /$re/g) {
91			do {
92	root	1.2	push @{ $self->{found} }, [$line->coord_of ($-[0]), $line->coord_of ($+[0])];
93	root	1.1	} while $text =~ /$re/g;
94
95	root	1.13	$self->{row} = $row;
96	root	1.1	$self->view_start (-$row + ($self->nrow >> 1));
97	root	1.13	$self->want_refresh;
98	root	1.1	last;
99			}
100
101	root	1.13	$row = $dir < 0 ? $line->beg - 1 : $line->end + 1;
102	root	1.1	}
103
104			$self->scr_bell unless $self->{found};
105			}
106
107	root	1.2	sub refresh {
108			my ($self) = @_;
109
110	root	1.13	my $xor = urxvt::RS_RVid \| urxvt::RS_Uline;
111			for (@{ $self->{found} }) {
112			$self->scr_xor_span (@$_, $xor);
113			$xor = urxvt::RS_RVid;
114			}
115	root	1.2
116			()
117			}
118
119			sub key_press {
120	root	1.1	my ($self, $event, $keysym, $string) = @_;
121
122	root	1.13	delete $self->{manpage_overlay};
123
124			if ($keysym == 0xff0d \|\| $keysym == 0xff8d) {
125			if ($self->{found}) {
126			my ($br, $bc, $er, $ec) = @{ $self->{found}[0] };
127			$self->selection_beg ($br, $bc);
128			$self->selection_end ($er, $ec);
129			$self->selection_make ($event->{time});
130			}
131			$self->leave;
132			} elsif ($keysym == 0xff1b) {
133			$self->view_start ($self->{view_start});
134			$self->leave;
135			} elsif ($keysym == 0xff57) {
136			$self->{row} = $self->nrow - 1;
137			$self->view_start (0);
138			} elsif ($keysym == 0xff52) {
139			$self->{row}-- if $self->{row} > -$self->nsaved;
140			$self->search (-1);
141			} elsif ($keysym == 0xff54) {
142			$self->{row}++ if $self->{row} < $self->nrow;
143			$self->search (+1);
144			} elsif ($string eq "n") {
145			if ($self->{found} && @{ $self->{found} }) {
146			push @{ $self->{history} }, [$self->view_start, $self->{found}];
147			$self->search (-1);
148	root	1.2	$self->idle;
149	root	1.1	}
150	root	1.13	} elsif ($string eq "p" or $string eq "N") {
151			if (my $prev = pop @{ $self->{history} }) {
152			$self->view_start ($prev->[0]);
153			$self->{found} = $prev->[1];
154			$self->want_refresh;
155	root	1.1	}
156	root	1.13	} elsif ($keysym == 0xff08) {
157			substr $self->{search}, -1, 1, "";
158			$self->search;
159			$self->idle;
160			} elsif ($string =~ /^[^\x00-\x1f\x80-\xaf]+$/) {
161			return; # pass to tt_write
162	root	1.1	}
163
164			1
165			}
166
167	root	1.7	sub tt_write {
168			my ($self, $data) = @_;
169
170			$self->{search} .= $self->locale_decode ($data);
171	root	1.13	$self->search (-1);
172			$self->idle;
173	root	1.7
174			1
175			}
176
177	root	1.1