diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2024-04-11 21:11:12 +0800 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2024-04-11 21:11:15 +0800 |
commit | acad4445b81048140a7d658ac43f8a0a457750ad (patch) | |
tree | b7a5dc5d29bec34f95f6e9f2e0519ccaa44e8432 /perl5/Local/Desktop.pm | |
parent | db13b64fa0ab8c691bd8a2075612bac5d9568613 (diff) | |
download | dotfiles-acad4445b81048140a7d658ac43f8a0a457750ad.tar.gz |
i3status-wrapper: replace IPC::Shareable & Local::Desktop::WMIPC
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) |