03/10: gnu: gnome-session: Use absolute paths in .desktop files.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 1d7bff4b4bdd60dfb3fb8150418e1a82c0ff2679
Author: Timothy Sample <address@hidden>
Date:   Wed Feb 13 14:22:15 2019 -0500

    gnu: gnome-session: Use absolute paths in .desktop files.
    
    This makes the gnome-session .desktop files usable even if gnome-session
    is not available from the PATH variable.
    
    * gnu/packages/gnome.scm (gnome-session)[arguments]: Add a phase that
    adds the absolute path of gnome-session in its .desktop files.
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 gnu/packages/gnome.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 21c6147..fb66457 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -4657,6 +4657,14 @@ such as gzip tarballs.")
                    (out  (assoc-ref outputs "out")))
                (wrap-program (string-append out "/bin/gnome-session")
                  `("PATH" ":" prefix (,(string-append glib "/bin"))))
+               #t)))
+         (add-after 'install 'add-absolute-paths-to-desktop-files
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out")))
+               (substitute* (map (lambda (x)
+                                   (string-append out "/share/xsessions/" x))
+                                 '("gnome.desktop" "gnome-xorg.desktop"))
+                 (("gnome-session") (string-append out "/bin/gnome-session")))
                #t))))
 
        #:configure-flags