Script: autonickprefix.pl

Change "nick:" prefix if the nick is changed while you're still editing. (for WeeChat ≥ 0.3.0)
Author: Juerd — Version: 1.00 — License: Public_domain.
Added: 2018-09-21.
Download

 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
use strict;
use Encode qw(encode_utf8);

weechat::register(
    'autonickprefix',
    'Juerd <#####@juerd.nl>',
    '1.00',
    'PD',
    "Change 'nick: ' prefix if the nick is changed while you're still editing.",
    '',
    ''
);

# This is a port of the Irssi script autonickprefix.pl, the main difference
# being that WeeChat has an input *per buffer*, so the script needs to iterate
# over the buffers instead of just the current one, because there could be
# multiple messages waiting to be sent.

sub nick_changed {
    my (undef, $server, $args) = @_;

    $server = (split /,/, $server)[0];

    my ($oldnick, $newnick) = $args =~ /\:(.*)\!(?:.*)\:(.*)/
        or return weechat::WEECHAT_RC_OK;

    my $hdata = weechat::hdata_get("buffer");
    my $buffer = weechat::hdata_get_list($hdata, "gui_buffers");
    my $char = weechat::config_get('completion.nick_completer');

    while ($buffer) {
        weechat::buffer_get_string($buffer,'localvar_server') eq $server
            or next;

        my $pos = weechat::buffer_get_integer($buffer, 'input_pos');
        my $input = weechat::buffer_get_string($buffer, 'input');
        $pos >= length("$oldnick$char") or next;

        $input =~ s/^\Q$oldnick$char/$newnick$char/ or next;
        my $delta = length($newnick) - length($oldnick);

        weechat::buffer_set($buffer, "input", $input);
        weechat::buffer_set($buffer, "input_pos", $pos + $delta);
    } continue {
        $buffer = weechat::hdata_pointer($hdata, $buffer, "next_buffer");
    }

    return weechat::WEECHAT_RC_OK;
}

weechat::hook_signal("*,irc_in_nick", "nick_changed", "");