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