From afd2dabbe5ac8967d7ad8b0398ac0f8bb6dd091c Mon Sep 17 00:00:00 2001
From: Vinicius Monego <monego@posteo.net>
Date: Sun, 20 Jul 2025 10:20:07 -0300
Subject: [PATCH] gnu: deluge: Improve package style, simplify.

* gnu/packages/bittorrent.scm (deluge)[native-inputs]: Remove
librsvg-for-system.
[arguments]: Use Gexp. Simplify removing the check of librsvg.

Change-Id: I44862be23f8115bf8c180ef01aef44d1b0e7fa45
---
 gnu/packages/bittorrent.scm | 44 ++++++++++++-------------------------
 1 file changed, 14 insertions(+), 30 deletions(-)

diff --git a/gnu/packages/bittorrent.scm b/gnu/packages/bittorrent.scm
index 3ce5f5d4f52..f11f8543751 100644
--- a/gnu/packages/bittorrent.scm
+++ b/gnu/packages/bittorrent.scm
@@ -630,8 +630,7 @@ the following features:
            python-twisted
            python-zope-interface))
     (native-inputs
-     (list intltool python-setuptools python-wheel
-           (librsvg-for-system)))
+     (list intltool python-setuptools python-wheel))
     (native-search-paths
      (list $SSL_CERT_DIR
            $SSL_CERT_FILE))
@@ -640,34 +639,19 @@ the following features:
     ;; started, some of the tests still fail.  There are likely some tests
     ;; that require a network connection.
     (arguments
-     `(#:tests? #f
-       #:phases
-       (modify-phases %standard-phases
-         (add-before 'wrap 'wrap-deluge
-           (lambda* (#:key native-inputs inputs outputs #:allow-other-keys)
-             (let ((out               (assoc-ref outputs "out"))
-                   ;; "librsvg" input is only needed at build time and it
-                   ;; conflit with the "librsvg" propageted by "gtk+", so we
-                   ;; make sure there is no reference to it in the wrapper.
-                   (gi-typelib-path
-                    (string-join (filter
-                                  (lambda (x) (not (string-prefix?
-                                                    (assoc-ref
-                                                     (or native-inputs inputs)
-                                                     "librsvg")
-                                                    x)))
-                                  (string-split
-                                   (getenv "GI_TYPELIB_PATH")
-                                   #\:))
-                                 ":")))
-               (for-each
-                (lambda (program)
-                  (wrap-program program
-                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
-                (map (lambda (name)
-                       (string-append out "/bin/" name))
-                     '("deluge" "deluge-gtk"))))
-             #t)))))
+     (list
+      #:tests? #f
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'wrap 'wrap-deluge
+            (lambda _
+              (for-each
+               (lambda (program)
+                 (wrap-program program
+                   `("GI_TYPELIB_PATH" ":" prefix (,(getenv "GI_TYPELIB_PATH")))))
+               (map (lambda (name)
+                      (string-append #$output "/bin/" name))
+                    (list "deluge" "deluge-gtk"))))))))
     (home-page "https://www.deluge-torrent.org/")
     (synopsis  "Fully-featured cross-platform ​BitTorrent client")
     (description