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

url-select: version 1.3

Browse Source
This commit is contained in:
Bert 2010-08-16 19:50:58 +02:00
parent 4a7de6ccaa
commit 61f4a686ca
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
url-select
View File

@ -2,7 +2,7 @@
# Author: Bert Muennich # Author: Bert Muennich
# Website: http://www.github.com/muennich/urxvt-perls # Website: http://www.github.com/muennich/urxvt-perls
# Based on: http://www.jukie.net/~bart/blog/urxvt-url-yank # Based on: http://www.jukie.net/~bart/blog/urxvt-url-yank
# Version: 1.2 # Version: 1.3
# License: GPLv2 # License: GPLv2
# Use keyboard shortcuts to select URLs. # Use keyboard shortcuts to select URLs.
@ -230,8 +230,7 @@ sub status_area {
my $row = $self->{row} < 0 ? my $row = $self->{row} < 0 ?
$self->{row} - $self->top_row : abs($self->top_row) + $self->{row}; $self->{row} - $self->top_row : abs($self->top_row) + $self->{row};
my $text = sprintf("%d:%d/%d ", $row + 1, $self->{n} + 1, my $text = sprintf("%d,%d ", $row + 1, $self->{n} + 1);
$#{ $self->{found} } + 1);
if ($self->top_row == 0) { if ($self->top_row == 0) {
$text .= "All"; $text .= "All";