Add Tribes packaging and system modules

2026-03-30 17:54:55 +02:00
parent c0f42ef8ce
commit 7bba5c1e98
8 changed files with 855 additions and 0 deletions
@@ -0,0 +1,56 @@
+(define-module (nbde system installed-base)
+  #:use-module (gnu)
+  #:use-module (gnu services base)
+  #:use-module (gnu services desktop)
+  #:use-module (gnu services networking)
+  #:use-module (gnu services ssh)
+  #:use-module (nbde system boot-store)
+  #:export (nbde-installed-operating-system))
+
+(define* (nbde-installed-operating-system #:key
+                                          host-name
+                                          bootloader
+                                          mapped-devices
+                                          file-systems
+                                          initrd
+                                          interface
+                                          authorized-keys-file
+                                          (timezone "Etc/UTC")
+                                          (locale "en_US.UTF-8")
+                                          (kernel-arguments
+                                           (list "console=tty0"
+                                                 "console=ttyS0,115200n8"))
+                                          (initrd-modules
+                                           (append '("nvme" "sd_mod" "virtio_scsi")
+                                                   %base-initrd-modules))
+                                          (extra-services '()))
+  "Return a base installed Guix system for the NBDE flow, parameterized by the
+runtime-discovered boot and filesystem values from the installer."
+  (operating-system
+    (host-name host-name)
+    (timezone timezone)
+    (locale locale)
+    (keyboard-layout (keyboard-layout "us"))
+    (kernel-arguments kernel-arguments)
+    (initrd-modules initrd-modules)
+    (initrd initrd)
+    (bootloader bootloader)
+    (mapped-devices mapped-devices)
+    (file-systems file-systems)
+    (services
+     (append
+     extra-services
+      (list (service dhcpcd-service-type)
+            (boot-store-staging-service)
+            (service elogind-service-type)
+            (service agetty-service-type
+                     (agetty-configuration
+                      (tty "ttyS0")
+                      (term "vt100")))
+            (service openssh-service-type
+                     (openssh-configuration
+                      (permit-root-login 'prohibit-password)
+                      (authorized-keys
+                       (list
+                        (list "root" authorized-keys-file))))))
+      %base-services))))