]> git.sur5r.net Git - i3/i3/commitdiff
add a more involved example to the SYNOPSIS
authorMichael Stapelberg <michael@stapelberg.de>
Sun, 5 Aug 2012 15:31:07 +0000 (17:31 +0200)
committerMichael Stapelberg <michael@stapelberg.de>
Sat, 19 Aug 2017 16:13:19 +0000 (18:13 +0200)
lib/AnyEvent/I3.pm

index c338878aa3f0c8cdfc4ae03160ba1bf13b675811..63f063f40d2ed016f80ab3280cfe58d81e35e87a 100644 (file)
@@ -45,6 +45,28 @@ then subscribe to events or send messages and receive their replies.
     my $workspaces = i3->get_workspaces->recv;
     say "Currently, you use " . @{$workspaces} . " workspaces";
 
+A somewhat more involved example which dumps the i3 layout tree whenever there
+is a workspace event:
+
+    use Data::Dumper;
+    use AnyEvent;
+    use AnyEvent::I3;
+
+    my $i3 = i3();
+
+    $i3->connect->recv or die "Error connecting to i3";
+
+    $i3->subscribe({
+        workspace => sub {
+            $i3->get_tree->cb(sub {
+                my ($tree) = @_;
+                say "tree: " . Dumper($tree);
+            });
+        }
+    })->recv->{success} or die "Error subscribing to events";
+
+    AE::cv->recv
+
 =head1 EXPORT
 
 =head2 $i3 = i3([ $path ]);