From 68b8bf062a8cd08136849fb588a67ef83c03b52f Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Thu, 25 Jul 2024 16:25:51 +0200 Subject: feat!(system): implement home services --- systems/mcdowell.scm | 25 ++++++++++++++++++------- 1 file changed, 18 insertions(+), 7 deletions(-) (limited to 'systems') 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* -- cgit v1.2.3