diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-08-14 16:00:07 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-08-17 10:52:29 -0700 |
| commit | e20a00bebf2bb0fa1d19edd674d34395d6dcbd24 (patch) | |
| tree | 2473e0155ac3605d837c135b0e8014506648ad8f /perl5 | |
| parent | f4022a3b8b687122fde40742d7985e4c1ff944c7 (diff) | |
| download | dotfiles-e20a00bebf2bb0fa1d19edd674d34395d6dcbd24.tar.gz | |
export $wmipc, factor out & export &wmipc
Diffstat (limited to 'perl5')
| -rw-r--r-- | perl5/Local/Desktop.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl5/Local/Desktop.pm b/perl5/Local/Desktop.pm index 9e5910b5..c5af6fc2 100644 --- a/perl5/Local/Desktop.pm +++ b/perl5/Local/Desktop.pm @@ -31,6 +31,7 @@ use File::Copy; use List::Util "first"; our @EXPORT = qw( + $wmipc wmipc fresh_workspace select_wallpaper_files ensure_resize_for_current_outputs @@ -38,7 +39,8 @@ our @EXPORT = qw( pick_random_wallpapers ); `sh -c "command -v i3-msg"`; -my $wmipc = $? == 0 ? "i3-msg" : "swaymsg"; +our $wmipc = $? == 0 ? "i3-msg" : "swaymsg"; +sub wmipc { system "$wmipc -q " . join ", ", @_ } my $output_re = qr/ ([0-9]+)x([0-9]+)\+([0-9]+)\+([0-9]+) /; @@ -73,7 +75,7 @@ sub fresh_workspace { push @cmds, "workspace $next_free_workspace"; push @cmds, "workspace back_and_forth" unless $opts{go}; - system "$wmipc -q " . join ", ", @cmds; + wmipc @cmds; } $next_free_workspace } |