1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
# url_hilight.pl
#
# This script is a work in progress, and will probably not do anything useful
# at the moment. Please fork and implement, or bug me on #irssi if you can
# decide what it ought to do, since I've forgotten.
use strict;
use warnings;
use Irssi;
our %IRSSI = (
"author" => 'shabble',
"contact" => 'shabble+irssi@metavore.org, shabble@Freenode/#irssi',
"name" => 'URL Highlighter',
"description" => ' ',
"license" => 'WTFPL: http://sam.zoy.org/wtfpl/',
"version" => '0.1',
);
# regex taken from http://daringfireball.net/2010/07/improved_regex_for_matching_urls
my $url_regex = qr((?i)\b((?:[a-z][\w-]+:(?:/{1,3}|[a-z0-9%])|www\d{0,3}[.]|[a-z0-9.\-]+[.][a-z]{2,4}/)(?:[^\s()<>]+|\(([^\s()<>]+|(\([^\s()<>]+\)))*\))+(?:\(([^\s()<>]+|(\([^\s()<>]+\)))*\)|[^\s`!()\[\]{};:'".,<>?«»“”‘’])));
sub handle_gui_print_text {
my ($win, $fg, $bg, $flags, $text, $text_dest) = @_;
if ($text =~ $url_regex) {
print "matched!";
}
}
Irssi::signal_add('gui print text', \&handle_gui_print_text);
|
