diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2022-09-16 14:45:15 -0400 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2022-09-16 16:27:08 -0400 |
| commit | d7e56aebec4535f3567c362b6084818873e54b0d (patch) | |
| tree | c230e278f77edad86b3861ad3bec4b2643489443 /gnu/services/xorg.scm | |
| parent | e8fac28b9b1fee6c4327cc93eabf630ddae99b59 (diff) | |
| download | guix-d7e56aebec4535f3567c362b6084818873e54b0d.tar.gz | |
services: desktop: Mount /var/lib/gdm on a tmpfs file system.
Fixes <https://issues.guix.gnu.org/44944>. * gnu/services/xorg.scm (%gdm-activation): Delete variable. (gdm-service-type): De-register it. * gnu/services/desktop.scm (%gdm-file-system): New variable. (gdm-file-system-service): Likewise. (desktop-services-for-system): Use it.
Diffstat (limited to 'gnu/services/xorg.scm')
| -rw-r--r-- | gnu/services/xorg.scm | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/gnu/services/xorg.scm b/gnu/services/xorg.scm index 0cbd9aa53b..3ff290c197 100644 --- a/gnu/services/xorg.scm +++ b/gnu/services/xorg.scm @@ -818,27 +818,6 @@ the GNOME desktop environment.") (home-directory "/var/lib/gdm") (shell (file-append shadow "/sbin/nologin"))))) -(define %gdm-activation - ;; Ensure /var/lib/gdm is owned by the "gdm" user. This is normally the - ;; case but could be wrong if the "gdm" user was created, then removed, and - ;; then recreated under a different UID/GID: <https://bugs.gnu.org/37423>. - (with-imported-modules '((guix build utils)) - #~(begin - (use-modules (guix build utils)) - - (let* ((gdm (getpwnam "gdm")) - (uid (passwd:uid gdm)) - (gid (passwd:gid gdm)) - (st (stat "/var/lib/gdm" #f))) - ;; Recurse into /var/lib/gdm only if it has wrong ownership. - (when (and st - (or (not (= uid (stat:uid st))) - (not (= gid (stat:gid st))))) - (for-each (lambda (file) - (chown file uid gid)) - (find-files "/var/lib/gdm" - #:directories? #t))))))) - (define dbus-daemon-wrapper (program-file "gdm-dbus-wrapper" @@ -1022,8 +1001,6 @@ the GNOME desktop environment.") (extensions (list (service-extension shepherd-root-service-type gdm-shepherd-service) - (service-extension activation-service-type - (const %gdm-activation)) (service-extension account-service-type (const %gdm-accounts)) (service-extension pam-root-service-type |