Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 12 lines (8 sloc) 291 Bytes
#!/usr/bin/perl
use strict;
use feature 'say';
use Lyrics::Fetcher::LyricWiki;
chomp(my $artist = `mpc -h shiva --format "%artist%"|head -1`);
chomp(my $title = `mpc -h shiva --format "%title%"|head -1`);
print Lyrics::Fetcher::LyricWiki->fetch($artist, $title);
say "$artist - $title";