guix_mirror_bot pushed a commit to branch master
in repository guix.
commit afd2dabbe5ac8967d7ad8b0398ac0f8bb6dd091c
Author: Vinicius Monego <[email protected]>
AuthorDate: Sun Jul 20 10:20:07 2025 -0300
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 3ce5f5d4f5..f11f854375 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
