diff options
Diffstat (limited to 'scripts/xmms.pl')
| -rw-r--r-- | scripts/xmms.pl | 161 |
1 files changed, 161 insertions, 0 deletions
diff --git a/scripts/xmms.pl b/scripts/xmms.pl new file mode 100644 index 0000000..6a72b1e --- /dev/null +++ b/scripts/xmms.pl @@ -0,0 +1,161 @@ +# XMMS-InfoPipe front-end - allow /np [dest] +# +# Thanks to ak for suggestions and even changes. +# +# /set xmms_fifo <dest of xmms-infopipe fifo> +# /set xmms_format <format of printed text> +# /set xmms_format_streaming <format for streams> +# /set xmms_print_if_stopped <ON|OFF> +# /set xmms_format_time <time format> - default is %m:%s +# +# xmms_format* takes these arguments: +# Variable Name Example +# ---------------------------------------------------- +# Song specific: +# %status Status Playing +# %title Title Blue Planet Corporation - Open Sea +# %file File /mp3s/blue planet corporation - open sea.mp3 +# %length Length 9:13 +# %pos Position 0:08 +# %bitrate Bitrate 160kbps +# %freq Sampling freq. 44.1kHz +# %pctdone Percent done 1.4% +# %channels Channels 2 +# Playlist specific: +# %pl_total Total entries +# %pl_current Position in playlist +# ¤pl_pctdone Playlist Percent done +use strict; +use Irssi; +use vars qw($VERSION %IRSSI); +$VERSION = "2.0"; +%IRSSI = { + authors => 'Simon Shine', + contact => 'simon@blueshell.dk', + name => 'xmms', + description => 'XMMS-InfoPipe front-end - allow /np [-help] [dest]', + license => 'Public Domain', + changed => '2004-01-15' +}; + +Irssi::settings_add_str('xmms', 'xmms_fifo', '/tmp/xmms-info'); +Irssi::settings_add_str('xmms', 'xmms_format', 'np: %title at %bitrate [%pos of %length]'); +Irssi::settings_add_str('xmms', 'xmms_format_streaming', 'streaming: %title at %bitrate [%file]'); +Irssi::settings_add_str('xmms', 'xmms_format_time', '%m:%s'); +Irssi::settings_add_bool('xmms', 'xmms_print_if_stopped', 'yes'); + +Irssi::command_bind('np', \&cmd_xmms); +Irssi::command_bind('xmms', \&cmd_xmms); +# Tab completition +Irssi::command_bind('np help', \&cmd_xmms); +Irssi::command_bind('xmms help', \&cmd_xmms); + +sub cmd_xmms { + my ($args, $server, $witem) = @_; + + $args =~ s/^\s+//; + $args =~ s/\s+$//; + + if ($args =~ /^help/) { + print CRAP q{ +Valid format strings for xmms_format and xmms_format_streaming: + %%status, %%title, %%file, %%length, %%pos, %%bitrate, + %%freq, %%pctdone, %%channels, %%pl_total, %%pl_current + +Example: /set xmms_format np: %%title at %%bitrate [%%pctdone] + +Valid format string for xmms_format_time: + %%m, %%s + +Example: /set xmms_format_time %%m minutes, %%s seconds +}; + return; + } + + my ($xf) = Irssi::settings_get_str('xmms_fifo'); + if (!-r $xf) { + if (!-r '/tmp/xmms-info') { + Irssi::print "Couldn't find a valid XMMS-InfoPipe FIFO."; + return; + } + $xf = '/tmp/xmms-info'; + } + + my %xi; + + open(XMMS, $xf); + while (<XMMS>) { + chomp; + my ($key, $value) = split /: /, $_, 2; + $xi{$key} = $value; + } + close(XMMS); + + my %fs; + + # %status + $fs{'status'} = $xi{'Status'}; + # %title + if ($fs{'status'} ne "Playing") { + if (Irssi::settings_get_bool('xmms_print_if_stopped')) { + $fs{'title'} = sprintf('(%s) %s', $fs{'status'}, $xi{'Title'}); + } else { + Irssi::print "XMMS is currently not playing."; + return; + } + } else { + $fs{'title'} = $xi{'Title'}; + } + # %file + $fs{'file'} = $xi{'File'}; + # %length + $fs{'length'} = &format_time($xi{'Time'}); + # %pos + $fs{'pos'} = &format_time($xi{'Position'}); + # %bitrate + $fs{'bitrate'} = sprintf("%.0fkbps", $xi{'Current bitrate'} / 1000); + # %freq + $fs{'freq'} = sprintf("%.1fkHz", $xi{'Samping Frequency'} / 1000); + # %pctdone + if ($xi{'uSecTime'} > 0) { + $fs{'pctdone'} = sprintf("%.1f%%%%", ($xi{'uSecPosition'} / $xi{'uSecTime'}) * 100); + } else { + $fs{'pctdone'} = "0.0%%"; + } + # %channels + $fs{'channels'} = $xi{'Channels'}; + # %pl_total + $fs{'pl_total'} = $xi{'Tunes in playlist'}; + # %pl_current + $fs{'pl_current'} = $xi{'Currently playing'}; + # %pl_pctdone + $fs{'pl_pctdone'} = sprintf("%.1f%%%%", ($fs{'pl_current'} / ($fs{'pl_total'} ? $fs{'pl_total'} : 1)) * 100); + + + my ($format) = ($xi{'uSecTime'} == "-1") ? + Irssi::settings_get_str('xmms_format_streaming') : + Irssi::settings_get_str('xmms_format'); + foreach (keys %fs) { + $format =~ s/\%$_/$fs{$_}/g; + } + + # sending it. + if ($server && $server->{connected} && $witem && + ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) { + if ($args eq "") { + $witem->command("/SAY $format"); + } else { + $witem->command("/MSG $args $format"); + } + } else { + Irssi::print($format); + } +} + +sub format_time { + my ($m, $s) = split /:/, @_[0], 2; + my ($format) = Irssi::settings_get_str('xmms_format_time'); + $format =~ s/\%m/$m/g; + $format =~ s/\%s/$s/g; + return $format; +} |