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";
-}