From 1ac06838b35cf7c7d7dde702a94c4d88a535dbd1 Mon Sep 17 00:00:00 2001
From: Patrick Spek <p.spek@tyil.nl>
Date: Wed, 21 Feb 2024 08:28:13 +0100
Subject: Add utility to easily import new wallpapers

---
 .local/bin/import-pape | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 .local/bin/import-pape

diff --git a/.local/bin/import-pape b/.local/bin/import-pape
new file mode 100755
index 0000000..b72c169
--- /dev/null
+++ b/.local/bin/import-pape
@@ -0,0 +1,19 @@
+#!/usr/bin/env bash
+
+readonly PAPEDIR="$HOME/pictures/wallpapers"
+
+main() {
+	for s in "$@"
+	do
+		local format="$(identify -format "%m" "$s" | awk '{ print(tolower($0)) }')"
+		local resolution="$(identify -format "%wx%h" "$s")"
+		local hash="$(sha1sum "$s" | awk '{ print $1 }')"
+		local destination="$PAPEDIR/$resolution/$hash.$format"
+
+		mkdir -pv -- "$PAPEDIR/$resolution"
+		printf "Importing %s to %s\n" "$s" "$destination"
+		mv -- "$s" "$destination"
+	done
+}
+
+main "$@"
-- 
cgit v1.1