From a996cbd71fb1b5887a65cacb97648adeb0f05f55 Mon Sep 17 00:00:00 2001
From: Marcel Schneider <marcel@webschneider.org>
Date: Mon, 11 Nov 2019 17:35:16 +0100
Subject: [PATCH] Add script to change wallpaper

---
 change-wallpaper.sh | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 change-wallpaper.sh

diff --git a/change-wallpaper.sh b/change-wallpaper.sh
new file mode 100755
index 0000000..060d6b9
--- /dev/null
+++ b/change-wallpaper.sh
@@ -0,0 +1,14 @@
+#!/usr/bin/env zsh
+set -euo pipefail
+
+DIR="$HOME/Pictures/wallpaper"
+TMPLIST="/tmp/wallpaper-list"
+if [[ ! -e "$TMPLIST" ]]; then
+    FILES=$(ls $DIR | shuf)
+    echo "$FILES" >> "$TMPLIST"
+fi
+
+IMG=$(tail -n1 $TMPLIST)
+truncate -s "-$(( ${#IMG} + 1 ))" $TMPLIST
+feh "$DIR/$IMG" --bg-fill
+grep -q '[^[:space:]]' < "$TMPLIST" || rm "$TMPLIST"