summaryrefslogtreecommitdiffstats
path: root/scripts/xmms.pl
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--scripts/xmms.pl161
1 files changed, 161 insertions, 0 deletions
diff --git a/scripts/xmms.pl b/scripts/xmms.pl
new file mode 100644
index 0000000..a18c2b9
--- /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;
+}