amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: account: Create /var/guix/profiles/per-user/$USER.

Browse source 
* gnu/system/shadow.scm (account-shepherd-service): Create
/var/guix/profiles/per-user/$USER in ‘user-homes’ service.

Change-Id: I22e66e8a34d63686df9bae64c68df65c8889e72a
This commit is contained in:
Ludovic Courtès 2025-03-25 16:53:55 +01:00
parent c990405607
commit da741d8931
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 18 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

19
gnu/system/shadow.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013-2020, 2022, 2023 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013-2020, 2022-2023, 2025 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020, 2023 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2020, 2023 Efraim Flashner <efraim@flashner.co.il>
@ -460,6 +460,12 @@ accounts among ACCOUNTS+GROUPS."
(define accounts (define accounts
(filter user-account? accounts+groups)) (filter user-account? accounts+groups))
(define regular-account-names
(filter-map (lambda (account)
(and (not (user-account-system? account))
(user-account-name account)))
accounts))
;; Create home directories only once 'file-systems' is up. This makes sure ;; Create home directories only once 'file-systems' is up. This makes sure
;; they are created in the right place if /home lives on a separate ;; they are created in the right place if /home lives on a separate
;; partition. ;; partition.
@ -480,6 +486,17 @@ accounts among ACCOUNTS+GROUPS."
(activate-user-home (activate-user-home
(map sexp->user-account (map sexp->user-account
(list #$@(map user-account->gexp accounts)))) (list #$@(map user-account->gexp accounts))))
;; Create the user's profile directory upfront:
;; guix-daemon lacks permissions to create it when it is
;; running as an unprivileged user.
(for-each (lambda (account)
(let ((profile (in-vicinity
"/var/guix/profiles/per-user"
account))
(owner (getpwnam account)))
(mkdir-p/perms profile owner #o755)))
'#$regular-account-names)
#t))) ;success #t))) ;success
(documentation "Create user home directories.")))) (documentation "Create user home directories."))))