diff options
author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-10-12 07:59:17 +0200 |
---|---|---|
committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-10-12 07:59:17 +0200 |
commit | d9897bfa4bf75f0c8a0f6b178ae088c92f7c8157 (patch) | |
tree | 9af9ae388af99dbadb06fb68c9d04508b5732ecf | |
parent | 16a2e6aba5407a99ab5d2903f5482610dad70d91 (diff) |
refactor(mcdowell): clean up the file
-rw-r--r-- | systems/mcdowell.scm | 15 |
1 files changed, 9 insertions, 6 deletions
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* |