13/22: gnu: autotrace: Remove libtool archives.

[guix-commits]

apteryx pushed a commit to branch core-updates
in repository guix.

commit bf6db081180f9a4548bce7714d5ada742449ff13
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Sun Feb 18 23:42:26 2024 -0500

    gnu: autotrace: Remove libtool archives.
    
    * gnu/packages/graphics.scm (autotrace)
    [arguments] <phases>: Add remove-libtool-archives phase.
    
    Change-Id: Icd8dcf86592231e958db1ebe723e3ec6f902e0bd
---
 gnu/packages/graphics.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/graphics.scm b/gnu/packages/graphics.scm
index bc7bdc124c..fa33dce747 100644
--- a/gnu/packages/graphics.scm
+++ b/gnu/packages/graphics.scm
@@ -405,7 +405,16 @@ objects!")
                    ;; or IMAGEMAGICK_; fix that.
                    (substitute* "autotrace.pc.in"
                      (("@MAGICK_(LIBS|CFLAGS)@" _ var)
-                      (string-append "@IMAGEMAGICK_" var "@"))))))))
+                      (string-append "@IMAGEMAGICK_" var "@")))))
+               (add-after 'install 'remove-libtool-archives
+                 ;; Libtool archives lists the whole transitive dependencies,
+                 ;; which is unnecessary unless producing static archives and
+                 ;; leads to overlinking, e.g. causing the build of inkscape
+                 ;; to fail due to looking for a transitive pstoedit library.
+                 (lambda _
+                   (for-each delete-file
+                             (find-files (string-append #$output "/lib")
+                                         "\\.la$")))))))
     (native-inputs
      (list which
            autoconf