(define-module (ruthless utils)
  #:use-module (gnu packages)
  #:use-module (ice-9 match)
  #:export (ruthless-search-patches))

(define %ruthless-patch-path
  (and=> (search-path %load-path "ruther/packages")
         (lambda (dir)
           (list (string-append dir
                                "/patches")))))

(define-syntax-rule (ruthless-search-patches file-name ...)
  (parameterize ((%patch-path %ruthless-patch-path))
    (list (search-patch file-name) ...)))