05/06: gnu: lightdm-gtk-greeter: Fix .desktop file.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 13b012754eff829bbd8b16184cfc623b96a8d4e1
Author: L p R n d n <address@hidden>
AuthorDate: Tue Apr 16 13:58:26 2019 +0200

    gnu: lightdm-gtk-greeter: Fix .desktop file.
    
    * gnu/packages/display-managers.scm (lightdm-gtk-greeter)[arguments]: Fix
    reference to greeter in .desktop file with "fix-.desktop-file" phase.
    
    Signed-off-by: Ricardo Wurmus <address@hidden>
---
 gnu/packages/display-managers.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/display-managers.scm 
b/gnu/packages/display-managers.scm
index cfd2e6d..cda7598 100644
--- a/gnu/packages/display-managers.scm
+++ b/gnu/packages/display-managers.scm
@@ -209,7 +209,17 @@ display manager which supports different greeters.")
      `(#:configure-flags
        (list (string-append "--enable-at-spi-command="
                             (assoc-ref %build-inputs "at-spi2-core")
-                            "/libexec/at-spi-bus-launcher"))))
+                            "/libexec/at-spi-bus-launcher"))
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'fix-.desktop-file
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (substitute* (string-append
+                             out 
"/share/xgreeters/lightdm-gtk-greeter.desktop")
+                 (("Exec=lightdm-gtk-greeter")
+                  (string-append "Exec=" out "/sbin/lightdm-gtk-greeter")))
+               #t))))))
     (native-inputs
      `(("exo" ,exo)
        ("intltool" ,intltool)