nixo
/
gri3-wm
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use $self->message in subscribe

This commit is contained in:
Michael Stapelberg 2010-03-22 22:33:26 +01:00
parent b57fca1ef9
commit 1aac4d3f14
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lib/AnyEvent/I3.pm
View File

@ -157,24 +157,25 @@ sub _handle_i3_message {
Subscribes to the given event types. This function awaits a hashref with the
key being the name of the event and the value being a callback.
$i3->subscribe({
my %callbacks = (
workspace => sub { say "Workspaces changed" }
});
);
if ($i3->subscribe(\%callbacks)->recv->{success})
say "Successfully subscribed";
}
=cut
sub subscribe {
my ($self, $callbacks) = @_;
my $payload = encode_json [ keys %{$callbacks} ];
my $len = length($payload);
my $message = $magic . pack("LL", $len, TYPE_SUBSCRIBE) . $payload;
$self->{ipchdl}->push_write($message);
# Register callbacks for each message type
for my $key (keys %{$callbacks}) {
my $type = $events{$key};
$self->{callbacks}->{$type} = $callbacks->{$key};
}
$self->message(TYPE_SUBSCRIBE, [ keys %{$callbacks} ])
}
=head2 $i3->message($type, $content)