#!/usr/bin/perl

#
# .bitchxrc:
#
# alias mp3 {                                                                                                                                                           
#   ^exec -name MP3Q ~/.BitchX/mp3.pl                                                                                                                                   
#   ^on ^exec "MP3Q *" {                                                                                                                                                
#     describe $C nlp $1-                                                                                                                                               
#     echo $Z $N/$C $1- }                                                                                                                                               
# }                                                                                                                                                                     
#                                                                                                                                                                       
# on +public "* #hgb !mp3" {                                                                                                                                            
#   ^exec -name MP3Q ~/.BitchX/mp3.pl                                                                                                                                   
#   ^on ^exec "MP3Q *" {                                                                                                                                                
#     describe #hgb nlp $1-                                                                                                                                             
#     echo $Z $N/#hgb $1- }                                                                                                                                             
# } 
#

use Xmms;
use Xmms::Remote;

my $xmms = Xmms::Remote->new;

if ($xmms->is_running) 
{
    my $title = $xmms->get_playlist_title($xmms->get_playlist_pos);
    chomp;
    ($artist, $title) = (split/\ -\ /, $title);

    if($artist && $title)
    {
        print "[\u$artist\E :: \u$title\E]\n";
        print "\n";
    }
}
else
{
    print "[no XMMS running]\n";
}