aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--hilite-url/hilite_url.pl44
1 files changed, 44 insertions, 0 deletions
diff --git a/hilite-url/hilite_url.pl b/hilite-url/hilite_url.pl
new file mode 100644
index 0000000..29cd312
--- /dev/null
+++ b/hilite-url/hilite_url.pl
@@ -0,0 +1,44 @@
+# Simple script to highlight urls
+# To configure the color, the setting 'url_color' can be set. The format
+# is like the bash colors. So for instance, if you want to have the links to be
+# colored in red, set the color to 31.
+# See this page for more information about colors:
+# https://misc.flogisoft.com/bash/tip_colors_and_formatting
+
+use strict;
+use Irssi;
+use vars qw($VERSION %IRSSI);
+
+# Dev. info ^_^
+$VERSION = "0.2";
+%IRSSI = (
+ authors => "Stefan Heinemann",
+ contact => "stefan.heinemann\@codedump.ch",
+ name => "HiliteUrl",
+ description => "Simple script that highlights links",
+ license => "GPL",
+ url => "http://senseless.codedump.ch",
+);
+
+# All the works
+sub hilite_url {
+ my ($server, $data, $nick, $mask, $target) = @_;
+
+ my $color = Irssi::settings_get_int('url_color');
+
+ $color = sprintf("\e[%sm", $color);
+
+ # Add Colours
+ # $data =~ s/(https?:\/\/[^\s]+)/$color\1\e[00m/g;
+ $data =~ s/(https?:\/\/[^\s]+)/\e[07m\1\e[07m/g;
+
+ # Let it flow
+ Irssi::signal_continue($server, $data, $nick, $mask, $target);
+}
+
+# Hook me up
+Irssi::signal_add('message public', 'hilite_url');
+
+Irssi::settings_add_int(
+ 'hilite_url', 'url_color', "4;34"
+)