1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
#=================================================================================
#
# rhythmbox.pl
# script that allows you to control rhythmbox from irssi
#
#=================================================================================
# INITIAL SECTION
#=================================================================================
use Irssi;
use Irssi::Irc;
use strict;
use vars qw($VERSION %IRSSI);
$VERSION = "1.30";
%IRSSI = (
authors => 'Fogel',
contact => 'fogel@fogel.netmark.pl',
name => 'rhythmbox',
description => 'Rhythmbox now playing script',
license => 'BSD',
url => "www.fogel.com.pl",
);
#=================================================================================
# NOW PLAYING SECTION
#=================================================================================
sub now_playing {
my ($data, $server, $witem) = @_;
my $title = `rhythmbox-client --print-playing-format %tt`;
my $artist = `rhythmbox-client --print-playing-format %ta`;
my $number = `rhythmbox-client --print-playing-format %tn`;
my $duration = `rhythmbox-client --print-playing-format %td`;
my $elapsed = `rhythmbox-client --print-playing-format %te`;
my $album_title = `rhythmbox-client --print-playing-format %at`;
my $album_artist = `rhythmbox-client --print-playing-format %aa`;
my $album_year = `rhythmbox-client --print-playing-format %ay`;
my $album_genre = `rhythmbox-client --print-playing-format %ag`;
my $disc_number = `rhythmbox-client --print-playing-format %an`;
if ($number =~ m/^\d*$/i) {
my $output = "np: $artist - $title ($elapsed / $duration)"; # here set desired format of output
if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) {
$witem->command("me $output")
} else {
Irssi::print("This is not a channel/query window");
}
} else {
Irssi::print("rhythmbox is not playing anything at the moment.");
}
}
#=================================================================================
# RHYTHMBOX CONTROL SECTION
#=================================================================================
sub pause {
system("rhythmbox-client --pause");
}
sub play {
system("rhythmbox-client --play");
}
sub next {
system("rhythmbox-client --next");
}
sub previous {
system("rhythmbox-client --previous");
}
sub volume_up {
system("rhythmbox-client --volume-up");
}
sub volume_down {
system("rhythmbox-client --volume-down");
}
sub volume {
my $vol = `rhythmbox-client --print-volume`;
Irssi::print("rhythmbox volume: $vol");
}
sub mute {
system("rhythmbox-client --mute");
}
sub unmute {
system("rhythmbox-client --unmute");
}
#=================================================================================
# HELP DISPLAY SECTION SECTION
#=================================================================================
sub help {
Irssi::print("rhythmbox.pl - rhythmbox control script for irssi");
Irssi::print("Copyright Michal \"Fogel\" Fogelman");
Irssi::print("List of commands:");
Irssi::print("/np - now playing - show others what are you listening to");
Irssi::print("/pause, /play");
Irssi::print("/prev, /next - previous/next track");
Irssi::print("/vup, /vdown - volume up/down");
Irssi::print("/volume - displays current volume level");
Irssi::print("/mute, /unmute");
}
#=================================================================================
# COMMAND BINDINGS
#=================================================================================
Irssi::command_bind('np', 'now_playing');
Irssi::command_bind('pause', 'pause');
Irssi::command_bind('play', 'play');
Irssi::command_bind('next', 'next');
Irssi::command_bind('prev', 'previous');
Irssi::command_bind('vup', 'volume_up');
Irssi::command_bind('vdown', 'volume_down');
Irssi::command_bind('vol', 'volume');
Irssi::command_bind('mute', 'mute');
Irssi::command_bind('unmute', 'unmute');
Irssi::command_bind('rhythmbox_help', 'help');
#=================================================================================
# END OF FILE
#=================================================================================
|
