diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2024-04-22 07:32:20 +0100 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2024-04-22 07:33:14 +0100 |
commit | 4772be9dbdc18a7ead4339ee2500d9e828af4c8a (patch) | |
tree | 9e0cc9caf5694ae9bac3b4cd369b36367c98b5e2 /bin | |
parent | 05ba620733f91b2994d04f8cdf1e49d9a0c7a511 (diff) | |
download | dotfiles-4772be9dbdc18a7ead4339ee2500d9e828af4c8a.tar.gz |
archive remaining i3-specific config
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/choose-wallpaper | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/bin/choose-wallpaper b/bin/choose-wallpaper deleted file mode 100755 index 5fc14c83..00000000 --- a/bin/choose-wallpaper +++ /dev/null @@ -1,38 +0,0 @@ -#!/usr/bin/env perl - -use 5.028; -use strict; -use warnings; -use lib "$ENV{HOME}/src/dotfiles/perl5"; - -use Local::Desktop; -use File::Copy; - -# 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; - exit !<"$ENV{HOME}/local/wallpaper??.*">; -} - -die "need --random and/or some image files" unless @ARGV; - -my @wallpapers; -if ($ARGV[0] eq "--random") { - shift; - push @wallpapers, pick_random_wallpapers 4, @dirs; -} -unshift @wallpapers, @ARGV; -select_wallpaper_files @wallpapers; - -# resize_for_current_outputs; -# system "$ENV{HOME}/src/dotfiles/scripts/desktop/i3-startup-always"; # feh & restart i3lock - -# now give develacc something -if (-e "$ENV{HOME}/local/develacc") { - my $develacc_wallpaper = @ARGV ? $ARGV[$#ARGV] : $wallpapers[$#wallpapers]; - my ($ext) = $develacc_wallpaper =~ /\.([^.]+)\z/; - copy $develacc_wallpaper, - "$ENV{HOME}/local/develacc/local/wallpaper00.$ext"; -} |