Subject: bug#40466: closed (Re: [bug#40468] [PATCH 3/3] gnu: Add shiru-lv2.)

From: [email-masked] (GNU bug Tracking System)
Date: Fri, 29 May 2020 01:42:02 +0000

Your bug report

#40468: [PATCH 1/3] gnu: dragonfly-reverb: Use regex to install binaries.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
40468: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=40468
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: [bug#40468] [PATCH 3/3] gnu: Add shiru-lv2.
From: Leo Famulari <[email-masked]>
To: Alexandros Theodotou <[email-masked]>
Cc: [email-masked]
Date: Thu, 28 May 2020 21:41:14 -0400
List-Id: <debbugs-submit.debbugs.gnu.org>

On Wed, Apr 08, 2020 at 05:34:06PM +0100, Alexandros Theodotou wrote:
> * gnu/packages/music.scm (shiru-lv2): New variable.

Thank you! And sorry for the delay...

Pushed as d870fcfb099cf5b0ad25220e1fa36162cc3284a5

Subject: [PATCH 1/3] gnu: dragonfly-reverb: Use regex to install binaries.
From: Alexandros Theodotou <[email-masked]>
To: Guix patches <[email-masked]>
Date: Mon, 06 Apr 2020 15:13:01 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

Hi,

This is done so the build configuration can be inherited (see patch
3/3).

Thanks,
Alex
From 2ffc1efc3b25d41fe40a962b97a721eacb9d6050 Mon Sep 17 00:00:00 2001
From: Alexandros Theodotou <[email-masked]>
Date: Mon, 6 Apr 2020 14:58:22 +0100
Subject: [PATCH 1/3] gnu: dragonfly-reverb: Use regex to install binaries.

* gnu/packages/music.scm (dragonfly-reverb): Use regex for
  installing binaries.
---
 gnu/packages/music.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index ee402bad4d..2db102c1fe 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -5246,8 +5246,15 @@ plugin support, JACK support and chord assistance.")
                                     (string-append lv2 "/" (basename file))))
                 (find-files "bin" "\\.lv2$" #:directories? #t))
                ;; Install executables.
-               (install-file "bin/DragonflyRoomReverb" bin)
-               (install-file "bin/DragonflyHallReverb" bin)
+               (for-each
+                 (lambda (file)
+                   (install-file file bin))
+                 (find-files "bin"
+                             (lambda (name stat)
+                               (and
+                                 (equal? (dirname name) "bin")
+                                 (not (string-suffix? ".so" name))
+                                 (not (string-suffix? ".lv2" name))))))
                #t))))))
     (native-inputs
      `(("pkg-config" ,pkg-config)))
-- 
2.26.0