# # 2021-02-25 # - fix typos in the help comments # # 2017-12-30 bcattaneo: # - initial release # use Irssi; use Irssi::Irc; use strict; use vars qw($VERSION %IRSSI); # # List of commands: # /np - now playing # /dbplay - Start playback # /dbstop - Stop playback # /dbpause - Pause playback # /dbnext - Next song in playlist # /dbprev - Previous song in playlist # /dbrandom - Random song in playlist # # Settings: # /set deadbeef_format [Formatting syntax for "now playing" command] # For more info, see https://github.com/DeaDBeeF-Player/deadbeef/wiki/Title-formatting # our $VERSION = '1.0.1'; our %IRSSI = ( authors => 'bcattaneo', contact => '[email protected]', name => 'deadbeef', url => 'http://github.com/bcattaneo', description => 'deadbeef control and now playing script', license => 'Public Domain', #changed => "2021-02-25", ); Irssi::settings_add_str('deadbeef', 'deadbeef_format' => '%a - %t'); my $deadbeef = "deadbeef.pl"; ######################### ## Now playing command ## ######################### sub now_playing { my ($data, $server, $witem) = @_; my $format = Irssi::settings_get_str('deadbeef_format'); my $output = (split("\n",`deadbeef --nowplaying "$format" 2>&1`))[-1]; if ($output ne "nothing" ) { if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) { $witem->command("me nowplaying: $output") } else { Irssi::print("%_$deadbeef%_ - Not a channel/query!"); } } else { Irssi::print("%_$deadbeef%_ - Play something!"); } } ############## ## Controls ## ############## sub play { system("deadbeef --play &> /dev/null"); } sub stop { system("deadbeef --stop &> /dev/null"); } sub pause { system("deadbeef --pause &> /dev/null"); } sub next { system("deadbeef --next &> /dev/null"); } sub prev { system("deadbeef --prev &> /dev/null"); } sub random { system("deadbeef --prev &> /dev/null"); } ##################### ## Command binding ## ##################### Irssi::command_bind('np', 'now_playing'); Irssi::command_bind('dbplay', 'play'); Irssi::command_bind('dbstop', 'stop'); Irssi::command_bind('dbpause', 'pause'); Irssi::command_bind('dbnext', 'next'); Irssi::command_bind('dbprev', 'prev'); Irssi::command_bind('dbrandom', 'random');