Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
executable file 12 lines (9 sloc) 274 Bytes
#!/usr/bin/perl
use strict;
# randwall
use List::Util qw(shuffle);
my $wdir = '/mnt/Docs/Wallpapers/3360x1050';
opendir(my $walls, $wdir) or die "Cant open $wdir: $!\n";
my @walls = readdir($walls);
@walls = shuffle(@walls);
system("feh --bg-center \"$wdir/$walls[0]\"");