diff options
| author | Evgeny Pisemsky <mail@pisemsky.site> | 2025-09-20 22:50:51 +0300 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2025-09-21 19:14:44 +0200 |
| commit | 970f7477baa6156ec57f07932d4d9f2ef31eccc4 (patch) | |
| tree | c3324717001220e335e59d39f9308a72bfe62cf9 /gnu | |
| parent | 8118eb0b5aac3d0327a570f7cf454bd59760046d (diff) | |
gnu: Add guile-usbrelay.
* gnu/packages/hardware.scm (guile-usbrelay): New variable.
Change-Id: I4b9dac27217fc365b0a98950cdf8368407de6321
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/packages/hardware.scm | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/gnu/packages/hardware.scm b/gnu/packages/hardware.scm index b405382c1aa..111d9e52ce4 100644 --- a/gnu/packages/hardware.scm +++ b/gnu/packages/hardware.scm @@ -75,6 +75,7 @@ #:use-module (gnu packages lua) #:use-module (gnu packages lxqt) #:use-module (gnu packages man) + #:use-module (gnu packages mes) #:use-module (gnu packages messaging) #:use-module (gnu packages mtools) #:use-module (gnu packages package-management) @@ -108,6 +109,7 @@ #:use-module (guix build-system cmake) #:use-module (guix build-system glib-or-gtk) #:use-module (guix build-system gnu) + #:use-module (guix build-system guile) #:use-module (guix build-system meson) #:use-module (guix build-system perl) #:use-module (guix build-system pyproject) @@ -1791,3 +1793,36 @@ output relays.") "This is the Python extension to @code{usbrelay}, a Linux driver based on hidapi for a variety of inexpensive HID compatible USB relay modules. This package also includes @code{usbrelayd}."))) + +(define-public guile-usbrelay + (package + (name "guile-usbrelay") + (version "0.1.0") + (home-page "https://codeberg.org/pisemsky/guile-usbrelay") + (source + (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0ndgkazv9bnyj45pccym11245c65hlvsvzmx0acpzlywz7xxyy72")))) + (build-system guile-build-system) + (arguments + (list + #:source-directory "modules" + #:phases + #~(modify-phases %standard-phases + (add-before 'build 'compile-ffi + (lambda* (#:key inputs #:allow-other-keys) + (setenv "GUILE_AUTO_COMPILE" "0") + (invoke "guile" "make.scm")))))) + (native-inputs (list gcc guile-3.0 nyacc pkg-config)) + (inputs (list hidapi)) + (propagated-inputs (list nyacc)) + (synopsis "Control USB HID relays from Guile") + (description + "This package provides a Guile Scheme API to control USB HID relay modules +produced by dcttech.") + (license license:lgpl3+))) |