diff options
Diffstat (limited to 'scripts/perl/moc.pl')
| -rw-r--r-- | scripts/perl/moc.pl | 166 |
1 files changed, 166 insertions, 0 deletions
diff --git a/scripts/perl/moc.pl b/scripts/perl/moc.pl new file mode 100644 index 000000000..23fbcd364 --- /dev/null +++ b/scripts/perl/moc.pl @@ -0,0 +1,166 @@ +############################################################################## +# # +# MOC # +# # +# Perl script for WeeChat. # +# # +# Show info about current song in moc # +# # +# # +# # +# Copyright (C) 2006 Jiri Golembiovsky <golemj@gmail.com> # +# # +# This program is free software; you can redistribute it and/or # +# modify it under the terms of the GNU General Public License # +# as published by the Free Software Foundation; either version 2 # +# of the License, or (at your option) any later version. # +# # +# This program is distributed in the hope that it will be useful, # +# but WITHOUT ANY WARRANTY; without even the implied warranty of # +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # +# GNU General Public License for more details. # +# # +# You should have received a copy of the GNU General Public License # +# along with this program; if not, write to the Free Software # +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, # +# MA 02110-1301, USA. # +# # +############################################################################## + +weechat::register( "MOCP", "0.2", "", "Show info about current song in moc" ); +weechat::add_command_handler( + "moc", + moc, + "Show info about current song in moc", + "[[-i][-o][-ot]]", + "-i show info about current song (default parameter if no other is given)\n" . + "-o print results to the current channel as /msg\n" . + "-ot print results to the current channel as /me, this parameter overide -o parameter\n" . + "To set output format use moc_set_format command.\n" . + "To set another default output type than -i use moc_set_output command.\n", + "-i|-o|-ot" +); + +weechat::add_command_handler( + "moc_set_format", + mocSetFormat, + "Set output format for moc command", + "format_string", + "Following combinations will be replaced by apropriate text:\n". + " %A - artist\n" . + " %B - album\n" . + " %F - file name with path\n" . + " %H - file name without path\n" . + " %J - total time\n" . + " %K - current time\n" . + " %L - time left\n" . + " %M - total seconds\n" . + " %N - current seconds\n" . + " %S - state\n" . + " %T - title\n" . + " %U - song title\n" . + " %Y - biterate\n" . + " %Z - rate\n" . + "When no format string is setted then current format string is printed.", + "" +); + +weechat::add_command_handler( + "moc_set_output", + mocSetOutput, + "Set default output for moc command", + "i|o|ot", + "For more info see help of moc command", + "i|o|ot" +); + +sub info { + my $i; + my $res = ""; + my $sout = `mocp -i`; + my @out = split( "\n", $sout ); + my $format = weechat::get_plugin_config( "outputFormat" ); + if( length( $format ) == 0 ) { $format = "is listening to %T ::: %H"; } + if( $#out < 2 ) { return ""; } + for( $i = 0; $i <= $#out; $i++ ) { + if( ( index( @out[$i], ' ' ) == -1 ) || + ( index( @out[$i], ' ' ) == ( length( @out[$i] ) - 1 ) ) + ) { + @out[$i] = ""; + } else { + @out[$i] = substr( @out[$i], index( @out[$i], ' ' ) + 1 ); + } + } + $i = 0; + while( $i < length( $format ) ) { + if( substr( $format, $i, 1 ) eq '%' ) { + $i++; + if( substr( $format, $i, 1 ) eq 'A' ) { $res = $res . @out[3]; } + if( substr( $format, $i, 1 ) eq 'B' ) { $res = $res . @out[5]; } + if( substr( $format, $i, 1 ) eq 'F' ) { $res = $res . @out[1]; } + if( substr( $format, $i, 1 ) eq 'H' ) { + if( index( @out[1], "://" ) > 0 ) { + $res = $res . @out[1]; + } else { + $res = $res . substr( @out[1], rindex( @out[1], '/' ) + 1 ); + } + } + if( substr( $format, $i, 1 ) eq 'J' ) { $res = $res . @out[6]; } + if( substr( $format, $i, 1 ) eq 'K' ) { $res = $res . @out[9]; } + if( substr( $format, $i, 1 ) eq 'L' ) { $res = $res . @out[7]; } + if( substr( $format, $i, 1 ) eq 'M' ) { $res = $res . @out[8]; } + if( substr( $format, $i, 1 ) eq 'N' ) { $res = $res . @out[10]; } + if( substr( $format, $i, 1 ) eq 'S' ) { $res = $res . @out[0]; } + if( substr( $format, $i, 1 ) eq 'T' ) { $res = $res . @out[2]; } + if( substr( $format, $i, 1 ) eq 'U' ) { $res = $res . @out[4]; } + if( substr( $format, $i, 1 ) eq 'Y' ) { $res = $res . @out[11]; } + if( substr( $format, $i, 1 ) eq 'Z' ) { $res = $res . @out[12]; } + } else { + $res = $res . substr( $format, $i, 1 ); + } + $i++; + } + return $res; +} + +sub moc { + my $out; + my $outType = weechat::get_plugin_config( "outputType" ); + if( length( $outType ) == 0 ) { $outType = 'i'; } + if( length( $_[1] ) ) { $outType = $_[1]; } + if( ( $outType ne 'i' ) && ( $outType ne 'o' ) && ( $outType ne 'ot' ) ) { + weechat::print( "Bad parameter or default output type" ); + } + $out = info(); + if( $outType eq 'i' ) { weechat::print( $out ); } + if( $outType eq 'o' ) { weechat::command( $out ); } + if( $outType eq 'ot' ) { weechat::command( "/me " . $out ); } + return weechat::PLUGIN_RC_OK; +} + +sub mocSetFormat { + if( length( $_[1] ) ) { + weechat::set_plugin_config( "outputFormat", $_[1] ); + } else { + my $format = weechat::get_plugin_config( "outputFormat" ); + if( length( $format ) == 0 ) { $format = "is listening to %T ::: %H"; } + weechat::print( "Current format is \"$format\"" ); + } + return weechat::PLUGIN_RC_OK; +} + +sub mocSetOutput { + if( length( $_[1] ) ) { + if( ( $_[1] eq 'i' ) || ( $_[1] eq 'o' ) || ( $_[1] eq 'ot' ) ) { + weechat::set_plugin_config( "outputType", $_[1] ); + } else { + weechat::print( "moc_set_command: bad parameter" ); + } + } else { + my $out = weechat::get_plugin_config( "outputType" ); + if( length( $out ) == 0 ) { $out = 'i'; } + weechat::print( "Default output: $out" ); + } + return weechat::PLUGIN_RC_OK; +} + |