From efff17d8dea073d124392fc804744cd9ba09c6af Mon Sep 17 00:00:00 2001 From: wowaname Date: Mon, 19 Dec 2016 05:00:27 +0000 Subject: [PATCH] play.pl: minor --- scripts/play.pl | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/scripts/play.pl b/scripts/play.pl index b01b4ac..3963770 100644 --- a/scripts/play.pl +++ b/scripts/play.pl @@ -13,7 +13,8 @@ our (%queue, %timer); if (weechat::register($SCRIPT_NAME, $SCRIPT_AUTHOR, $SCRIPT_VERSION, $SCRIPT_LICENCE, $SCRIPT_DESC, '', '')) { weechat::hook_command('play', 'Play ASCII art', - qq([-delay ms] [-find] [-pipe "command"] [-fmt "list"] filename\n-stop), + '[-delay ms] [-repeat times] [-pipe "command"] [-fmt "list"] filename'. + "\n-find pattern\n-stop\n", "-delay: delay in milliseconds between lines\n". "-find: list matching files, don't play\n". "-pipe: pipe output into command\n". @@ -22,7 +23,10 @@ if (weechat::register($SCRIPT_NAME, $SCRIPT_AUTHOR, $SCRIPT_VERSION, "filename: file to play. Supports wildcards. By default, searches\n". " subdirectories as well unless '/' is found in the filename\n". "-stop: stop currently playing file in buffer", - '', 'cmd_play', ''); + '-delay|-pipe|-fmt|-repeat|%*'. + ' || -find'. + ' || -stop', + 'cmd_play', ''); my %OPTIONS = ( delay => ['Default delay between lines', 0], @@ -39,7 +43,8 @@ if (weechat::register($SCRIPT_NAME, $SCRIPT_AUTHOR, $SCRIPT_VERSION, } } -sub parse { +sub parse +{ my ($input, $delay, $pipe, $find, $repeat, $fmt) = (shift, weechat::config_get_plugin('delay'), '/msg *', 0, 1, ''); @@ -69,7 +74,8 @@ sub parse { return ($delay, $pipe, $find, $repeat, $fmt, $input =~ s/^ +| +$//r); } -sub play { +sub play +{ my $buffer = shift; weechat::command($buffer, shift @{ $queue{$buffer} }); @@ -78,7 +84,8 @@ sub play { return weechat::WEECHAT_RC_OK; } -sub cmd_play { +sub cmd_play +{ my $buffer = $_[1]; if ($_[2] eq '-stop') {