From bcb44d9e80ecbf840f7e79313cc133100cbc5083 Mon Sep 17 00:00:00 2001 From: Chad Perrin Date: Sat, 11 Sep 2010 18:19:50 -0600 Subject: between two and three space indents, picked two to standardize -- user: Chad Perrin branch 'default' changed url-picker --- url-picker | 166 ++++++++++++++++++++++++++++++------------------------------- 1 file changed, 83 insertions(+), 83 deletions(-) diff --git a/url-picker b/url-picker index 18ea015..5adb193 100644 --- a/url-picker +++ b/url-picker @@ -15,84 +15,84 @@ my $url = }x; sub on_user_command { - my ($self, $cmd) = @_; - if ($cmd =~ s/^url-picker\b//) { - my $labels = {}; - my $hrefs = {}; - my $row = -1; - my $num = 0; - while ($row++ < $self->nrow) { - my $text = $self->ROW_t($row); - while ($text =~ /$url/g) { - my $col = $-[0]; - my $href = $&; - $num++; - my $overlay = $self->overlay( - $col, $row, $self->strwidth($num), 1, urxvt::OVERLAY_RSTYLE, 0 - ); - $overlay->set(0,0,$num); - $labels->{$num} = $overlay; - $hrefs->{$num} = $href; - } - } + my ($self, $cmd) = @_; + if ($cmd =~ s/^url-picker\b//) { + my $labels = {}; + my $hrefs = {}; + my $row = -1; + my $num = 0; + while ($row++ < $self->nrow) { + my $text = $self->ROW_t($row); + while ($text =~ /$url/g) { + my $col = $-[0]; + my $href = $&; + $num++; + my $overlay = $self->overlay( + $col, $row, $self->strwidth($num), 1, urxvt::OVERLAY_RSTYLE, 0 + ); + $overlay->set(0,0,$num); + $labels->{$num} = $overlay; + $hrefs->{$num} = $href; + } + } - if ($num < 1) { - my $ermsg = $self->overlay(0,-1,35,1,urxvt::OVERLAY_RSTYLE,0); - $ermsg->set(0,0,"url-picker: no URLs found on screen"); - $self->{ermsg} = $ermsg; - $self->{timer} = urxvt::timer - ->new - ->after (5) - ->cb (sub { - $self->{ermsg} = (); - $self->{timer} = (); - }); - } else { - my $url_picker = {}; - $url_picker->{prompt} = $self->overlay( - 0, -1, 8, 1, urxvt::OVERLAY_RSTYLE, 0 - ); - $url_picker->{prompt}->set(0,0,"Follow:"); - $url_picker->{labels} = $labels; - $url_picker->{hrefs} = $hrefs; - $url_picker->{num} = $num; - $url_picker->{buffer} = ''; - my ($crow,$ccol) = $self->screen_cur; - $url_picker->{crow} = $crow; - $url_picker->{ccol} = $ccol; - $self->{url_picker} = $url_picker; - $self->update($url_picker); - } - } - () + if ($num < 1) { + my $ermsg = $self->overlay(0,-1,35,1,urxvt::OVERLAY_RSTYLE,0); + $ermsg->set(0,0,"url-picker: no URLs found on screen"); + $self->{ermsg} = $ermsg; + $self->{timer} = urxvt::timer + ->new + ->after (5) + ->cb (sub { + $self->{ermsg} = (); + $self->{timer} = (); + }); + } else { + my $url_picker = {}; + $url_picker->{prompt} = $self->overlay( + 0, -1, 8, 1, urxvt::OVERLAY_RSTYLE, 0 + ); + $url_picker->{prompt}->set(0,0,"Follow:"); + $url_picker->{labels} = $labels; + $url_picker->{hrefs} = $hrefs; + $url_picker->{num} = $num; + $url_picker->{buffer} = ''; + my ($crow,$ccol) = $self->screen_cur; + $url_picker->{crow} = $crow; + $url_picker->{ccol} = $ccol; + $self->{url_picker} = $url_picker; + $self->update($url_picker); + } + } + () } sub on_key_press { - my ($self, $event, $keysym) = @_; - my $p = $self->{url_picker}; - if ($p) { - if ($keysym == 0xff1b) { # escape - $self->screen_cur($p->{crow},$p->{ccol}); - $self->{url_picker} = (); - } elsif ($keysym == 0xff08) { # backspace - if (length($p->{buffer}) > 0) { - $p->{buffer} = substr($p->{buffer},0,-1); - $self->update($p); - } - } elsif (($keysym >= 48) && ($keysym <= 57)) { - $p->{buffer} = $p->{buffer} . ($keysym - 48); - $self->update($p); - } elsif ($keysym == 0xff0d) { # CR - my $num = $p->{buffer}; - my $hrefs = $p->{hrefs}; - if (($num > 0) && ($num <= $p->{num})) { - my $href = $hrefs->{$num}; - $self->launch($href); - } - } - return 1; - } - () + my ($self, $event, $keysym) = @_; + my $p = $self->{url_picker}; + if ($p) { + if ($keysym == 0xff1b) { # escape + $self->screen_cur($p->{crow},$p->{ccol}); + $self->{url_picker} = (); + } elsif ($keysym == 0xff08) { # backspace + if (length($p->{buffer}) > 0) { + $p->{buffer} = substr($p->{buffer},0,-1); + $self->update($p); + } + } elsif (($keysym >= 48) && ($keysym <= 57)) { + $p->{buffer} = $p->{buffer} . ($keysym - 48); + $self->update($p); + } elsif ($keysym == 0xff0d) { # CR + my $num = $p->{buffer}; + my $hrefs = $p->{hrefs}; + if (($num > 0) && ($num <= $p->{num})) { + my $href = $hrefs->{$num}; + $self->launch($href); + } + } + return 1; + } + () } sub update { @@ -134,24 +134,24 @@ sub launch { } sub on_key_release { - my ($self, $event, $keysym) = @_; - $self->{url_picker}; + my ($self, $event, $keysym) = @_; + $self->{url_picker}; } sub my_resource { - my ($self) = @_; - $self->x_resource ("$self->{name}.$_[0]"); + my ($self) = @_; + $self->x_resource ("$self->{name}.$_[0]"); } sub on_start { - my ($self) = @_; + my ($self) = @_; - ($self->{name} = __PACKAGE__) =~ s/.*:://; - $self->{name} =~ tr/_/-/; - $self->{launcher} = $self->my_resource("launcher") || + ($self->{name} = __PACKAGE__) =~ s/.*:://; + $self->{name} =~ tr/_/-/; + $self->{launcher} = $self->my_resource("launcher") || $self->x_resource("urlLauncher") || "sensible-browser"; - $self->{url_picker} = (); + $self->{url_picker} = (); } # vim:set sw=3 sts=3 et: -- cgit v1.2.3