From 1ec777def84fcce9cfe77acb2ce3112b04b37085 Mon Sep 17 00:00:00 2001
From: Evgeny Pisemsky <mail@pisemsky.site>
Date: Sun, 28 Dec 2025 15:30:15 +0300
Subject: [PATCH] gnu: guile-usbrelay: Update to 0.1.1.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/hardware.scm (guile-usbrelay): Update to 0.1.1.
[arguments]<#:phases>: ignore lambda arguments and invoke explicit command in
'compile-ffi, add 'install-udev-rules.

Change-Id: I8194d662345cfeb9e36816484b0f3d902a2c1a02
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Merges: #5188
---
 gnu/packages/hardware.scm | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/hardware.scm b/gnu/packages/hardware.scm
index 110eebd54d..8688056c25 100644
--- a/gnu/packages/hardware.scm
+++ b/gnu/packages/hardware.scm
@@ -1813,7 +1813,7 @@ package also includes @code{usbrelayd}.")))
 (define-public guile-usbrelay
   (package
     (name "guile-usbrelay")
-    (version "0.1.0")
+    (version "0.1.1")
     (home-page "https://codeberg.org/pisemsky/guile-usbrelay")
     (source
      (origin
@@ -1823,7 +1823,7 @@ package also includes @code{usbrelayd}.")))
              (commit version)))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "0ndgkazv9bnyj45pccym11245c65hlvsvzmx0acpzlywz7xxyy72"))))
+        (base32 "1nghzsash3z398p2bp2vw0a1rzaclq9a6iqxbm7ffyzbldcca81l"))))
     (build-system guile-build-system)
     (arguments
      (list
@@ -1831,9 +1831,19 @@ package also includes @code{usbrelayd}.")))
       #:phases
       #~(modify-phases %standard-phases
           (add-before 'build 'compile-ffi
-            (lambda* (#:key inputs #:allow-other-keys)
+            (lambda _
               (setenv "GUILE_AUTO_COMPILE" "0")
-              (invoke "guile" "make.scm"))))))
+              (invoke "guild" "compile-ffi" "--no-exec"
+                      "modules/usbrelay/ffi/hidapi.ffi")))
+          (add-after 'build 'install-udev-rules
+            (lambda _
+              (let ((rules (string-append #$output "/lib/udev/rules.d")))
+                (mkdir-p rules)
+                (call-with-output-file (string-append rules "/50-usbrelay.rules")
+                  (lambda (port)
+                    (display (string-append
+                              "ATTRS{idVendor}==\"16c0\", ATTRS{idProduct}==\"05df\", "
+                              "MODE=\"0660\", GROUP=\"usbrelay\"\n") port)))))))))
     (native-inputs (list gcc guile-3.0 nyacc pkg-config))
     (inputs (list hidapi))
     (propagated-inputs (list nyacc))