mark-yank-urls

   1 #!/usr/bin/perl
   2 # Author:  Bart Trojanowski <bart@jukie.net>
   3 # Website: http://www.jukie.net/~bart/blog/urxvt-url-yank
   4 # License: GPLv2
   5
   6 use strict;
   7 use warnings;
   8
   9 my $url_matcher = qr{(
  10         (?:https?://|ftp://|news://|mailto:|file://|www\.)[ab-zA-Z0-9\-\@;\/?:&=%\$_.+!*\x27(),~#]+
  11         [ab-zA-Z0-9\-\@;\/?&=%\$_+!*\x27()~]   # exclude some trailing characters (heuristic)
  12 )}x;
  13
  14
  15 sub on_start {
  16     my ($term) = @_;
  17
  18     $term->{have_Clipboard} = eval { require Clipboard; };
  19     if ($term->{have_Clipboard}) {
  20         import Clipboard;
  21     }
  22
  23         eval { require Regexp::Common::URI };
  24         if(!$@) {
  25                 require Regexp::Common;
  26                 Regexp::Common->import('URI');
  27
  28                 $url_matcher = $Regexp::Common::RE{URI}{HTTP};
  29         }
  30
  31     $term->{browser} = $term->x_resource ("urlLauncher") || "x-www-browser";
  32
  33     ()
  34 }
  35
  36 sub on_line_update {
  37     my ($term, $row) = @_;
  38
  39     # Fetch the line that has changed.
  40     my $line = $term->line($row);
  41     my $text = $line->t;
  42
  43     # Find and underline URLs.
  44     while ($text =~ /($url_matcher)/g) {
  45         my $url = $1;
  46         my $rend = $line->r;
  47
  48         # Mark all characters as underlined. we _must_ not toggle underline, as
  49         # we might get called on an already-marked URL.
  50         my $underlineURLs = $term->x_resource ('underlineURLs') || 'false';
  51         if($underlineURLs eq 'true') {
  52                         my ($first, $last) = ($-[1], $+[1] - 1);
  53
  54                         --$last if $url =~ s/["']$//;
  55
  56             $_ |= urxvt::RS_Uline for @{$rend}[$first .. $last];
  57
  58             $line->r($rend);
  59         }
  60     }
  61
  62     ()
  63 }
  64
  65 sub on_button_release {
  66     my ($term, $event) = @_;
  67
  68     my $mask = $term->ModLevel3Mask | $term->ModMetaMask
  69     | urxvt::ShiftMask | urxvt::ControlMask;
  70
  71     if ($event->{button} == 2 && ($event->{state} & $mask) == 0) {
  72         my $row = $event->{row};
  73         my $col = $event->{col};
  74
  75         my $line = $term->line ($row);
  76         my $text = $line->t;
  77
  78         while ($text =~ /($url_matcher)/g) {
  79             my ($url, $first, $last) = ($1, $-[1], $+[1]);
  80
  81             if($first <= $col && $last >= $col) {
  82                 $url =~ s/["']$//;
  83                 $term->exec_async($term->{browser}, $url);
  84                 return 1;
  85             }
  86         }
  87     }
  88
  89     ()
  90 }
  91
  92
  93 my $mark_mode_active = 0;
  94 my %mod = ( 'control' => 0, 'shift' => 0 );
  95 my $url_selected = -1;
  96 my @url_db = ();
  97
  98
  99 sub do_scan_for_urls {
 100     my ($term) = @_;
 101
 102     @url_db = ();
 103
 104     my $row_start = $term->top_row;
 105     my $row_end = $term->nrow;
 106
 107         for my $row ($row_start .. $row_end) {
 108
 109         # Fetch the line that has changed.
 110         my $line = $term->line ($row);
 111         my $text = $line->t;
 112
 113         # Find all urls (if any).
 114         while ($text =~ /($url_matcher)/g) {
 115             my $rend = $line->r;
 116
 117                         my ($url, $first, $last) = ($1, $-[1], $+[1] - 1);
 118
 119                         --$last if $url =~ s/["']$//;
 120
 121             my %h = (
 122                                 row => $row,
 123                                 col_from => $first,
 124                                 col_to => $last,
 125                                 url => $url,
 126                         );
 127
 128                         push @url_db, \%h;
 129         }
 130     }
 131
 132     # 0 for none, positive count otherwise
 133     return $#url_db + 1;
 134 }
 135
 136
 137 sub on_user_command {
 138     my ($term, $cmd) = @_;
 139
 140         activate_mark_mode($term) if $cmd eq 'mark-yank-urls:activate_mark_mode';
 141
 142     ()
 143 }
 144
 145 sub on_key_press {
 146     my ($term, $event, $keysym, $octets) = @_;
 147
 148     if ($keysym == 65507) {                     # <control>
 149         $mod{control} = 1;
 150
 151     } elsif ($keysym == 65505) {                # <shift>
 152         $mod{shift} = 1;
 153
 154     }
 155
 156     # Ignore all input when we are active.
 157     $mark_mode_active && return 1;
 158
 159     ()
 160 }
 161
 162 sub on_key_release {
 163     my ($term, $event, $keysym, $octets) = @_;
 164
 165     if ($mark_mode_active) {
 166         my $ch = chr($keysym);
 167
 168         if ($keysym == 65307) {                     # <esc>
 169             deactivate_mark_mode ($term);
 170             return 1;
 171
 172         } elsif ($keysym == 65293) {                # <enter>
 173             my $url = get_active_url($term);
 174             $term->exec_async($term->{browser}, $url);
 175             deactivate_mark_mode ($term);
 176             return 1;
 177
 178         } elsif ($keysym == 65507) {                # <control>
 179             $mod{control} = 0;
 180             return 1;
 181
 182         } elsif ($keysym == 65505) {                # <shift>
 183             $mod{shift} = 0;
 184             return 1;
 185
 186         } elsif ($mod{control} && (($ch eq 'n') || ($ch eq 'p'))) {
 187                                                     # ^n and ^p to cycle list
 188             my $dir = ($ch eq 'n') ? 1 : -1;
 189             move_highlight ($term, $dir);
 190
 191         } elsif ($ch eq 'y') {                      # y
 192             do_copy ($term);
 193             deactivate_mark_mode ($term);
 194             return 1;
 195
 196         }
 197
 198         return 1;
 199     }
 200
 201     ()
 202 }
 203
 204 sub get_active_url {
 205     my ($term) = @_;
 206     my $max = $#url_db + 1;
 207
 208     return if $url_selected < 0 || $url_selected >= $max;
 209     return if not defined $url_db[$url_selected];
 210     my $o = $url_db[$url_selected];
 211     my %h = %$o;
 212
 213     return $h{url};
 214 }
 215
 216 sub do_copy {
 217     my ($term) = @_;
 218
 219     my $text = get_active_url ($term);
 220
 221     if ($term->{have_Clipboard}) {
 222         Clipboard->copy($text);
 223     } else {
 224         $text =~ s/\(["|><&()]\)/\\$1/;
 225         system ("echo -n \"$text\" | xclip -i");
 226     }
 227 }
 228
 229 sub move_highlight {
 230     my ($term, $dir) = @_;
 231     my $max = $#url_db + 1;
 232
 233     do_highlight ($term, 0);
 234
 235     $url_selected = ($max + $url_selected + $dir) % $max;
 236
 237     do_highlight ($term, 1);
 238
 239     $term->want_refresh;
 240 }
 241
 242 sub do_highlight {
 243     my ($term, $enable) = @_;
 244     my $max = $#url_db + 1;
 245
 246     return if $url_selected < 0 || $url_selected >= $max;
 247     return if not defined $url_db[$url_selected];
 248
 249     my $o = $url_db[$url_selected];
 250     my %h = %$o;
 251
 252     my $row = $h{row};
 253     my $line = $term->line ($row);
 254     my $text = $line->t;
 255     my $rend = $line->r;
 256
 257     if ($enable) {
 258         $_ |= urxvt::RS_RVid
 259         for @{$rend}[ $h{col_from} .. $h{col_to}];
 260
 261         # make it visible
 262         $term->view_start ( $row < 0 ? $row : 0 );
 263
 264     } else {
 265         $_ &= ~urxvt::RS_RVid
 266         for @{$rend}[ $h{col_from} .. $h{col_to}];
 267     }
 268
 269     $line->r ($rend);
 270 }
 271
 272 sub activate_mark_mode {
 273     my ($term) = @_;
 274
 275     if ($mark_mode_active) {
 276
 277         move_highlight ($term, -1);
 278
 279     } elsif ( do_scan_for_urls ($term) ) {
 280
 281         $term->{save_view_start} = $term->view_start;
 282
 283         move_highlight ($term, 0);
 284
 285         $mark_mode_active=1 if ($url_selected > -1);
 286     }
 287 }
 288
 289 sub deactivate_mark_mode {
 290     my ($term) = @_;
 291
 292     do_highlight ($term, 0);
 293
 294     $mark_mode_active = 0;
 295     $url_selected = -1;
 296
 297     $term->view_start ($term->{save_view_start});
 298     $term->want_refresh;
 299 }
 300
 301 # vim: set et ts=4 sw=4: