diff options
author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-09-29 12:58:06 +0200 |
---|---|---|
committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-09-29 12:58:06 +0200 |
commit | de2e0831958486cc92e72ea6ad2b2a1dbb1b774e (patch) | |
tree | eacd92228eb0624492d6d0a7f60b1084edd7106f | |
parent | 519f6e2f6b470172a70730f813f3cbc5e53fd6f4 (diff) |
refactor(system): break out users
-rw-r--r-- | suweren/system.scm | 8 |
1 files changed, 5 insertions, 3 deletions
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) |