feat: implement minimal user account for marekpasnikowski

1 files changed, 16 insertions, 2 deletions

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*