From 91585163e7f7cd886b2bce4c98dbc3d14b9d3c2e Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@metavore.org>
Date: Thu, 14 Oct 2010 21:42:31 +0100
Subject: misc: tidying up my working dir

---
 url_hilight/url_hilight.pl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 url_hilight/url_hilight.pl

(limited to 'url_hilight')

diff --git a/url_hilight/url_hilight.pl b/url_hilight/url_hilight.pl
new file mode 100644
index 0000000..4efb893
--- /dev/null
+++ b/url_hilight/url_hilight.pl
@@ -0,0 +1,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);
+
-- 
cgit v1.2.3