Xmms-Perl

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

=item 0.12 - March 20, 2002

use glib-config to help find glib.h
[Julio Blanco Perez <jblanco@telecable.es>]

=item 0.11 - March 20, 2002

workaround bug in xmms_remote_playist() that caused hang with xmms 1.2.7

fix bug in all_win_toggle which causes prefs win to popup with xmms 1.2.4
thanks to cutter brown for the spot

remove Audio::CD cddb support now that xmms has native cddb support

Xmms::Cmd::quit now uses $remote->quit rather than kill $sig, $pid

new Xmms::Remote methods: quit, is_{main,pl,eq}_win, is_{repeat,toggle}
                          {get,set}_eq_{band,preamp}
                          {get,set}_eq

Changes  view on Meta::CPAN

=item 0.05 - June 18, 1999

fix `sort' command completion

added experimental Xmms::SongChange module

=item 0.04 - June 14, 1999

`track' will display {jtime} if jump time is set for that track

`prefs' added to `window' list

`url' command will `play' the url if not already playing

last played `url' will be saved in ~/.xmms/config for `-' completion

x11amp -> xmms rename

new `mtime' command will "mark" the current output time for the `jtime' 
command, also bound to `M-m'

Changes  view on Meta::CPAN

`M-`' keystoke will now run last command in the history list

`M--' and `M-=' won't print current info

`M-+' binding moved to `M-='

added balance command

current function now displays rate, frequency and mode

warn if Output Plugin is disk_writer and pop prefs box if so

window command displays usage if used wrong

all commands are exported, for use via perl -MX11amp -e ...

determine if playlist_add_url is available

warn if more that 1 libx11amp.so's are found

fix current, time, etc., commands when playlist is empty

Remote/Remote.xs  view on Meta::CPAN

typedef gint Xmms__Remote;

#define PUSHgint(g) PUSHs(sv_2mortal(newSViv(g)))

#define CURRENT_POS \
xmms_remote_get_playlist_pos(session)

static gint xmms_session = 0;

#define xmms_remote_prefs_win_toggle(session, show) \
xmms_remote_show_prefs_box(session)

#ifndef HAS_ADD_URL
#define xmms_remote_playlist_add_url_string(session, string) \
        croak("playlist_add_url not available")
#endif

#define xmms_remote_playlist_add_url \
        xmms_remote_playlist_add_url_string

#ifndef HAS_DELETE

Remote/Remote.xs  view on Meta::CPAN

xmms_remote_pl_win_toggle(session, show)
    Xmms::Remote session
    gboolean show

void 
xmms_remote_eq_win_toggle(session, show)
    Xmms::Remote session
    gboolean show

void 
xmms_remote_prefs_win_toggle(session, show)
    Xmms::Remote session
    gboolean show

void 
xmms_remote_show_prefs_box(session)
    Xmms::Remote session

void 
xmms_remote_toggle_aot(session, ontop)
    Xmms::Remote session
    gboolean ontop

gboolean
xmms_remote_is_main_win(session)
    Xmms::Remote session

lib/Xmms.pm  view on Meta::CPAN

    if ($op =~ /disk_writer/) {
	print <<EOF;
*************************************************************
* WARNING:
* Your xmms Output Plugin is set to disk_writer,
* which is probably not what you want.
* I\'ll pop up a the preferences window for you to change...
*************************************************************
EOF
        sleep 1;
	$remote->show_prefs_box;
    }
}

#the default C-c binding hosed my tty
sub readline::F_Xmms_interrupt {
    readline::F_UnixLineDiscard();
    Xmms::Cmd->quit if $Signal++;
}

sub readline::F_Xmms_volume_up {

lib/Xmms.pm  view on Meta::CPAN

	print $fh join "\n", grep { !/^history/ } @history, "";
	close $fh;
    }
    else {
	$line = $args;
    }

    Xmms::run_cmd($line);
}

my @windows = qw(main pl eq prefs all);
sub Xmms::WindowCmds { \@windows }
my %windows = map { $_,1 } @windows;

sub Xmms::Usage::window {
    my $opts = join '|', @windows;

    print Xmms::highlight(Error => 
			    "usage: window [$opts] [hide|show]\n");
}

test.pl  view on Meta::CPAN

}

my $op = $config->read(xmms => 'output_plugin');

if ($op =~ /disk_writer/) {
    print <<EOF;
Your Output plugin is set to disk_writer, which is probably not what you want.
I\'ll pop up the preferences window for you to change.
Afterwards, close xmms and run 'make test' again.
EOF
    $remote->show_prefs_box;
    print "1..0\n";
    exit;
}

unless ($remote->get_version) {
    print "1..0\n";
    exit;
}

plan tests => 10;