Prettify `grab` output similiar to `recall` (#14)

This commit is contained in:
Joey Pabalinas 2017-12-03 08:12:05 -10:00 committed by Pragmatic Software
parent 6d4ea57d3b
commit a8a82b2f23
1 changed files with 9 additions and 3 deletions

View File

@ -249,10 +249,16 @@ sub grab_quotegrab {
my $text = $quotegrab->{text};
($grab_nick) = split /\+/, $grab_nicks, 2;
if($text =~ s/^\/me\s+//) {
return "Quote grabbed: $quotegrab->{id}: * $grab_nick $text";
if ($text =~ s/^(NICKCHANGE)\b/changed nick to/ or
$text =~ s/^(KICKED|QUIT)\b/lc "$1"/e or
$text =~ s/^(JOIN|PART)\b/lc "$1ed"/e) {
# fix ugly "[nick] quit Quit: Leaving." messages
$text =~ s/^(quit) (.*)/$1 ($2)/;
return "Quote grabbed: $quotegrab->{id}: $grab_nick $text";
} elsif ($text =~ s/^\/me\s+//) {
return "Quote grabbed: $quotegrab->{id}: * $grab_nick $text";
} else {
return "Quote grabbed: $quotegrab->{id}: <$grab_nick> $text";
return "Quote grabbed: $quotegrab->{id}: <$grab_nick> $text";
}
}