From: Michael Stapelberg <michael@stapelberg.de>
Date: Sun, 5 Aug 2012 15:31:07 +0000 (+0200)
Subject: add a more involved example to the SYNOPSIS
X-Git-Tag: 4.14~14^2~12
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=d8ad62c36fb1d481f399a7292349dfaa1041ee96;p=i3%2Fi3

add a more involved example to the SYNOPSIS
---

diff --git a/lib/AnyEvent/I3.pm b/lib/AnyEvent/I3.pm
index c338878a..63f063f4 100644
--- a/lib/AnyEvent/I3.pm
+++ b/lib/AnyEvent/I3.pm
@@ -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 ]);