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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
#
# Copyright (C) 2015 by Morten Lied Johansen <mortenjo@ifi.uio.no>
#
# Version history:
# 1.1: - Added support for multiple networks: /set slack_network slack flowdock gitter
use strict;
use Irssi;
use Irssi::Irc;
# ======[ Script Header ]===============================================
use vars qw{$VERSION %IRSSI};
($VERSION) = '$Revision: 1.1 $' =~ / (\d+\.\d+) /;
%IRSSI = (
name => 'slack_complete',
authors => 'Morten Lied Johansen, Jonas Berlin',
contact => 'mortenjo@ifi.uio.no',
license => 'GPL',
description => 'Convert to slack-mention when completing nicks',
);
# ======[ Hooks ]=======================================================
# --------[ sig_complete_slack_nick ]-----------------------------------
sub sig_complete_slack_nick {
my ($complist, $window, $word, $linestart, $want_space) = @_;
my $wi = Irssi::active_win()->{active};
return unless ref $wi and $wi->{type} eq 'CHANNEL';
my %chatnets = map { $_ => 1 } split(/\s+/, Irssi::settings_get_str('slack_network'));
return unless exists $chatnets{$wi->{server}->{chatnet}};
if ($word =~ /^@/) {
$word =~ s/^@//;
}
foreach my $nick ($wi->nicks()) {
if ($nick->{nick} =~ /^\Q$word\E/i) {
if ($linestart) {
push(@$complist, "\@$nick->{nick}");
} else {
push(@$complist, "\@$nick->{nick}:");
}
}
}
@$complist = sort {
return $a =~ /^\@\Q$word\E(.*)$/i ? 0 : 1;
} @$complist;
}
# ======[ Setup ]=======================================================
# --------[ Register settings ]-----------------------------------------
Irssi::settings_add_str('slack_complete', 'slack_network', 'Slack');
# --------[ Register signals ]------------------------------------------
Irssi::signal_add('complete word', \&sig_complete_slack_nick);
# ======[ END ]=========================================================
|
