From 16a2e6aba5407a99ab5d2903f5482610dad70d91 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Sat, 12 Oct 2024 07:55:23 +0200
Subject: refactor(mcdowell): localize imports of module (users id1000)

---
 systems/mcdowell.scm | 17 +++++++----------
 1 file changed, 7 insertions(+), 10 deletions(-)

(limited to 'systems')

diff --git a/systems/mcdowell.scm b/systems/mcdowell.scm
index 80bb4a4..ca3eb7a 100644
--- a/systems/mcdowell.scm
+++ b/systems/mcdowell.scm
@@ -1,20 +1,17 @@
-(define-module (systems mcdowell)
-  #:use-module (users id1000)		; uid1000-account
-					; uid1000-home-environment
-					; uid1000-name
-  )
+(define-module (systems mcdowell))
 
 ;; string
 (define host-name*
   "mcdowell")
 
-;; (record user-account)
-(define users*
+(define (users-mcdowell)
+  (use-modules (users id1000))
   (list uid1000-account))
 
 ;;;???????????????????????????????????????????????????????????????????
 
-(define home-environments
+(define (home-environments-mcdowell)
+  (use-modules (users id1000))
   `((,uid1000-name ,(uid1000-home-environment host-name*))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -34,7 +31,7 @@
   (use-modules (gnu services guix))
   ((@ (gnu services) service)
    guix-home-service-type
-   home-environments))
+   (home-environments-mcdowell)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
@@ -63,7 +60,7 @@
    (host-name host-name*)
    (file-systems (file-systems* host-name*))
    (swap-devices (swap-devices* host-name*))
-   (users users*)
+   (users (users-mcdowell))
    (timezone "Europe/Warsaw")
    ;; locale*
    (services services-mcdowell)))
-- 
cgit v1.2.3