/usr/share/weechat/perl/atcomplete.pl is in weechat-scripts 20180330-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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]."\")");
}
}
}
|