diff options
Diffstat (limited to 'perl5')
| -rw-r--r-- | perl5/Local/Desktop.pm | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/perl5/Local/Desktop.pm b/perl5/Local/Desktop.pm index 616ee89e..347495fe 100644 --- a/perl5/Local/Desktop.pm +++ b/perl5/Local/Desktop.pm @@ -85,8 +85,7 @@ sub fresh_workspace { =head compact_workspaces(%opts) -Rename workspaces so as to remove gaps in the sequence of workspaces, and show -or hide workspace buttons depending on whether there is >1 workspace. +Rename workspaces so as to remove gaps in the sequence of workspaces. If C<$opts{leave_gap}>, ensure there is a gap of one workspace after the currently focused workspace and return the name of the gap workspace, or just @@ -98,8 +97,6 @@ sub compact_workspaces { my %opts = @_; my @workspaces = @{ decode_json `$wmipc -t get_workspaces` }; @workspaces < @all_workspaces or return; - my $buttons_cmd - = "bar bar-0 workspace_buttons " . (@workspaces > 1 ? "yes" : "no"); my ($current_workspace, $gap_workspace); if ($opts{leave_gap}) { $_->{focused} and $current_workspace = $_->{name}, last @@ -119,7 +116,7 @@ sub compact_workspaces { : unshift @cmds, $pair } - wmipc $buttons_cmd, map "rename workspace $_->[0] to $_->[1]", @cmds; + wmipc map "rename workspace $_->[0] to $_->[1]", @cmds; $opts{leave_gap} and $gap_workspace } |