(define-module (cogd packages hardware))

(use-modules (guix packages)

             (guix git-download)

             (guix gexp)

             (guix utils)

             (guix build-system guile)

             ((guix licenses) #:prefix license:)

             (gnu packages commencement)

             (gnu packages guile)

             (gnu packages libusb)

             (gnu packages mes)

             (gnu packages pkg-config))

(define-public guile-usbrelay

  (package

    (name "guile-usbrelay")

    (version "0.1.0")

    (source

     (origin

       (method git-fetch)

       (uri (git-reference

             (url "https://repo.pisemsky.site/git/guile-usbrelay")

             (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-toolchain guile-3.0 nyacc pkg-config))

    (inputs (list hidapi))

    (propagated-inputs (list nyacc))

    (home-page "https://repo.pisemsky.site/guile-usbrelay")

    (synopsis "Control USB HID relays from Guile")

    (description

     "This package provides a Guile Scheme API to control dcttech USB HID

relay modules and their clones.")

    (license license:lgpl3+)))