summary refs log tree commit diff
path: root/gnu/packages
diff options
context:
space:
mode:
authorAndy Wingo <wingo@igalia.com>2017-08-22 14:06:40 +0200
committerAndy Wingo <wingo@igalia.com>2017-08-25 16:01:56 +0200
commitaf37e6bbd4a0b97c8147ccbd1548dc2e5f830466 (patch)
treecc159cec277a6148840f8049c520a8629a7d6a4a /gnu/packages
parent92753a8badf7ffd6c58b2164abfdb5dc576b6197 (diff)
downloadguix-af37e6bbd4a0b97c8147ccbd1548dc2e5f830466.tar.gz
gnu: gdm: Look for sessions in /run/current-system.
* gnu/packages/gnome.scm (gdm): Fix search paths for system sessions.  Use
  /var as localstatedir.  Set a more sensible default path for user sessions.
Diffstat (limited to 'gnu/packages')
-rw-r--r--gnu/packages/gnome.scm20
1 files changed, 19 insertions, 1 deletions
diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index ab8e0871fb..a26688d8b8 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -5098,7 +5098,13 @@ libxml2.")
     (build-system gnu-build-system)
     (arguments
      '(#:configure-flags
-       '("--without-plymouth")
+       `("--without-plymouth"
+         "--localstatedir=/var"
+         ,(string-append "--with-default-path="
+                         (string-join '("/run/setuid-programs"
+                                        "/run/current-system/profile/bin"
+                                        "/run/current-system/profile/sbin")
+                                      ":")))
        #:phases
        (modify-phases %standard-phases
          (add-before
@@ -5119,6 +5125,18 @@ libxml2.")
             ;; Avoid checking SYSTEMD using pkg-config.
             (setenv "SYSTEMD_CFLAGS" " ")
             (setenv "SYSTEMD_LIBS" "-lelogind")
+            ;; Look for system-installed sessions in
+            ;; /run/current-system/profile/share.
+            (substitute* '("libgdm/gdm-sessions.c"
+                           "daemon/gdm-session.c"
+                           "daemon/gdm-display.c"
+                           "daemon/gdm-launch-environment.c")
+              (("DATADIR \"/x")
+               "\"/run/current-system/profile/share/x")
+              (("DATADIR \"/wayland")
+               "\"/run/current-system/profile/share/wayland")
+              (("DATADIR \"/gnome")
+               "\"/run/current-system/profile/share/gnome"))
             #t)))))
     (native-inputs
      `(("dconf" ,dconf)