Move argument parsing into script
authorMarius Gavrilescu <marius@ieval.ro>
Sat, 6 Feb 2016 18:10:24 +0000 (18:10 +0000)
committerMarius Gavrilescu <marius@ieval.ro>
Sat, 6 Feb 2016 18:10:24 +0000 (18:10 +0000)
lib/App/XMMS2/Notifier.pm
xmms2-notifier

index d04b638..f61a74a 100644 (file)
@@ -7,18 +7,11 @@ our $VERSION = 0.001001;
 use Audio::XMMSClient 0.03;
 use Gtk2::Notify 0.05 -init,'xmms2-notifyd';
 
-use Getopt::Long;
-
 use constant CONVERSION_SPECIFIERS => qw/bitrate date sample_format url id channels samplerate tracknr genre artist album title/;
 
 ##################################################
 
-my $format = '$artist - $title';
-
-GetOptions (
-       "format=s" => \$format,
-);
-
+my $format;
 my $xmms = Audio::XMMSClient->new('xmms2-notifyd');
 my $notify = Gtk2::Notify->new('');
 
@@ -53,6 +46,7 @@ sub on_playback_status {
 }
 
 sub run {
+       $format = $_[0];
        while (1) {
                last if ($xmms->connect);
                sleep 1
index 262d6b5..a4812ae 100755 (executable)
@@ -3,8 +3,11 @@ use v5.14;
 use warnings;
 
 use App::XMMS2::Notifier;
+use Getopt::Long;
 
-App::XMMS2::Notifier->run
+my $format = '$artist - $title';
+GetOptions ("format=s" => \$format);
+App::XMMS2::Notifier::run($format)
 
 __END__
 
This page took 0.081504 seconds and 4 git commands to generate.