diff options
| -rw-r--r-- | systems/mcdowell.scm | 25 | ||||
| -rw-r--r-- | users/marekpasnikowski.scm | 10 |
2 files changed, 27 insertions, 8 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* diff --git a/users/marekpasnikowski.scm b/users/marekpasnikowski.scm index 6513d88..d6922d1 100644 --- a/users/marekpasnikowski.scm +++ b/users/marekpasnikowski.scm @@ -21,6 +21,10 @@ (append %suweren-home-services profile))) +;; string +(define-public marekpasnikowski-username + "marek") + (define-public home (let ((services (append %suweren-home-services marekpasnikowski-services))) @@ -29,5 +33,9 @@ ;; record user-account (define-public marekpasnikowski-account - (user-account (name "marek") + (user-account (name marekpasnikowski-username) (group "users"))) + +;; record home-environment +(define-public marekpasnikowski-home-environment + (home-environment)) |