From 6def6eae95b3779775943eb36f8e9f100ceec127 Mon Sep 17 00:00:00 2001
From: jgart <jgart@dismail.de>
Date: Thu, 11 Dec 2025 23:44:22 -0600
Subject: [PATCH] gnu: Add bonsai.

* gnu/packages/hare-apps.scm (bonsai): New variable.

Change-Id: I4489911b111c48aeb9b084e685aaafa8adfd98e4
Signed-off-by: jgart <jgart@dismail.de>
---
 CODEOWNERS                 |  1 +
 etc/teams.scm              |  1 +
 gnu/local.mk               |  1 +
 gnu/packages/hare-apps.scm | 62 ++++++++++++++++++++++++++++++++++++++
 4 files changed, 65 insertions(+)
 create mode 100644 gnu/packages/hare-apps.scm

diff --git a/CODEOWNERS b/CODEOWNERS
index ecdeb421c7a..edd88b5b07f 100644
--- a/CODEOWNERS
+++ b/CODEOWNERS
@@ -194,6 +194,7 @@ guix/scripts/import/go\.scm                        @guix/go
 tests/import/go\.scm                               @guix/go
 
 gnu/packages/hare\.scm                             @guix/hare
+gnu/packages/hare-apps\.scm                        @guix/hare
 gnu/packages/hare-xyz\.scm                         @guix/hare
 guix/build-system/hare\.scm                        @guix/hare
 guix/build/hare-build-system\.scm                  @guix/hare
diff --git a/etc/teams.scm b/etc/teams.scm
index 439bfa0bf6a..d8eb6e5a478 100755
--- a/etc/teams.scm
+++ b/etc/teams.scm
@@ -702,6 +702,7 @@ GLib/GIO, GTK, GStreamer and Webkit."
   (team 'hare
         #:name "Hare"
         #:scope (list "gnu/packages/hare.scm"
+                      "gnu/packages/hare-apps.scm"
                       "gnu/packages/hare-xyz.scm"
                       "guix/build-system/hare.scm"
                       "guix/build/hare-build-system.scm")))
diff --git a/gnu/local.mk b/gnu/local.mk
index a22d0a287db..99e250c6645 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -357,6 +357,7 @@ GNU_SYSTEM_MODULES =				\
   %D%/packages/gxmessage.scm			\
   %D%/packages/hardware.scm			\
   %D%/packages/hare.scm				\
+  %D%/packages/hare-apps.scm			\
   %D%/packages/hare-xyz.scm			\
   %D%/packages/haskell.scm			\
   %D%/packages/haskell-apps.scm			\
diff --git a/gnu/packages/hare-apps.scm b/gnu/packages/hare-apps.scm
new file mode 100644
index 00000000000..64dc2287a50
--- /dev/null
+++ b/gnu/packages/hare-apps.scm
@@ -0,0 +1,62 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2025 jgart <jgart@dismail.de>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu packages hare-apps)
+  #:use-module (gnu packages hare-xyz)
+  #:use-module (guix build-system hare)
+  #:use-module (guix git-download)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages))
+
+(define-public bonsai
+  (package
+    (name "bonsai")
+    (version "1.3.0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://git.sr.ht/~stacyharper/bonsai")
+              (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "148rccbh5alpnz36ricv8y26qyrqwm4g7mj936vpwrxwd9dkwmff"))))
+    (build-system hare-build-system)
+    (inputs (list hare-ev hare-json))
+    (supported-systems %hare-supported-systems)
+    (home-page "https://bonsai.builtwithhare.org")
+    (synopsis "Finite State Machine structured as a tree that trigger commands")
+    (description "Bonsai is a Finite State Machine structured as a tree.  It
+has been designed to trigger commands when successive events and/or a precise
+context is accepted.  There is 4 kind of transition with specific acceptance
+rules:
+
+@itemize
+@item event transition: The received event name match the transition
+one
+@item context transition: The state context match the transition one @item
+exec transition: The transition command is run and succeed
+@item delay
+transition: The state wait for the delay transition duration.  No other
+accepted event is received while waiting
+@end itemize
+
+The state will transition following every accepted transition.  If there is no
+more available transition, the state goes back to the initial position.")
+    (license license:agpl3+)))
+