106/141: gnu: texlive-pdfcrop. Add "rpdfcrop" symlink.

[guix-commits]

ngz pushed a commit to branch tex-team
in repository guix.

commit 12ba9e5f1ff0c8c465faf8153757980521bd8e1a
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Sat Jun 22 00:20:01 2024 +0200

    gnu: texlive-pdfcrop. Add "rpdfcrop" symlink.
    
    * gnu/packages/tex.scm (texlive-pdfcrop)[arguments]<#:phases>: Add missing
    "rpdfcrop" link.
    
    Change-Id: I498222565c8f63a678c4c6f2548f962e6365cedd
---
 gnu/packages/tex.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 3b0ebf8805..9015978c6d 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -48695,7 +48695,14 @@ occurs.")
                 "0wb67hsfasxvl1b484hyxvghhm9nkxwgs6m8ygzshr0m874hsl01"))))
     (outputs '("out" "doc"))
     (build-system texlive-build-system)
-    (arguments (list #:link-scripts #~(list "pdfcrop.pl")))
+    (arguments
+     (list #:link-scripts #~(list "pdfcrop.pl")
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'link-scripts 'add-symlink
+                 (lambda _
+                   (with-directory-excursion (string-append #$output "/bin")
+                     (symlink "pdfcrop" "rpdfcrop")))))))
     (inputs (list perl))
     (home-page "https://ctan.org/pkg/pdfcrop";)
     (synopsis "Crop PDF graphics")