From: Michael Stapelberg Date: Sat, 10 Dec 2011 11:37:43 +0000 (+0000) Subject: implement the GET_LOG_MARKERS request X-Git-Tag: 4.14~14^2~22 X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=ead15574680e34144142f203ec01c8d4689e908d;p=i3%2Fi3 implement the GET_LOG_MARKERS request Requires i3 version 966c654112561b21fca076a8e967033510da9981 or later. --- 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