From 43c43062b601a9f8a0aad7b4ea13b257e06d43e1 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 15 Jan 2024 14:49:58 +0000 Subject: compact_workspaces: ignore i3status-wrapper hidden workspaces --- perl5/Local/Desktop.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'perl5') diff --git a/perl5/Local/Desktop.pm b/perl5/Local/Desktop.pm index a9051b02..f769d827 100644 --- a/perl5/Local/Desktop.pm +++ b/perl5/Local/Desktop.pm @@ -29,7 +29,7 @@ use File::LibMagic; use File::Spec::Functions "rel2abs"; use Exporter "import"; use File::Copy; -use List::Util "first"; +use List::Util "first", "any"; use Local::Desktop::WMIPC; our @EXPORT = qw( @@ -94,7 +94,10 @@ return undef if there is no space for a gap. sub compact_workspaces { my %opts = @_; my $wmipc = Local::Desktop::WMIPC->new; - my @workspaces = $wmipc->get_workspaces->@*; + my @workspaces; + foreach my $ws ($wmipc->get_workspaces->@*) { + any { $_ eq $ws->{name} } @all_workspaces and push @workspaces, $ws + } @workspaces < @all_workspaces or return; my ($current_workspace, $gap_workspace); if ($opts{leave_gap}) { -- cgit v1.2.3