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

url-select: selected URLs are automatically copied

Browse Source 
When an URL is selected, it is copied to the clipboard using the selected tool.
This commit is contained in:
Wojciech Siewierski 2012-01-13 02:05:30 +01:00
parent d48894fc14
commit 1380bad3d2
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
url-select Normal file → Executable file
View File

@ -24,6 +24,11 @@
# URxvt.urlLauncher: Browser/command to open selected URL with # URxvt.urlLauncher: Browser/command to open selected URL with
# URxvt.underlineURLs: If set to true, all URLs get underlined # URxvt.underlineURLs: If set to true, all URLs get underlined
# URvxt.urlButton: Mouse button to click-open URLs (default: 2) # URvxt.urlButton: Mouse button to click-open URLs (default: 2)
# URxvt.urlCopier: Command to copy the URL to the clipboard (optional)
# Recommended (and tested) - the following script:
# #!/bin/sh
# echo -n "$*" | xclip -in
use strict; use strict;
@ -37,6 +42,12 @@ sub on_start {
my ($self) = @_; my ($self) = @_;
# read resource settings # read resource settings
if ($self->x_resource('urlCopier')) {
@{$self->{copier}} = split /\s+/, $self->x_resource('urlCopier');
} else {
@{$self->{copier}} = ();
}
if ($self->x_resource('urlLauncher')) { if ($self->x_resource('urlLauncher')) {
@{$self->{browser}} = split /\s+/, $self->x_resource('urlLauncher'); @{$self->{browser}} = split /\s+/, $self->x_resource('urlLauncher');
} else { } else {
@ -176,6 +187,7 @@ sub select_next {
# another url on current line # another url on current line
$self->{n} += $dir; $self->{n} += $dir;
hilight($self); hilight($self);
$self->exec_async(@{$self->{copier}}, $self->{found}->[$self->{n}]->[4]) if $self->{copier};
return; return;
} }
@ -199,6 +211,7 @@ sub select_next {
$self->{row} = $row; $self->{row} = $row;
$self->{n} = $dir < 0 ? $#{$self->{found}} : 0; $self->{n} = $dir < 0 ? $#{$self->{found}} : 0;
hilight($self); hilight($self);
$self->exec_async(@{$self->{copier}}, $self->{found}->[$self->{n}]->[4]) if $self->{copier};
return; return;
} }
} }