refactor!: introduce user obfuscation style

1 files changed, 6 insertions, 8 deletions

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))