mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 14:07:01 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: mumble: Modify snippet.

Browse source 
* gnu/packages/telephony.scm (mumble) [snippet]: List kept directories
instead of deleted ones.

Co-authored-by: Raghav Gururajan <rg@raghavgururajan.name>
Co-authored-by: jgart <jgart@dismail.de>
Signed-off-by: Leo Prikler <leo.prikler@student.tugraz.at>
This commit is contained in:
LibreMiami 2021-03-06 01:16:32 +00:00 committed by Leo Prikler
parent 98ec11c472
commit 3b2d7ada40
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 20 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
gnu/packages/telephony.scm
View file

@ -19,6 +19,7 @@
;;; Copyright © 2020 Raghav Gururajan <raghavgururajan@disroot.org> ;;; Copyright © 2020 Raghav Gururajan <raghavgururajan@disroot.org>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com> ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2021 LibreMiami <packaging-guix@libremiami.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -525,26 +526,27 @@ (define-public mumble
(sha256 (sha256
(base32 (base32
"14v0rgy1a5alxmz7ly95y38bdj0hx79yysgkcd8r8p9qqfzlwpv1")) "14v0rgy1a5alxmz7ly95y38bdj0hx79yysgkcd8r8p9qqfzlwpv1"))
(modules '((guix build utils))) (modules '((guix build utils)
(ice-9 ftw)
(srfi srfi-1)))
(snippet (snippet
`(begin `(begin
;; Remove bundled software. Keep arc4random, celt-0.7.0, (let ((keep
;; celt-0.11.0, qqbonjour, rnnoise, smallft. '("arc4random-src"
(for-each "celt-0.7.0-build"
delete-file-recursively "celt-0.7.0-src"
'("3rdparty/GL" ; in mesa "celt-0.11.0-build"
"3rdparty/mach-override-build" ; for macx "celt-0.11.0-src"
"3rdparty/mach-override-src" "qqbonjour-src"
"3rdparty/minhook-build" ; for win32 "rnnoise-build"
"3rdparty/minhook-src" "rnnoise-src"
"3rdparty/opus-build" ; in opus "smallft-src")))
"3rdparty/opus-src" (with-directory-excursion "3rdparty"
"3rdparty/speex-build" ; in speex (for-each delete-file-recursively
"3rdparty/speex-src" (lset-difference string=?
"3rdparty/speexdsp-src" ; in speexdsp (scandir ".")
"3rdparty/xinputcheck-build" ; for win32 (cons* "." ".." keep))))
"3rdparty/xinputcheck-src")) #t)))))
#t))))
(build-system qt-build-system) (build-system qt-build-system)
(arguments (arguments
`(#:tests? #f ; no "check" target `(#:tests? #f ; no "check" target