gnu: texlive-latex-base: Ensure that extra sources are installed.

* gnu/packages/tex.scm (texlive-latex-base): Use simple-texlive-package to
install additional files.

gnu/packages/tex.scm

@@ -2508,11 +2508,8 @@ formats.")
     (license license:lppl)))
 
 (define-public texlive-latex-base
-  (package
-    (name "texlive-latex-base")
-    (version (number->string %texlive-revision))
-    (source (texlive-origin
-             name version
+  (let ((template (simple-texlive-package
+                   "texlive-latex-base"
                    (list "/doc/latex/base/"
                          "/source/latex/base/"
                          ;; Almost all files in /tex/latex/base are generated, but
@@ -2530,17 +2527,19 @@ formats.")
                          "/tex/latex/base/testpage.tex"
                          "/tex/latex/base/texsys.cfg")
                    (base32
-              "0f8d41wk1gb7i6xq1a10drwhhayc50pg9nwzjkrqnxrv0pcc08w5")))
-    (build-system gnu-build-system)
+                    "0f8d41wk1gb7i6xq1a10drwhhayc50pg9nwzjkrqnxrv0pcc08w5")
+                   #:trivial? #t)))
+    (package
+      (inherit template)
       (arguments
-     `(#:modules ((guix build gnu-build-system)
+       (substitute-keyword-arguments (package-arguments template)
+         ((#:modules modules '())
+          '((guix build gnu-build-system)
             (guix build utils)
             (ice-9 match)
-                  (srfi srfi-26))
-       #:tests? #f                      ; no tests
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'configure)
+            (srfi srfi-26)))
+         ((#:phases phases)
+          `(modify-phases ,phases
              (replace 'build
                (lambda* (#:key inputs #:allow-other-keys)
                  ;; Find required fonts
@@ -2604,7 +2603,7 @@ formats.")
                  ;; We don't actually want to install it.
                  (delete-file "web2c/fmtutil.cnf")
                  #t))
-         (replace 'install
+             (add-after 'install 'install-more
                (lambda* (#:key inputs outputs #:allow-other-keys)
                  (let* ((out (assoc-ref outputs "out"))
                         (root (string-append out "/share/texmf-dist"))
@@ -2625,7 +2624,7 @@ formats.")
                              (find-files "build" ".*"))
                    (for-each (cut install-file <> web2c)
                              (find-files "web2c" ".*"))
-               #t))))))
+                   #t)))))))
       (native-inputs
        `(("texlive-bin" ,texlive-bin)
          ("texlive-tex-ini-files" ,texlive-tex-ini-files)
@@ -2715,7 +2714,7 @@ formats.")
 packages which are considered \"part of the kernel\".  This bundle, together
 with the required packages, constitutes what every LaTeX distribution should
 contain.")
-    (license license:lppl1.3c+)))
+      (license license:lppl1.3c+))))
 
 (define-public texlive-latex-filecontents
   (package