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

Provide constants for message types

next
Michael Stapelberg 2010-03-13 18:17:12 +01:00
parent 1044c9814b
commit e35d6039d7
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lib/AnyEvent/I3.pm
View File

@ -30,14 +30,14 @@ Note that as soon as you subscribe to some kind of event, you should B<NOT>
send any more messages as race conditions might occur. Instead, open another send any more messages as race conditions might occur. Instead, open another
connection for that. connection for that.
use AnyEvent::I3; use AnyEvent::I3 qw(:all);
my $i3 = i3("/tmp/i3-ipc.sock"); my $i3 = i3("/tmp/i3-ipc.sock");
$i3->connect->recv; $i3->connect->recv;
say "Connected to i3"; say "Connected to i3";
my $workspaces = $i3->message(1)->recv; my $workspaces = $i3->message(TYPE_GET_WORKSPACES)->recv;
say "Currently, you use " . @{$workspaces} . " workspaces"; say "Currently, you use " . @{$workspaces} . " workspaces";
=head1 EXPORT =head1 EXPORT
@ -51,16 +51,23 @@ the UNIX socket to connect to.
=cut =cut
use Exporter; use Exporter;
use base 'Exporter'; use base 'Exporter';
our @EXPORT = qw(i3); our @EXPORT = qw(i3);
use constant TYPE_COMMAND => 0;
use constant TYPE_GET_WORKSPACES => 1;
use constant TYPE_SUBSCRIBE => 2;
our %EXPORT_TAGS = ( 'all' => [
qw(TYPE_COMMAND TYPE_GET_WORKSPACES TYPE_SUBSCRIBE)
] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{all} } );
my $magic = "i3-ipc"; my $magic = "i3-ipc";
# TODO: export constants for message types
# TODO: auto-generate this from the header file? (i3/ipc.h) # TODO: auto-generate this from the header file? (i3/ipc.h)
my $event_mask = (1 << 31); my $event_mask = (1 << 31);
my %events = ( my %events = (
@ -178,8 +185,7 @@ sub subscribe {
Sends a message of the specified C<type> to i3, possibly containing the data Sends a message of the specified C<type> to i3, possibly containing the data
structure C<payload>, if specified. structure C<payload>, if specified.
my $cv = $i3->message(0, "reload"); my $reply = $i3->message(TYPE_COMMAND, "reload")->recv;
my $reply = $cv->recv;
if ($reply->{success}) { if ($reply->{success}) {
say "Configuration successfully reloaded"; say "Configuration successfully reloaded";
} }