From d9897bfa4bf75f0c8a0f6b178ae088c92f7c8157 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Sat, 12 Oct 2024 07:59:17 +0200 Subject: refactor(mcdowell): clean up the file --- systems/mcdowell.scm | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) (limited to 'systems') diff --git a/systems/mcdowell.scm b/systems/mcdowell.scm index ca3eb7a..ee0c850 100644 --- a/systems/mcdowell.scm +++ b/systems/mcdowell.scm @@ -1,14 +1,9 @@ (define-module (systems mcdowell)) -;; string (define host-name* "mcdowell") -(define (users-mcdowell) - (use-modules (users id1000)) - (list uid1000-account)) - -;;;??????????????????????????????????????????????????????????????????? +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (home-environments-mcdowell) (use-modules (users id1000)) @@ -46,6 +41,10 @@ (append (desktop-services-mcdowell) (list (guix-home-service-mcdowell)))) +(define (users-mcdowell) + (use-modules (users id1000)) + (list uid1000-account)) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (operating-system*) @@ -65,7 +64,11 @@ ;; locale* (services services-mcdowell))) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + (define-public operating-system* (operating-system*)) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + operating-system* -- cgit v1.2.3