applications/i3
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

retab!

Browse Source
This commit is contained in:
Michael Stapelberg 2010-04-16 14:34:12 +02:00
parent 9b737f631d
commit d94bef2ebb
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
testcases/t/17-workspace.t
View File

@ -14,21 +14,21 @@ use v5.10;
my $i3 = i3("/tmp/nestedcons");
sub get_workspace_names {
my $tree = $i3->get_workspaces->recv;
my @workspaces = map { @{$_->{nodes}} } @{$tree->{nodes}};
[ map { $_->{name} } @workspaces ]
my $tree = $i3->get_workspaces->recv;
my @workspaces = map { @{$_->{nodes}} } @{$tree->{nodes}};
[ map { $_->{name} } @workspaces ]
}
sub workspace_exists {
my ($name) = @_;
($name ~~ @{get_workspace_names()})
my ($name) = @_;
($name ~~ @{get_workspace_names()})
}
sub get_unused_workspace {
my @names = get_workspace_names();
my $tmp;
do { $tmp = tmpnam() } while ($tmp ~~ @names);
$tmp
my @names = get_workspace_names();
my $tmp;
do { $tmp = tmpnam() } while ($tmp ~~ @names);
$tmp
}
my $tmp = get_unused_workspace();