pegasus/weechat
1
0
Fork 0
mirror of https://github.com/weechat/weechat.git synced 2026-07-01 07:16:37 +02:00
Code Activity

Added new plugin API function: remove_infobar

Browse Source
This commit is contained in:
Sebastien Helleu
2006-02-20 17:01:18 +00:00
parent e0c97562a5
commit 9373a7a47e
24 changed files with 626 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/plugins/scripts/perl/weechat-perl.c
+26
View File
@@ -336,6 +336,31 @@ static XS (XS_weechat_print_infobar)
XSRETURN_YES;
}
/*
* weechat::remove_infobar: remove message(s) from infobar
*/
static XS (XS_weechat_remove_infobar)
{
dXSARGS;
/* make gcc happy */
(void) cv;
if (!perl_current_script)
{
perl_plugin->print_server (perl_plugin,
"Perl error: unable to remove infobar message(s), "
"script not initialized");
XSRETURN_NO;
}
perl_plugin->infobar_remove (perl_plugin,
(items >= 1) ? SvIV (ST (0)) : 0);
XSRETURN_YES;
}
/*
* weechat::log: log message in server/channel (current or specified ones)
*/
@@ -1160,6 +1185,7 @@ weechat_perl_xs_init (pTHX)
newXS ("weechat::register", XS_weechat_register, "weechat");
newXS ("weechat::print", XS_weechat_print, "weechat");
newXS ("weechat::print_infobar", XS_weechat_print_infobar, "weechat");
newXS ("weechat::remove_infobar", XS_weechat_remove_infobar, "weechat");
newXS ("weechat::log", XS_weechat_log, "weechat");
newXS ("weechat::command", XS_weechat_command, "weechat");
newXS ("weechat::add_message_handler", XS_weechat_add_message_handler, "weechat");