Re: [PATCH] Add pyusb.

[Ludovic Courtès]

Ricardo Wurmus <address@hidden> skribis:

> From 2f190da0d812501a4ab3db94a99ac8f7c6698cbc Mon Sep 17 00:00:00 2001
> From: Ricardo Wurmus <address@hidden>
> Date: Tue, 29 Mar 2016 09:06:09 +0200
> Subject: [PATCH] gnu: Add python-pyusb.
>
> * gnu/packages/libusb.scm (python-pyusb, python2-pyusb): New variables.

[...]

> +           (lambda* (#:key inputs #:allow-other-keys)
> +             (substitute* "usb/libloader.py"
> +               (("lib = locate_library\\(candidates, find_library\\)")
> +                (string-append
> +                 "lib = \""
> +                 (car (find-files (assoc-ref inputs "libusb")
> +                                  (lambda (file stat)
> +                                    (and ((file-name-predicate
> +                                           "^libusb-.*\\.so\\..*") file stat)
> +                                         (not (symbolic-link? file))))))

Maybe (with SRFI-1):

  (find (negate symbolic-link?)
        (find-files (assoc-ref inputs "libusb")
                    "^libusb-.*\\.so\\..*"))

But really this is nitpicking, the patch should go in.  :-)

Ludo’.