(define-module (zynqmp patches)
  #:use-module (zynqmp packages firmware)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix gexp)
  #:use-module (guix utils)
  #:use-module (guix git-download)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages)
  #:use-module (gnu packages tls)
  #:use-module (gnu packages bootloaders)
  #:use-module (gnu packages texinfo)
  #:use-module (gnu packages cross-base)
  #:use-module (gnu packages base)
  #:use-module (gnu packages bash)
  #:use-module (gnu packages firmware)
  #:export (my-search-patch
            my-search-patches))

(define (my-search-patch patch)
  (parameterize ((%patch-path (map
                               (lambda (directory)
                                 (string-append directory "/zynqmp/packages/patches"))
                               %load-path)))
    ((@ (gnu packages) search-patch) patch)))

(define-syntax-rule (my-search-patches file-name ...)
  "Return the list of absolute file names corresponding to each
FILE-NAME found in %PATCH-PATH."
  (list (my-search-patch file-name) ...))