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