diff options
author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-07-25 16:25:51 +0200 |
---|---|---|
committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-07-25 17:28:28 +0200 |
commit | 68b8bf062a8cd08136849fb588a67ef83c03b52f (patch) | |
tree | 6b59771afc78b5b716a6c0a1fafe12a341f89bcc | |
parent | 2202a248eaf96bfa3652939f1158c00dc93de492 (diff) |
feat!(system): implement home services
-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)) |