packages: pdf: Ensure patches for sioyek are found

modules/radix/packages/pdf.scm

@@ -3,7 +3,6 @@
   #:use-module (guix packages)
   #:use-module (guix git-download)
   #:use-module (guix build-system qt)
-  #:use-module ((guix build utils) #:hide (delete))
   #:use-module (gnu packages qt)
   #:use-module (gnu packages web)
   #:use-module (gnu packages gtk)
@@ -11,6 +10,10 @@
   #:use-module (gnu packages image)
   #:use-module (gnu packages fontutils)
   #:use-module (gnu packages javascript)
+  #:use-module (gnu packages)
+  #:use-module ((radix packages)
+                #:select (%patch-path)
+                #:renamer (const '%radix:patch-path))
   #:use-module ((guix licenses) #:prefix license:))
 
 (define-public sioyek
@@ -24,7 +27,9 @@
              (url "https://github.com/ahrm/sioyek")
              (commit (string-append "v" version))))
        (file-name (git-file-name name version))
-       (patches (find-files "patches" "sioyek-parse-link-uri.patch"))
+       (patches
+        (parameterize ((%patch-path %radix:patch-path))
+          (search-patches "sioyek-parse-link-uri.patch")))
        (sha256
         (base32 "1vmmp2s032ygh1byz77pg9aljmp8hx745fr7mmz11831f96mlmhq"))))
     (inputs
@@ -40,10 +45,9 @@
            qtbase-5))
     (build-system qt-build-system)
     (arguments
-     (list #:tests? #f
-           #:phases
-           #~(modify-phases
-              %standard-phases
+     (list #:phases
+           #~(modify-phases %standard-phases
+              (delete 'check)
               (replace 'configure
                 (lambda* (#:key outputs #:allow-other-keys)
                   (let ((out (assoc-ref outputs "out")))
@@ -57,11 +61,11 @@
                       (("/usr/share/sioyek") share)
                       (("/etc/sioyek") etc))
                     (substitute* "pdf_viewer_build_config.pro"
-                      (("-lmupdf-third ") ""))
-                    #t))))))
+                      (("-lmupdf-third ") ""))))))))
     (home-page "https://sioyek.info")
     (synopsis "A PDF viewer designed for research papers and technical books")
-    (description "Sioyek is a PDF viewer with a focus on technical books and research papers.")
+    (description "Sioyek is a PDF viewer with a focus on technical books and
+research papers.")
     (license license:gpl3)))
 
 (define-public sioyek/wayland
@@ -71,3 +75,5 @@
    (inputs
     (modify-inputs (package-inputs sioyek)
                    (append qtwayland-5)))))
+
+sioyek