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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
# slack_emoji.pl
# This script converts slack emoji to smileys.
use strict;
use warnings;
use vars qw($VERSION %IRSSI);
use Irssi;
$VERSION = '0.03';
%IRSSI = (
authors=> 'Lars Djerf',
contact=> 'lars.djerf@gmail.com',
name=> 'slack_emoji',
description=> 'This script converts Slack emoji to smileys.',
license=> 'GPLv3',
);
my %emoji = ('smile' => ':)',
'simple_smile' => ':)',
'smiley' => ':-)',
'grin' => ':D',
'wink' => ';)',
'smirk' => ';)',
'blush' => ':$',
'stuck_out_tongue' => ':P',
'stuck_out_tongue_winking_eye' => ';P',
'stuck_out_tongue_closed_eyes' => '',
'disappointed' => ':(',
'astonished' => ':O',
'open_mouth' => ':O',
'heart' => '<3',
'broken_heart' => '</3',
'thumb' => '*thumbs-up*',
'thumbsup' => '*thumbs-up*',
'confused' => ':S');
sub event_message ($$$) {
my ($server, $msg, @rest) = @_;
my @matches = ($msg =~ /\:(\w+)\:/g);
foreach (@matches) {
if ($emoji{$_}) {
my $smiley = $emoji{$_};
$msg =~ s/\:$_\:/$smiley/;
}
}
Irssi::signal_continue($server, $msg, @rest);
}
Irssi::signal_add_first('message public', 'event_message');
Irssi::signal_add_first('message private', 'event_message');
|
