applications/urxvt-perls
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

url-select: added overlay showing index of current url

Browse Source
This commit is contained in:
Bert 2010-08-15 15:28:19 +02:00
parent 4404b5dd7b
commit 5c7b3bab22
1 changed files with 34 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
url-select
View File

@ -100,10 +100,10 @@ sub key_press {
deactivate($self); deactivate($self);
} elsif ($keysym == 0xff0d) { } elsif ($keysym == 0xff0d) {
# return # return
$self->exec_async($self->{browser}, ${$self->{found}[$self->{n}]}[4]); $self->exec_async($self->{browser}, ${$self->{found}[$self->{i}]}[4]);
deactivate($self); deactivate($self);
} elsif ($char eq 'y') { } elsif ($char eq 'y') {
$self->selection(${$self->{found}[$self->{n}]}[4]); $self->selection(${$self->{found}[$self->{i}]}[4]);
$self->selection_grab($event->{time}); $self->selection_grab($event->{time});
deactivate($self); deactivate($self);
} elsif ($char eq 'k') { } elsif ($char eq 'k') {
@ -157,10 +157,11 @@ sub select_next {
my ($self, $dir) = @_; my ($self, $dir) = @_;
my $row = $self->{row}; my $row = $self->{row};
if (($dir < 0 && $self->{n} > 0) || if (($dir < 0 && $self->{i} > 0) ||
($dir > 0 && $self->{n} < $#{ $self->{found} })) { ($dir > 0 && $self->{i} < $#{ $self->{found} })) {
# another url on current line # another url on current line
$self->{n} += $dir; $self->{num} += $dir;
$self->{i} += $dir;
hilight($self); hilight($self);
return; return;
} }
@ -183,7 +184,8 @@ sub select_next {
} while ($text =~ /$url_matcher/g); } while ($text =~ /$url_matcher/g);
$self->{row} = $row; $self->{row} = $row;
$self->{n} = $dir < 0 ? $#{$self->{found}} : 0; $self->{num} += $dir;
$self->{i} = $dir < 0 ? $#{$self->{found}} : 0;
hilight($self); hilight($self);
return; return;
} }
@ -206,6 +208,9 @@ sub hilight {
$self->view_start($top < 0 ? $top : 0); $self->view_start($top < 0 ? $top : 0);
} }
my $sign = $self->{num} < 0 ? "-" : $self->{num} > 0 ? "+" : " ";
status_area($self, sprintf("%s%03d", $sign, abs($self->{num})));
$self->want_refresh(); $self->want_refresh();
} }
@ -217,13 +222,28 @@ sub refresh {
my ($self) = @_; my ($self) = @_;
if ($self->{found}) { if ($self->{found}) {
$self->scr_xor_span(@{$self->{found}[$self->{n}]}[0 .. 3], urxvt::RS_RVid); $self->scr_xor_span(@{$self->{found}[$self->{i}]}[0 .. 3], urxvt::RS_RVid);
} }
() ()
} }
sub status_area {
my ($self, $text) = @_;
if (not $self->{overlay}) {
$self->{overlay} = $self->overlay(-1, -1, length($text), 1,
urxvt::OVERLAY_RSTYLE, 0);
}
$self->{overlay}->set(0, 0, $self->special_encode($text));
$self->{overlay}->show();
()
}
sub tt_write { sub tt_write {
return 1; return 1;
} }
@ -235,7 +255,9 @@ sub activate {
$self->{active} = 1; $self->{active} = 1;
$self->{row} = $self->view_start() + $self->nrow; $self->{row} = $self->view_start() + $self->nrow;
$self->{n} = 0; $self->{num} = 1;
$self->{i} = 0;
$self->{view_start} = $self->view_start(); $self->{view_start} = $self->view_start();
$self->{pty_ev_events} = $self->pty_ev_events(urxvt::EV_NONE); $self->{pty_ev_events} = $self->pty_ev_events(urxvt::EV_NONE);
@ -257,10 +279,10 @@ sub deactivate {
$self->view_start($self->{view_start}); $self->view_start($self->{view_start});
$self->pty_ev_events($self->{pty_ev_events}); $self->pty_ev_events($self->{pty_ev_events});
if ($self->{found}) { delete $self->{overlay} if $self->{overlay};
delete $self->{found}; delete $self->{found} if $self->{found};
$self->want_refresh();
} $self->want_refresh();
$self->{active} = 0; $self->{active} = 0;