Home

Script: atcomplete.pl

Tab complete nicks when prefixed with "@". (for WeeChat ≥ 0.3.0)
Author: xdg, version 0.001, Apache 2.0 — added: 2016-10-29
 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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
# Copyright 2015 by David A. Golden. All rights reserved.
#
# Licensed under the Apache License, Version 2.0 (the "License"); you may
# not use this file except in compliance with the License. You may obtain
# a copy of the License at http://www.apache.org/licenses/LICENSE-2.0
#
# ABOUT
#
# atcomplete.pl
#
# Adds nick completion when prefixed with '@' for use with IRC gateways
# for Slack, Flowdock, etc. as these require the '@' to highlight users
#
# CONFIG
#
# /set plugins.var.perl.atcomplete.enabled
#
# HISTORY
#
# 0.001 -- xdg, 2016-04-06
#
#   - initial release
#
# REPOSITORY
#
# https://github.com/xdg/weechat-atcomplete

use strict;
use warnings;
my $SCRIPT_NAME = "atcomplete";
my $VERSION = "0.001";

my %options_default = (
    'enabled' => ['on', 'enable completion of nicks starting with @'],
);
my %options = ();

weechat::register($SCRIPT_NAME, "David A. Golden", $VERSION,
                  "Apache2", "atcomplete - do nick completion following @", "", "");
init_config();

weechat::hook_config("plugins.var.perl.$SCRIPT_NAME.*", "toggle_config_by_set", "");
weechat::hook_completion("nicks", "Add @ prefix to nick completion", "complete_at_nicks", "");

sub complete_at_nicks {
    my ($data, $completion_item, $buffer, $completion ) = @_;
    return weechat::WEECHAT_RC_OK() unless $options{enabled} eq 'on';

    my $nicklist = weechat::infolist_get("nicklist", weechat::current_buffer(), "");

    if ($nicklist ne "") {
        while (weechat::infolist_next($nicklist)) {
            next unless weechat::infolist_string($nicklist, "type") eq "nick";
            my $nick = weechat::infolist_string($nicklist, "name");
            weechat::hook_completion_list_add($completion, "\@$nick", 1, weechat::WEECHAT_LIST_POS_SORT());
        }
    }

    weechat::infolist_free($nicklist);

    return weechat::WEECHAT_RC_OK();
}

sub toggle_config_by_set {
    my ($pointer, $name, $value) = @_;
    $name = substr($name, length("plugins.var.perl.".$SCRIPT_NAME."."), length($name));
    $options{$name} = $value;
    return weechat::WEECHAT_RC_OK();
}

sub init_config {
    my $version = weechat::info_get("version_number", "") || 0;
    foreach my $option (keys %options_default)
    {
        if (!weechat::config_is_set_plugin($option))
        {
            weechat::config_set_plugin($option, $options_default{$option}[0]);
            $options{$option} = $options_default{$option}[0];
        }
        else
        {
            $options{$option} = weechat::config_get_plugin($option);
        }
        if ($version >= 0x00030500)
        {
            weechat::config_set_desc_plugin($option, $options_default{$option}[1]." (default: \"".$options_default{$option}[0]."\")");
        }
    }
}