diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2024-01-13 17:45:44 +0000 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2024-01-13 20:58:38 +0000 |
commit | 2d8f89e3473355c13fb28e04861218cf7fde2555 (patch) | |
tree | b8774e4aa83327a4cfde6cac19bef129952081b5 /perl5 | |
parent | ccc837803226e9c1b9cffc6335b0b83268b0ecbe (diff) | |
download | dotfiles-2d8f89e3473355c13fb28e04861218cf7fde2555.tar.gz |
start work on PaperWM-inspired extensions to Sway setup
Diffstat (limited to 'perl5')
-rw-r--r-- | perl5/Local/Desktop.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl5/Local/Desktop.pm b/perl5/Local/Desktop.pm index 347495fe..5f30e507 100644 --- a/perl5/Local/Desktop.pm +++ b/perl5/Local/Desktop.pm @@ -32,6 +32,7 @@ use List::Util "first"; our @EXPORT = qw( $wmipc wmipc + @all_workspaces fresh_workspace compact_workspaces select_wallpaper_files @@ -41,11 +42,11 @@ our @EXPORT = qw( `sh -c "command -v i3-msg"`; our $wmipc = $? == 0 ? "i3-msg" : "swaymsg"; -sub wmipc { system "$wmipc -q " . join ", ", @_ } +sub wmipc { system $wmipc, "-q", join "; ", @_ } my $output_re = qr/ ([0-9]+)x([0-9]+)\+([0-9]+)\+([0-9]+) /; -my @all_workspaces = ( +our @all_workspaces = ( "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11:F1", "12:F2", "13:F3", "14:F4", "15:F5", "16:F6", "17:F7", "18:F8", |