From ead15574680e34144142f203ec01c8d4689e908d Mon Sep 17 00:00:00 2001
From: Michael Stapelberg <michael@stapelberg.de>
Date: Sat, 10 Dec 2011 11:37:43 +0000
Subject: [PATCH] implement the GET_LOG_MARKERS request

Requires i3 version 966c654112561b21fca076a8e967033510da9981 or later.
---
 lib/AnyEvent/I3.pm | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/lib/AnyEvent/I3.pm b/lib/AnyEvent/I3.pm
index fea470bc..6b8f905b 100644
--- a/lib/AnyEvent/I3.pm
+++ b/lib/AnyEvent/I3.pm
@@ -67,10 +67,11 @@ use constant TYPE_GET_OUTPUTS => 3;
 use constant TYPE_GET_TREE => 4;
 use constant TYPE_GET_MARKS => 5;
 use constant TYPE_GET_BAR_CONFIG => 6;
+use constant TYPE_GET_LOG_MARKERS => 7;
 
 our %EXPORT_TAGS = ( 'all' => [
     qw(i3 TYPE_COMMAND TYPE_GET_WORKSPACES TYPE_SUBSCRIBE TYPE_GET_OUTPUTS
-       TYPE_GET_TREE TYPE_GET_MARKS TYPE_GET_BAR_CONFIG)
+       TYPE_GET_TREE TYPE_GET_MARKS TYPE_GET_BAR_CONFIG TYPE_GET_LOG_MARKERS)
 ] );
 
 our @EXPORT_OK = ( @{ $EXPORT_TAGS{all} } );
@@ -374,6 +375,23 @@ sub get_bar_config {
     $self->message(TYPE_GET_BAR_CONFIG, $id)
 }
 
+=head2 get_log_markers
+
+Gets the bar configuration for the specific bar id from i3 (>= v4.1).
+
+    my $markers = i3->get_log_markers()->recv;
+    say Dumper($markers);
+
+=cut
+sub get_log_markers {
+    my ($self) = @_;
+
+    $self->_ensure_connection;
+
+    $self->message(TYPE_GET_LOG_MARKERS)
+}
+
+
 =head2 command($content)
 
 Makes i3 execute the given command
-- 
2.39.5