gnu: texlive-minted: Use packaged version of python-latexminted.

Fixes #2551

* gnu/packages/tex.scm (texlive-minted)
[arguments]<phases>: Add 'fix-paths phase to refer to latexminted.
[inputs]: Add python-latexminted.
[source]<snippet>: Remove vendored scripts and wheel files.

Change-Id: If17269ac864feb652021f0b0474dc3aeac3d59bd
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Merges: #5678

gnu/packages/tex.scm

@@ -84219,26 +84219,27 @@ configuration of its own fixed names, using @file{.mld} files.")
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "1yxiy8jhrbjj0ixl5rm5s35sdx3y6qq98x704w761rsnva282q8c"))))
+                "1yxiy8jhrbjj0ixl5rm5s35sdx3y6qq98x704w761rsnva282q8c"))
+              (modules '((guix build utils)))
+              (snippet
+                ;; Remove scripts/ directory containing Python scripts and
+                ;; wheels.  Install these via propagated-inputs instead.
+                #~(delete-file-recursively "scripts"))))
     (outputs '("out" "doc"))
     (build-system texlive-build-system)
     (arguments
      (list
-      #:link-scripts #~(list "latexminted.py")
       #:phases
       #~(modify-phases %standard-phases
-          (add-after 'link-scripts 'wrap-latexminted
-            ;; `latexminted' relies on SELFAUTOLOC to locate `kpsewhich', but
-            ;; this variable is bogus in Guix because binaries are scattered
-            ;; across multiple directories.  This phase sets SELFAUTOLOC to
-            ;; the specific directory containing `kpsewhich'.
-            (lambda* (#:key inputs outputs #:allow-other-keys)
-              ;; XXX: Use `wrap-program' rather than `wrap-script' because
-              ;; with the latter, ".whl" files are not properly recognized.
-              (wrap-program (search-input-file outputs "bin/latexminted")
-                `("SELFAUTOLOC" =
-                  (,(dirname (search-input-file inputs "bin/kpsewhich"))))))))))
-    (inputs (list python))
+          (add-after 'unpack 'fix-paths
+            (lambda* (#:key inputs #:allow-other-keys)
+              (substitute* "source/latex/minted/minted.dtx"
+                (("detokenize\\{latexminted\\}")
+                 (string-append
+                   "detokenize{"
+                   (search-input-file inputs "/bin/latexminted")
+                   "}"))))))))
+    (inputs (list python python-latexminted))
     (propagated-inputs
      (list texlive-catchfile
            texlive-etoolbox