From 1b04ab2be68b55b5215972d1549c4e9bf62da0ae Mon Sep 17 00:00:00 2001
From: Rutherther <rutherther@ditigal.xyz>
Date: Mon, 26 Jan 2026 14:31:34 +0100
Subject: [PATCH] chore: add utils for searching patches.

---
 modules/ruthless/utils.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 modules/ruthless/utils.scm

diff --git a/modules/ruthless/utils.scm b/modules/ruthless/utils.scm
new file mode 100644
index 0000000000000000000000000000000000000000..b227e3795b50d2a75794d18206bf0fdf934bc9f6
--- /dev/null
+++ b/modules/ruthless/utils.scm
@@ -0,0 +1,14 @@
+(define-module (ruther utils)
+  #:use-module (gnu packages)
+  #:use-module (ice-9 match)
+  #:export (ruthless-search-pathes))
+
+(define %ruthless-patch-path
+  (and=> (search-path %load-path "ruther/packages")
+         (lambda (dir)
+           (list (string-append dir
+                                "/patches")))))
+
+(define* (ruthless-search-patches #:rest args)
+  (parameterize ((%patch-path %ruthless-patch-path))
+    (apply search-patches args)))