From fb28f67f63f23b934e70b4bca1bc99fa9054b196 Mon Sep 17 00:00:00 2001
From: Danny Milosavljevic <dannym@friendly-machines.com>
Date: Thu, 20 Feb 2025 20:28:30 +0100
Subject: [PATCH] gnu: Add senoko-chibios.

* gnu/packages/firmware.scm (senoko-chibios): New variable.

Change-Id: Id6fb9eb60b6fd975bba88f70b448e0b9a600293d
---
 gnu/packages/firmware.scm | 44 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/gnu/packages/firmware.scm b/gnu/packages/firmware.scm
index 792eeba5ef064579d68dfeaafa5ddf0b450367c8..56a7193e15f620fa1741439d3261c60ecdc7ae61 100644
--- a/gnu/packages/firmware.scm
+++ b/gnu/packages/firmware.scm
@@ -1704,3 +1704,47 @@ default assumption for QMK firmware keymaps)."))
 privileges for flashing QMK compatible devices without needing root.  The
 rules require the group @code{plugdev} to be added to each user that needs
 this.")))
+
+(define-public senoko-chibios
+  (package
+    (name "senoko-chibios")
+    (version "2.5")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                     (url "https://github.com/xobs/senoko-chibios-3.git")
+                     (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "1qdpxzqdh0l65rzfbrm1lqzpik3nyg8wa7k0b8b6apj2w6vsp5pv"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list #:tests? #f ; no tests
+           #:make-flags #~(list "USE_VERBOSE_COMPILE=yes")
+           #:phases
+           #~(modify-phases %standard-phases
+               (delete 'configure)
+               (add-after 'unpack 'patch
+                 (lambda* (#:key outputs #:allow-other-keys)
+                   (chdir "senoko")
+                   (substitute* "Makefile"
+                    ;; We don't have those dependencies since we delete .git
+                    ;; after checkout.
+                    ((" [$][(]CHIBIOS[)]/.git/HEAD [$][(]CHIBIOS[)]/.git/index")
+                     "")
+                    (("[$][(]shell git rev-parse HEAD[)]")
+                     ;; Uniquely identify the version.
+                     (assoc-ref outputs "out")))))
+               (replace 'install
+                 (lambda* (#:key outputs #:allow-other-keys)
+                   (let ((destination (string-append (assoc-ref outputs "out")
+                                      "/lib/firmware")))
+                     (install-file "build/senoko.elf" destination)
+                     (install-file "build/senoko.hex" destination)))))))
+    (synopsis "Firmware for Novena battery or passthrough board")
+    (description "This package provides the firmware for the Novena battery
+or passthrough board.")
+    (supported-systems '("armhf-linux")) ; actually cortex-m3
+    (home-page "https://github.com/xobs/senoko-chibios-3/")
+    (license license:gpl3+)))