Make url_title and tittilate colour- and formatting-blind

2 files changed, 5 insertions, 0 deletions

diff --git a/plugin/tittilate.pm b/plugin/tittilate.pm
index a1ea7f3..b7994c3 100644
--- a/plugin/tittilate.pm
+++ b/plugin/tittilate.pm
@@ -4,6 +4,7 @@ package plugin::tittilate;
 
 use strict;
 use warnings;
+use IRC::Utils qw(strip_color strip_formatting);
 
 my %config;
 
@@ -16,6 +17,7 @@ sub configure {
 
 sub message {
 	my ($self, $me, $who, $where, $what) = @_;
+	$what = strip_color(strip_formatting($what));
 	my $gathered = "";
 	my @expressions = (keys %{$config{triggers}});
 	my $expression = join '|', @expressions;
diff --git a/plugin/url_title.pm b/plugin/url_title.pm
index 5364677..654b2ae 100644
--- a/plugin/url_title.pm
+++ b/plugin/url_title.pm
@@ -6,6 +6,7 @@ use strict;
 use warnings;
 use HTTP::Tiny;
 use HTML::HeadParser;
+use IRC::Utils qw(strip_color strip_formatting);
 
 my %config;
 
@@ -21,6 +22,8 @@ sub message
 	my ($self, $me, $who, $where, $what) = @_;
 	my $url;
 
+	$what = strip_color(strip_formatting($what));
+
 	if ($what =~ /(https?:\/\/[^ ]+)/i) {
 		$url = $1;
 	}