diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-22 14:44:20 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-22 14:44:20 -0700 |
commit | efdb836738fd45764a016e46c65cd2a3076c9cb6 (patch) | |
tree | a9f3b4877f9b94093199ae30ef9ddcd8b04400b8 | |
parent | 875c5b832eb95a01b5e59ec009a7f76ff4f43e92 (diff) | |
download | dotfiles-efdb836738fd45764a016e46c65cd2a3076c9cb6.tar.gz |
choose-wallpaper: in fact, just comment out X11 subroutine calls
-rwxr-xr-x | bin/choose-wallpaper | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/bin/choose-wallpaper b/bin/choose-wallpaper index 648c1a6b..892252d8 100755 --- a/bin/choose-wallpaper +++ b/bin/choose-wallpaper @@ -8,13 +8,11 @@ use lib "$ENV{HOME}/src/dotfiles/perl5"; use Local::Desktop; use File::Copy; -my $x11 = $ENV{XDG_SESSION_TYPE} && $ENV{XDG_SESSION_TYPE} eq "x11"; - # dirs where wallpaper can be found our @dirs = ("$ENV{HOME}/annex/wallpaper/pro"); if (@ARGV and $ARGV[0] eq "--check-have") { - ensure_resize_for_current_outputs if $x11; + # ensure_resize_for_current_outputs; exit !<"$ENV{HOME}/local/wallpaper??.*">; } @@ -28,10 +26,8 @@ if ($ARGV[0] eq "--random") { unshift @wallpapers, @ARGV; select_wallpaper_files @wallpapers; -if ($x11) { - resize_for_current_outputs; - system "i3-startup-always"; # feh and also restart i3lock -} +# resize_for_current_outputs; +# system "i3-startup-always"; # feh and also restart i3lock # now give develacc something if (-e "$ENV{HOME}/local/develacc") { |