diff options
Diffstat (limited to 'perl5/Local/Desktop.pm')
-rw-r--r-- | perl5/Local/Desktop.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perl5/Local/Desktop.pm b/perl5/Local/Desktop.pm index 0460447e..b61f9270 100644 --- a/perl5/Local/Desktop.pm +++ b/perl5/Local/Desktop.pm @@ -20,7 +20,6 @@ package Local::Desktop; use 5.028; use strict; use warnings; -use lib "$ENV{HOME}/src/dotfiles/perl5"; use Carp; use JSON; @@ -30,14 +29,18 @@ use File::Spec::Functions "rel2abs"; use Exporter "import"; use File::Copy; use List::Util "first", "any"; -use Local::Desktop::WMIPC; our @EXPORT = qw( + $wmipc wmipc select_wallpaper_files ensure_resize_for_current_outputs resize_for_current_outputs pick_random_wallpapers ); +`sh -c "command -v i3-msg"`; +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]+) /; =head select_wallpaper_files(@files) |