diff options
| author | LibreMiami <packaging-guix@libremiami.org> | 2021-03-06 01:16:32 +0000 |
|---|---|---|
| committer | Leo Prikler <leo.prikler@student.tugraz.at> | 2021-03-06 18:27:43 +0100 |
| commit | 3b2d7ada40db66439ce3d285960208687d79b421 (patch) | |
| tree | d5836984b519133d560b67ecc96076aa773e4550 | |
| parent | 98ec11c472ea401c86ddf40ce5e8e99b63203e91 (diff) | |
| download | guix-3b2d7ada40db66439ce3d285960208687d79b421.tar guix-3b2d7ada40db66439ce3d285960208687d79b421.tar.gz | |
gnu: mumble: Modify snippet.
* 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>
| -rw-r--r-- | gnu/packages/telephony.scm | 38 |
1 files changed, 20 insertions, 18 deletions
diff --git a/gnu/packages/telephony.scm b/gnu/packages/telephony.scm index 53cc127e48..5c8d247e68 100644 --- a/gnu/packages/telephony.scm +++ b/gnu/packages/telephony.scm @@ -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 @@ address of one of the participants.") (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 |