aboutsummaryrefslogtreecommitdiffstats
path: root/url_hilight/url_hilight.pl
blob: 4efb893de1ef4740efa078f72b95397a856a9f8b (plain) (blame)
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
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);