1 files changed, 25 insertions, 0 deletions

diff --git a/guix/jd/utils.scm b/guix/jd/utils.scm
new file mode 100644
index 0000000..5be7fa9
--- /dev/null
+++ b/guix/jd/utils.scm
@@ -0,0 +1,25 @@
+(define-module (jd utils)
+  #:export (jd-search-patches))
+
+;; This code is copied and modified from (gnu packages) module. 
+
+(define %jd-patch-path
+  (make-parameter
+   (map (lambda (directory)
+          (let ((jd-patch-dir (string-append directory "/jd/packages/patches")))
+            (if (and (file-exists? jd-patch-dir)
+                     (file-is-directory? jd-patch-dir))
+                jd-patch-dir
+                directory)))
+          %load-path)))
+
+(define (jd-search-patch file-name)
+  "Search the patch FILE-NAME.  Raise an error if not found."
+  (or (search-path (%jd-patch-path) file-name)
+      (raise (string-append file-name
+                            ": patch not found"))))
+
+(define-syntax-rule (jd-search-patches file-name ...)
+  "Return the list of absolute file names corresponding to each
+FILE-NAME found in %JD-PATCH-PATH."
+  (list (jd-search-patch file-name) ...))