koma/i3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Move get_output_for_workspace() to i3test

Browse Source
This commit is contained in:
Orestis Floros
2018-03-28 01:57:54 +03:00
parent bc439de755
commit 1d5b43c18f
3 changed files with 24 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
testcases/lib/i3test.pm.in
View File

@ -26,6 +26,7 @@ use Data::Dumper ();
use Exporter ();
our @EXPORT = qw(
get_workspace_names
get_output_for_workspace
get_unused_workspace
fresh_workspace
get_ws_content
@ -402,6 +403,29 @@ sub get_workspace_names {
[ map { $_->{name} } @cons ]
}
=head2 get_output_for_workspace()
Returns the name of the output on which this workspace resides
cmd 'focus output fake-1';
cmd 'workspace 1';
is(get_output_for_workspace('1', 'fake-0', 'Workspace 1 in output fake-0');
=cut
sub get_output_for_workspace {
my $ws_name = shift @_;
my $i3 = i3(get_socket_path());
my $tree = $i3->get_tree->recv;
my @outputs = @{$tree->{nodes}};
foreach (grep { not $_->{name} =~ /^__/ } @outputs) {
my $output = $_->{name};
foreach (grep { $_->{name} =~ "content" } @{$_->{nodes}}) {
return $output if $_->{nodes}[0]->{name} =~ $ws_name;
}
}
}
=head2 get_unused_workspace
Returns a workspace name which has not yet been used. See also