diff options
Diffstat (limited to 'systems/mcdowell.scm')
-rw-r--r-- | systems/mcdowell.scm | 25 |
1 files changed, 18 insertions, 7 deletions
diff --git a/systems/mcdowell.scm b/systems/mcdowell.scm index ed1eaaa..7994ac8 100644 --- a/systems/mcdowell.scm +++ b/systems/mcdowell.scm @@ -1,4 +1,6 @@ (define-module (systems mcdowell) + #:use-module (gnu services) ; service + #:use-module (gnu services guix) ; guix-home-service-type #:use-module (machines portable-bios) ; bootloader-configuration* ; file-systems* ; firmware* @@ -6,6 +8,8 @@ ; kernel* #:use-module (suweren system) ; %suweren-operating-system #:use-module (users marekpasnikowski) ; marekpasnikowski-account + ; marekpasnikowski-home-environment + ; marekpasnikowski-username ) ;; string @@ -18,12 +22,19 @@ ;; record operating-system (define operating-system* - (%suweren-operating-system kernel* - bootloader-configuration* - initrd* - firmware* - host-name* - (file-systems* host-name*) - users*)) + (let* ((home-environments `((,marekpasnikowski-username ,marekpasnikowski-home-environment))) + + (guix-home (service guix-home-service-type + home-environments)) + + (services* (list guix-home))) + (%suweren-operating-system kernel* + bootloader-configuration* + initrd* + firmware* + host-name* + (file-systems* host-name*) + users* + services*))) operating-system* |