diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2024-01-14 17:30:37 +0000 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2024-01-14 17:30:57 +0000 |
commit | d8bff5bbe30026a15c6f7e085ba9eb337ec18873 (patch) | |
tree | cfa8579388cd44ca0d257d66ea07eaf9106947e6 | |
parent | 22879583bf3ddea120315f15c7016734ff3a7106 (diff) | |
download | dotfiles-d8bff5bbe30026a15c6f7e085ba9eb337ec18873.tar.gz |
i3status-wrapper: abbreviate some dereferencing
-rwxr-xr-x | scripts/desktop/i3status-wrapper | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/scripts/desktop/i3status-wrapper b/scripts/desktop/i3status-wrapper index 135a28ef..cbfa3685 100755 --- a/scripts/desktop/i3status-wrapper +++ b/scripts/desktop/i3status-wrapper @@ -239,21 +239,21 @@ unless (fork // warn "couldn't fork command pipe reader") { my $i = first { $cols->[$_] == $ws->{focused_col} } 0..$#$cols; my $move = $1 eq "move"; $2 eq "right" ? $i++ : $i--; - if ($cols->@* > $i >= 0) { + if (@$cols > $i >= 0) { $wmipc->cmd($cmd); } elsif ($i == @$cols && $ws->{off_right}->@*) { with_ignored_events { - my $pushed = shift $cols->@*; + my $pushed = shift @$cols; my $pulled = pop $ws->{off_right}->@*; my @cmds = show_con($pulled); push $ws->{off_left}->@*, $pushed; if ($move) { push @cmds, "focus left", "move right"; - my $tem = pop $cols->@*; - push $cols->@*, $pulled, $tem; + my $tem = pop @$cols; + push @$cols, $pulled, $tem; } else { $ws->{focused_col} = $pulled; - push $cols->@*, $pulled; + push @$cols, $pulled; } $wmipc->cmd(@cmds, hide_con($pushed)); @@ -261,19 +261,19 @@ unless (fork // warn "couldn't fork command pipe reader") { kill USR1 => $i3status; } elsif ($i == -1 && $ws->{off_left}->@*) { with_ignored_events { - my $pushed = pop $cols->@*; + my $pushed = pop @$cols; my $pulled = pop $ws->{off_left}->@*; my @cmds = show_con($pulled); push $ws->{off_right}->@*, $pushed; if ($move) { push @cmds, "focus left"; - my $tem = shift $cols->@*; - unshift $cols->@*, $tem, $pulled; + my $tem = shift @$cols; + unshift @$cols, $tem, $pulled; } else { push @cmds, "move left"; $ws->{focused_col} = $pulled; - unshift $cols->@*, $pulled; + unshift @$cols, $pulled; } $wmipc->cmd(@cmds, hide_con($pushed)); |