rosenthal: linux: Use source-with-patches procedure.

* rosenthal/packages/linux.scm (source-with-patches): New variable.
(linux-xanmod-source,linux-hardened-source): Use the `source-with-patches`
procedure from `(gnu packages linux)`.

rosenthal/packages/linux.scm

@@ -31,6 +31,9 @@
 (define %upstream-linux-source
   (@@ (gnu packages linux) %upstream-linux-source))
 
+(define source-with-patches
+  (@@ (gnu packages linux) source-with-patches))
+
 (define %xanmod-version "6.1.7")
 (define %xanmod-revision "xanmod1")
 
@@ -60,22 +63,18 @@
      (base32 "1hp3mbl8vfd2cwpxbhmqqy77nzyk265k1rcf1rz048ivnsppw4cx"))))
 
 (define linux-xanmod-source
-  (origin
+  (source-with-patches (%upstream-linux-source
-    (inherit (%upstream-linux-source
                         (version-major+minor %xanmod-version)
-              (base32 "1ssxn81jfl0jf9brczfrrwd1f1vmf594jvhrs7zgcc54a5qg389c")))
+                        (base32
-    (file-name
+                         "1ssxn81jfl0jf9brczfrrwd1f1vmf594jvhrs7zgcc54a5qg389c"))
-     (string-append "linux-" %xanmod-version "-" %xanmod-revision ".tar.xz"))
+                       (list linux-xanmod-patch)))
-    (patches (list linux-xanmod-patch))))
 
 (define linux-hardened-source
-  (origin
+  (source-with-patches (%upstream-linux-source
-    (inherit (%upstream-linux-source
                         %hardened-version
-              (base32 "03v0pvg831qzbpc09ip1h0p4zz6js9das7vzh8xhsf77sax4ic2a")))
+                        (base32
-    (file-name
+                         "03v0pvg831qzbpc09ip1h0p4zz6js9das7vzh8xhsf77sax4ic2a"))
-     (string-append "linux-" %hardened-version "-" %hardened-revision ".tar.xz"))
+                       (list linux-hardened-patch)))
-    (patches (list linux-hardened-patch))))
 
 (define-public linux-xanmod
   (let ((base (customize-linux #:name "linux-xanmod"