me
/
guix
Archived
1
0
Fork 0
Code

services: home: Use pairs instead of lists. 

* gnu/services/guix.scm: Use pairs instead of lists.
* doc/guix.texi: Update accordingly.
* gnu/tests/guix.scm: Update accordingly.

Change-Id: I0b8d3fa5b214add89bdb84a11fa20d1b319435f0
master
Andrew Tropin 2024-05-22 13:49:37 +04:00
parent fa7906d648
commit dbeef44f3c
No known key found for this signature in database
GPG Key ID: 2208D20958C1DEB0
3 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
doc/guix.texi
View File

@ -39607,7 +39607,7 @@ the value is a home-environment configuration.
(operating-system (operating-system
(services (append (list (service guix-home-service-type (services (append (list (service guix-home-service-type
`(("alice" ,my-home)))) `(("alice" . ,my-home))))
%base-services))) %base-services)))
@end lisp @end lisp
@ -39616,7 +39616,7 @@ environments, as in this example:
@lisp @lisp
(simple-service 'my-extra-home home-service-type (simple-service 'my-extra-home home-service-type
`(("bob" ,my-extra-home)))) `(("bob" . ,my-extra-home))))
@end lisp @end lisp
@end defvar @end defvar

6
gnu/services/guix.scm
View File

@ -696,7 +696,7 @@ ca-certificates.crt file in the system profile."
(define (guix-home-shepherd-service config) (define (guix-home-shepherd-service config)
(map (match-lambda (map (match-lambda
((user he) (((? string? user) . (? home-environment? he))
(shepherd-service (shepherd-service
(documentation "Activate Guix Home.") (documentation "Activate Guix Home.")
(requirement '(user-processes)) (requirement '(user-processes))
@ -710,7 +710,9 @@ ca-certificates.crt file in the system profile."
(list (string-append "HOME=" (passwd:dir (getpw #$user))) (list (string-append "HOME=" (passwd:dir (getpw #$user)))
"GUIX_SYSTEM_IS_RUNNING_HOME_ACTIVATE=t") "GUIX_SYSTEM_IS_RUNNING_HOME_ACTIVATE=t")
#:group (group:name (getgrgid (passwd:gid (getpw #$user)))))) #:group (group:name (getgrgid (passwd:gid (getpw #$user))))))
(stop #~(make-kill-destructor))))) (stop #~(make-kill-destructor))))
(e (error "Invalid value for guix-home, it should be in a form of
(\"user-name\" . home-environment), but the following value is provided:\n" e)))
config)) config))
(define guix-home-service-type (define guix-home-service-type

2
gnu/tests/guix.scm
View File

@ -271,7 +271,7 @@ host all all ::1/128 trust"))))))
(define %guix-home-service-os (define %guix-home-service-os
(simple-operating-system (simple-operating-system
(service guix-home-service-type (service guix-home-service-type
`(("alice" ,%guix-home-service-he))))) `(("alice" . ,%guix-home-service-he)))))
(define (run-guix-home-service-test) (define (run-guix-home-service-test)
(define os (define os