From 74585be49ce99585f0bfb649402cc807a6802fe7 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Sun, 28 Jul 2024 16:53:41 +0200 Subject: refactor!: introduce user obfuscation style --- systems/mcdowell.scm | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) (limited to 'systems/mcdowell.scm') diff --git a/systems/mcdowell.scm b/systems/mcdowell.scm index 5b2aeca..ed74873 100644 --- a/systems/mcdowell.scm +++ b/systems/mcdowell.scm @@ -9,9 +9,9 @@ ; initrd* ; kernel* #:use-module (suweren system) ; %suweren-operating-system - #:use-module (users marekpasnikowski) ; marekpasnikowski-account - ; marekpasnikowski-home-environment - ; marekpasnikowski-username + #:use-module (users id1000) ; uid1000-account + ; uid1000-home-environment + ; uid1000-name ) ;; string @@ -23,14 +23,12 @@ (let* ((system-groups (list "wheel")) (supplementary-groups* (append hardware-groups - system-groups)) - - (marekpasnikowski (marekpasnikowski-account supplementary-groups*))) - (list marekpasnikowski))) + system-groups))) + (list (uid1000-account supplementary-groups*)))) ;; record operating-system (define operating-system* - (let* ((home-environments `((,marekpasnikowski-username ,(marekpasnikowski-home-environment host-name*)))) + (let* ((home-environments `((,uid1000-name ,(uid1000-home-environment host-name*)))) (guix-home (service guix-home-service-type home-environments)) -- cgit v1.2.3