From de2e0831958486cc92e72ea6ad2b2a1dbb1b774e Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Sun, 29 Sep 2024 12:58:06 +0200 Subject: refactor(system): break out users --- suweren/system.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'suweren') diff --git a/suweren/system.scm b/suweren/system.scm index 3ef1e6d..855900b 100644 --- a/suweren/system.scm +++ b/suweren/system.scm @@ -134,6 +134,9 @@ sddm syncthing)))) +(define-public %suweren-users + %base-user-accounts) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; record package -> @@ -151,8 +154,7 @@ ;; record operating-system (define-public (suweren-operating-system) (use-modules (gnu system file-systems)) - (let* ((users* (append %base-user-accounts - users*))) + (let* ((pattern-placeholder #f)) (operating-system (kernel kernel*) (bootloader bootloader-configuration*) (keyboard-layout keyboard-layout*) @@ -161,7 +163,7 @@ (host-name host-name*) (file-systems %suweren-file-systems) (swap-devices swap-devices*) - (users users*) + (users %suweren-users) (timezone timezone*) (locale "pl_PL.utf8") (services %suweren-services) -- cgit v1.2.3