diff options
Diffstat (limited to 'perl/mark-yank-urls')
| -rw-r--r-- | perl/mark-yank-urls | 300 |
1 files changed, 300 insertions, 0 deletions
diff --git a/perl/mark-yank-urls b/perl/mark-yank-urls new file mode 100644 index 0000000..ca379cb --- /dev/null +++ b/perl/mark-yank-urls @@ -0,0 +1,300 @@ +#!/usr/bin/perl +# Author: Bart Trojanowski <bart@jukie.net> +# Website: http://www.jukie.net/~bart/blog/urxvt-url-yank +# License: GPLv2 + +use strict; +use warnings; + +my $url_matcher = qr{( + (?:https?://|ftp://|news://|mailto:|file://|www\.)[ab-zA-Z0-9\-\@;\/?:&=%\$_.+!*\x27(),~#]+ + [ab-zA-Z0-9\-\@;\/?&=%\$_+!*\x27()~] # exclude some trailing characters (heuristic) +)}x; + + +sub on_start { + my ($term) = @_; + + $term->{have_Clipboard} = eval { require Clipboard; }; + if ($term->{have_Clipboard}) { + import Clipboard; + } + + eval { require Regexp::Common::URI }; + if(!$@) { + require Regexp::Common; + Regexp::Common->import('URI'); + + $url_matcher = $Regexp::Common::RE{URI}{HTTP}; + } + + $term->{browser} = $term->x_resource ("urlLauncher") || "x-www-browser"; + + () +} + +sub on_line_update { + my ($term, $row) = @_; + + # Fetch the line that has changed. + my $line = $term->line($row); + my $text = $line->t; + + # Find and underline URLs. + while ($text =~ /($url_matcher)/g) { + my $rend = $line->r; + + # Mark all characters as underlined. we _must_ not toggle underline, as + # we might get called on an already-marked URL. + if($term->x_resource ('underlineURLs') eq 'true') { + my $url = $1; + my ($first, $last) = ($-[1], $+[1] - 1); + + --$last if $url =~ s/["']$//; + + $_ |= urxvt::RS_Uline for @{$rend}[$first .. $last]; + + $line->r($rend); + } + } + + () +} + +sub on_button_release { + my ($term, $event) = @_; + + my $mask = $term->ModLevel3Mask | $term->ModMetaMask + | urxvt::ShiftMask | urxvt::ControlMask; + + if ($event->{button} == 2 && ($event->{state} & $mask) == 0) { + my $row = $event->{row}; + my $col = $event->{col}; + + my $line = $term->line ($row); + my $text = $line->t; + + while ($text =~ /($url_matcher)/g) { + my ($url, $first, $last) = ($1, $-[1], $+[1]); + + if($first <= $col && $last >= $col) { + $url =~ s/["']$//; + $term->exec_async($term->{browser}, $url); + return 1; + } + } + } + + () +} + + +my $mark_mode_active = 0; +my %mod = ( 'control' => 0, 'shift' => 0 ); +my $url_selected = -1; +my @url_db = (); + + +sub do_scan_for_urls { + my ($term) = @_; + + @url_db = (); + + my $row_start = $term->top_row; + my $row_end = $term->nrow; + + for my $row ($row_start .. $row_end) { + + # Fetch the line that has changed. + my $line = $term->line ($row); + my $text = $line->t; + + # Find all urls (if any). + while ($text =~ /($url_matcher)/g) { + my $rend = $line->r; + + my ($url, $first, $last) = ($1, $-[1], $+[1] - 1); + + --$last if $url =~ s/["']$//; + + my %h = ( + row => $row, + col_from => $first, + col_to => $last, + url => $url, + ); + + push @url_db, \%h; + } + } + + # 0 for none, positive count otherwise + return $#url_db + 1; +} + + +sub on_user_command { + my ($term, $cmd) = @_; + + activate_mark_mode($term) if $cmd eq 'mark-yank-urls:activate_mark_mode'; + + () +} + +sub on_key_press { + my ($term, $event, $keysym, $octets) = @_; + + if ($keysym == 65507) { # <control> + $mod{control} = 1; + + } elsif ($keysym == 65505) { # <shift> + $mod{shift} = 1; + + } + + # Ignore all input when we are active. + $mark_mode_active && return 1; + + () +} + +sub on_key_release { + my ($term, $event, $keysym, $octets) = @_; + + if ($mark_mode_active) { + my $ch = chr($keysym); + + if ($keysym == 65307) { # <esc> + deactivate_mark_mode ($term); + return 1; + + } elsif ($keysym == 65293) { # <enter> + my $url = get_active_url($term); + $term->exec_async($term->{browser}, $url); + deactivate_mark_mode ($term); + return 1; + + } elsif ($keysym == 65507) { # <control> + $mod{control} = 0; + return 1; + + } elsif ($keysym == 65505) { # <shift> + $mod{shift} = 0; + return 1; + + } elsif ($mod{control} && (($ch eq 'n') || ($ch eq 'p'))) { + # ^n and ^p to cycle list + my $dir = ($ch eq 'n') ? 1 : -1; + move_highlight ($term, $dir); + + } elsif ($ch eq 'y') { # y + do_copy ($term); + deactivate_mark_mode ($term); + return 1; + + } + + return 1; + } + + () +} + +sub get_active_url { + my ($term) = @_; + my $max = $#url_db + 1; + + return if $url_selected < 0 || $url_selected >= $max; + return if not defined $url_db[$url_selected]; + my $o = $url_db[$url_selected]; + my %h = %$o; + + return $h{url}; +} + +sub do_copy { + my ($term) = @_; + + my $text = get_active_url ($term); + + if ($term->{have_Clipboard}) { + Clipboard->copy($text); + } else { + $text =~ s/\(["|><&()]\)/\\$1/; + system ("echo -n \"$text\" | xclip -i"); + } +} + +sub move_highlight { + my ($term, $dir) = @_; + my $max = $#url_db + 1; + + do_highlight ($term, 0); + + $url_selected = ($max + $url_selected + $dir) % $max; + + do_highlight ($term, 1); + + $term->want_refresh; +} + +sub do_highlight { + my ($term, $enable) = @_; + my $max = $#url_db + 1; + + return if $url_selected < 0 || $url_selected >= $max; + return if not defined $url_db[$url_selected]; + + my $o = $url_db[$url_selected]; + my %h = %$o; + + my $row = $h{row}; + my $line = $term->line ($row); + my $text = $line->t; + my $rend = $line->r; + + if ($enable) { + $_ |= urxvt::RS_RVid + for @{$rend}[ $h{col_from} .. $h{col_to}]; + + # make it visible + $term->view_start ( $row < 0 ? $row : 0 ); + + } else { + $_ &= ~urxvt::RS_RVid + for @{$rend}[ $h{col_from} .. $h{col_to}]; + } + + $line->r ($rend); +} + +sub activate_mark_mode { + my ($term) = @_; + + if ($mark_mode_active) { + + move_highlight ($term, -1); + + } elsif ( do_scan_for_urls ($term) ) { + + $term->{save_view_start} = $term->view_start; + + move_highlight ($term, 0); + + $mark_mode_active=1 if ($url_selected > -1); + } +} + +sub deactivate_mark_mode { + my ($term) = @_; + + do_highlight ($term, 0); + + $mark_mode_active = 0; + $url_selected = -1; + + $term->view_start ($term->{save_view_start}); + $term->want_refresh; +} + +# vim: set et ts=4 sw=4: |