From eea636e04e76e772380f8f96c41eb77bea24a0cd Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Mon, 1 Jul 2024 15:27:57 -0700
Subject: Copy package definitions from my ‘new-dotfiles’ project

---
 oni/packages/pick-random-wallpaper.scm | 43 ++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 oni/packages/pick-random-wallpaper.scm

(limited to 'oni/packages/pick-random-wallpaper.scm')

diff --git a/oni/packages/pick-random-wallpaper.scm b/oni/packages/pick-random-wallpaper.scm
new file mode 100644
index 0000000..7f4a706
--- /dev/null
+++ b/oni/packages/pick-random-wallpaper.scm
@@ -0,0 +1,43 @@
+(define-module (oni packages pick-random-wallpaper)
+  #:use-module (guix packages)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system gnu)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages bash)
+  #:use-module (gnu packages wm)
+  #:use-module (gnu packages xorg)
+  #:use-module (gnu packages image-viewers))
+
+(define-public pick-random-wallpaper
+  (let ((commit "6ab43c64aa34c6a13705435f7825d183a59544d8")
+        (revision "0"))
+    (package
+      (name "pick-random-wallpaper")
+      (version (git-version "0.0.0" revision commit))
+      (source
+       (origin
+         (uri (git-reference
+               (url "git://ryuslash.org/util/tom/pick-random-wallpaper.git")
+               (commit commit)))
+         (method git-fetch)
+         (sha256
+          (base32 "1vkns0a46adaxx0qrw1iq3af1zmc3wy7gmsid0v8893a2688842d"))
+         (file-name (git-file-name name version))))
+      (propagated-inputs
+       (list findutils bash herbstluftwm xwininfo coreutils feh))
+      (build-system gnu-build-system)
+      (arguments
+       `(#:tests? #f                     ; There is no test suite.
+         #:phases
+         (modify-phases %standard-phases
+           (delete 'configure)
+           (delete 'build)
+           (replace 'install
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let ((bin (string-append (assoc-ref outputs "out") "/bin")))
+                 (install-file "pick-random-wallpaper" bin)))))))
+      (home-page "https://ryuslash.org/")
+      (synopsis "A simple script that sets a random wallpaper using feh.")
+      (description "Sets a random wallpaper using feh and stores which wallpaper was added in a herbstluftwm attribute.")
+      (license license:gpl3+))))
-- 
cgit v1.2.3-54-g00ecf