From 86d0dd70fc7f16833ea85d5a5735502788c314e5 Mon Sep 17 00:00:00 2001
From: SouthFox <master@southfox.me>
Date: Tue, 26 Nov 2024 16:48:37 +0800
Subject: [PATCH] [ci] add build.scm script

Signed-off-by: SouthFox <master@southfox.me>
---
 utils/build.scm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 utils/build.scm

diff --git a/utils/build.scm b/utils/build.scm
new file mode 100644
index 0000000..f270a7f
--- /dev/null
+++ b/utils/build.scm
@@ -0,0 +1,19 @@
+(use-modules (guix discovery)
+             (gnu packages)
+             (guix packages)
+             (ice-9 popen))
+
+(define fox-packages
+   (string-join (map (lambda (p) (package-name p))
+                     (fold-packages
+                      (lambda (a b)
+                        (cons a b))
+                      '() (scheme-modules "modules")))
+                " "))
+
+(define build-command
+  (string-join `("guix" "build" "-L" "modules" ,fox-packages) " "))
+
+(let ((port (open-output-pipe build-command)))
+  (if (not (eqv? 0 (status:exit-val (close-pipe port))))
+      (error "Something wrong")))