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

#! perl

# this extension implements scrollback buffer search

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

   my $hotkey = $self->{argv}[0] || "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->{history} = [];
   $self->{view_start} = $self->view_start;
   $self->{pty_ev_events} = $self->pty_ev_events (urxvt::EVENT_NONE);

   $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 man ${urxvt::RXVTNAME}perl");

   $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};
}

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

   $self->msg ("escape=exit, enter=accept, /=start search, n=next, p=previous, G=bottom");

   delete $self->{in_search};
}

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

   my $row = -$self->view_start + ($self->nrow >> 1) + $offset;

   delete $self->{found};

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

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

   while ($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->view_start (-$row + ($self->nrow >> 1));
         last;
      }

      $row = $line->beg - 1;
   }

   $self->msg ("enter/type/backspace: /$self->{search}_"
               . ($self->{found} ? "" : " (not found)"));
   $self->scr_bell unless $self->{found};
}

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

   return unless $self->{found};

   $self->scr_xor_span (@$_, urxvt::SET_FGCOLOR (urxvt::RS_RVid, 15))
      for @{ $self->{found} };

   ()
}

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

   if (exists $self->{in_search}) {
      if ($keysym == 0xff0d || $keysym == 0xff8d) {
         $self->idle;
      } elsif ($keysym == 0xff1b) {
         $self->view_start ($self->{in_search});
         $self->idle;
      } elsif ($keysym == 0xff08) {
         substr $self->{search}, -1, 1, "";
         $self->search;
      } elsif ($string ne "") {
         return;
      }

   } else {
      if ($keysym == 0xff0d || $keysym == 0xff8d) {
         # OK
         $self->leave;
      } elsif ($keysym == 0xff1b) {
         $self->view_start ($self->{view_start});
         $self->leave;
      } elsif ($keysym == 0xff52) {
         $self->view_start ($self->view_start + 1);
      } elsif ($keysym == 0xff54) {
         $self->view_start ($self->view_start - 1);
      } elsif ($string eq "/") {
         delete $self->{manpage_overlay};
         $self->{in_search} = $self->view_start;
         $self->search;
      } elsif ($string eq "G") {
         $self->{history} = [];
         $self->view_start (0);
      } 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 ($string ne "") {
         $self->scr_bell;
      }
   }

   1
}

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

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

   1
}


Revision:	1.8
Committed:	Tue Jan 10 04:23:39 2006 UTC (20 years, 9 months ago) by root
Branch:	MAIN
Changes since 1.7:	+25 -12 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			my $hotkey = $self->{argv}[0] \|\| "M-s";
9
10	root	1.4	$self->parse_keysym ($hotkey, "perl:searchable-scrollback:start")
11			or warn "unable to register '$hotkey' as scrollback search start hotkey\n";
12	root	1.1
13			()
14			}
15
16			sub on_keyboard_command {
17			my ($self, $cmd) = @_;
18
19	root	1.8	$cmd eq "searchable-scrollback:start"
20			and $self->enter;
21	root	1.1
22			()
23			}
24
25			sub msg {
26			my ($self, $msg) = @_;
27
28			$self->{overlay} = $self->overlay (0, -1, $self->ncol, 1, urxvt::OVERLAY_RSTYLE, 0);
29			$self->{overlay}->set (0, 0, $self->special_encode ($msg));
30			}
31
32			sub enter {
33			my ($self) = @_;
34
35			return if $self->{overlay};
36
37	root	1.8	$self->{history} = [];
38			$self->{view_start} = $self->view_start;
39	root	1.1	$self->{pty_ev_events} = $self->pty_ev_events (urxvt::EVENT_NONE);
40
41			$self->enable (
42	root	1.2	key_press => \&key_press,
43	root	1.7	tt_write => \&tt_write,
44	root	1.2	refresh_begin => \&refresh,
45			refresh_end => \&refresh,
46	root	1.1	);
47
48	root	1.8	$self->{manpage_overlay} = $self->overlay (0, -2, $self->ncol, 1, urxvt::OVERLAY_RSTYLE, 0);
49			$self->{manpage_overlay}->set (0, 0, "scrollback search, see man ${urxvt::RXVTNAME}perl");
50
51	root	1.1	$self->idle;
52			}
53
54			sub leave {
55			my ($self) = @_;
56
57	root	1.7	$self->disable ("key_press", "tt_write", "refresh_begin", "refresh_end");
58	root	1.8	$self->pty_ev_events ($self->{pty_ev_events});
59	root	1.1
60	root	1.8	delete $self->{manpage_overlay};
61			delete $self->{overlay};
62			delete $self->{history};
63	root	1.1	}
64
65			sub idle {
66			my ($self) = @_;
67
68	root	1.8	$self->msg ("escape=exit, enter=accept, /=start search, n=next, p=previous, G=bottom");
69	root	1.1
70			delete $self->{in_search};
71			}
72
73			sub search {
74	root	1.5	my ($self, $offset) = @_;
75	root	1.1
76	root	1.5	my $row = -$self->view_start + ($self->nrow >> 1) + $offset;
77	root	1.1
78			delete $self->{found};
79
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			while ($row > -$self->nsaved) {
86			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			$self->view_start (-$row + ($self->nrow >> 1));
96			last;
97			}
98
99			$row = $line->beg - 1;
100			}
101
102			$self->msg ("enter/type/backspace: /$self->{search}_"
103	root	1.3	. ($self->{found} ? "" : " (not found)"));
104	root	1.1	$self->scr_bell unless $self->{found};
105			}
106
107	root	1.2	sub refresh {
108			my ($self) = @_;
109
110			return unless $self->{found};
111
112	root	1.5	$self->scr_xor_span (@$_, urxvt::SET_FGCOLOR (urxvt::RS_RVid, 15))
113	root	1.2	for @{ $self->{found} };
114
115			()
116			}
117
118			sub key_press {
119	root	1.1	my ($self, $event, $keysym, $string) = @_;
120
121			if (exists $self->{in_search}) {
122			if ($keysym == 0xff0d \|\| $keysym == 0xff8d) {
123	root	1.2	$self->idle;
124	root	1.1	} elsif ($keysym == 0xff1b) {
125	root	1.2	$self->view_start ($self->{in_search});
126			$self->idle;
127	root	1.1	} elsif ($keysym == 0xff08) {
128			substr $self->{search}, -1, 1, "";
129	root	1.2	$self->search;
130	root	1.1	} elsif ($string ne "") {
131	root	1.7	return;
132	root	1.1	}
133	root	1.8
134	root	1.1	} else {
135			if ($keysym == 0xff0d \|\| $keysym == 0xff8d) {
136			# OK
137			$self->leave;
138			} elsif ($keysym == 0xff1b) {
139			$self->view_start ($self->{view_start});
140			$self->leave;
141			} elsif ($keysym == 0xff52) {
142			$self->view_start ($self->view_start + 1);
143			} elsif ($keysym == 0xff54) {
144			$self->view_start ($self->view_start - 1);
145			} elsif ($string eq "/") {
146	root	1.8	delete $self->{manpage_overlay};
147	root	1.1	$self->{in_search} = $self->view_start;
148			$self->search;
149	root	1.3	} elsif ($string eq "G") {
150	root	1.8	$self->{history} = [];
151	root	1.3	$self->view_start (0);
152	root	1.1	} elsif ($string eq "n") {
153	root	1.8	if ($self->{found} && @{ $self->{found} }) {
154			push @{ $self->{history} }, [$self->view_start, $self->{found}];
155			$self->search (-1);
156			$self->idle;
157			}
158	root	1.6	} elsif ($string eq "p" or $string eq "N") {
159	root	1.8	if (my $prev = pop @{ $self->{history} }) {
160			$self->view_start ($prev->[0]);
161			$self->{found} = $prev->[1];
162			$self->want_refresh;
163			}
164	root	1.1	} elsif ($string ne "") {
165			$self->scr_bell;
166			}
167			}
168
169			1
170			}
171
172	root	1.7	sub tt_write {
173			my ($self, $data) = @_;
174
175			$self->{search} .= $self->locale_decode ($data);
176			$self->search;
177
178			1
179			}
180
181	root	1.1