From d9ef2ccec737b077862f6a9280992e4d55742d70 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Mon, 22 Jul 2024 12:26:10 +0200 Subject: feat: implement minimal user account for marekpasnikowski --- systems/mcdowell.scm | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) (limited to 'systems') diff --git a/systems/mcdowell.scm b/systems/mcdowell.scm index 4e97866..55fb530 100644 --- a/systems/mcdowell.scm +++ b/systems/mcdowell.scm @@ -1,9 +1,23 @@ (define-module (systems mcdowell) - #:use-module (machines portable-bios) ; portable-operating-system + #:use-module (machines portable-bios) ; bootloader-configuration* + ; file-systems* + #:use-module (suweren system) ; %suweren-operating-system + #:use-module (users marekpasnikowski) ; marekpasnikowski-account ) ;; string (define host-name* "mcdowell") -(operating-system* host-name*) +;; (record user-account) +(define users* + (list marekpasnikowski-account)) + +;; record operating-system +(define operating-system* + (%suweren-operating-system bootloader-configuration* + host-name* + (file-systems* host-name*) + users*)) + +operating-system* -- cgit v1.2.3