/usr/share/weechat/perl/wmiibar.pl is in weechat-scripts 20131007-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 | # Author: Sebastian Köhler <sebkoehler@whoami.org.uk>
#
# Copyright [2010] [Sebastian Köhler]
#
# 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
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#
use strict;
my $show_message = 0;
# weechat stuff
weechat::register('wmiibar','Sebastian Köhler <sebkoehler@whoami.org.uk>',
'0.3','Apache 2.0','Show highlights in the wmii statusbar',
'','');
weechat::hook_command('wmiibar',"Show highlights in the wmii statusbar",
"",
"Show help for wmiibar",
"",
"print_help",
"");
weechat::hook_signal('weechat_pv', 'highlight', '');
weechat::hook_signal('weechat_highlight','highlight','');
weechat::hook_timer(3000,0,0,'wmii_bar','');
load_defaults();
sub highlight {
$show_message = 1;
}
sub wmii_bar {
my $sel_tag = `wmiir read /client/sel/label 2> /dev/null`;
if($sel_tag =~ /^(W|w)ee(C|c)hat \d\.\d\.\d.*$/) {
$show_message = 0;
}
if($show_message) {
open BAR, "| wmiir create /rbar/0chat &> /dev/null";
print BAR weechat::config_get_plugin("message") . "\n";
close BAR;
} else {
`wmiir remove /rbar/0chat &> /dev/null`;
}
return weechat::WEECHAT_RC_OK;
}
sub print_help {
my $bold = weechat::color("bold");
my $unbold = weechat::color("-bold");
my $help = "${bold}NAME${unbold}\n".
" wmiibar - Show highlights in wmii statusbar\n".
"${bold}SETTINGS${unbold}\n".
" /set plugins.var.perl.wmiibar.message STRING\n".
" STRING will be displayed in the wmii statusbar\n".
" Default: \"New Message\"";
weechat::print("",$help);
}
sub load_defaults {
if(weechat::config_get_plugin("message") eq "") {
weechat::config_set_plugin("message","New Message");
}
}
|