1 files changed, 14 insertions(+), 0 deletions(-)

A 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)))