;;; SPDX-FileCopyrightText: 2025 Evgeny Pisemsky <mail@pisemsky.site>

;;;

;;; SPDX-License-Identifier: GPL-3.0-or-later

(define-module (cogd packages firmware))

(use-modules (guix packages)

             (guix git-download)

             (guix gexp)

             (guix build-system gnu)

             ((guix licenses) #:prefix license:)

             (gnu packages avr))

(define-public usbrelay-firmware

  (package

    (name "usbrelay-firmware")

    (synopsis "USB relay board firmware")

    (description "Atmel AVR firmware for controlling relay board over USB.")

    (home-page "https://github.com/thmahe/usbrelay-firmware")

    (license license:gpl2)

    (version "1.0.0")

    (source

     (origin

       (method git-fetch)

       (uri (git-reference

              (url home-page)

              (commit (string-append "v" version))))

       (file-name (git-file-name name version))

       (sha256

        (base32 "1wijr91vlra59rilxm1yk94fjsmvzdvf03f0m5lidymcgngxys1q"))))

    (build-system gnu-build-system)

    (native-inputs

     (list (origin

             (method git-fetch)

             (uri (git-reference

                    (url "https://github.com/obdev/v-usb")

                    (commit "7a28fdc685952412dad2b8842429127bc1cf9fa7")))

             (sha256 (base32 "1339c6xisn5ys27qmyvw3snsq04xsz2alpfkq9xrnzmdih7zxlna")))

           (make-avr-toolchain)))

    (arguments

     (list

      #:tests? #f

      #:phases

      #~(modify-phases %standard-phases

          (add-after 'unpack 'install-v-usb

            (lambda* (#:key inputs #:allow-other-keys)

              (let ((v-usb (dirname (search-input-directory inputs "v-usb.xcodeproj"))))

                (copy-recursively v-usb "submodules/v-usb"))))

          (delete 'configure)

          (replace 'build

            (lambda _

              (invoke "make" "firmware")))

          (replace 'install

            (lambda _

              (let ((dir (string-append #$output "/share/firmware/usbrelay")))

                (copy-recursively "build" dir)))))))))