01/04: gnu: lxqt-session: Fix xsession entry exec path.

[guix-commits]

wigust pushed a commit to branch master
in repository guix.

commit 9aa35795d3379de2ee2f0a6fffae61331a4da344
Author: Reza Alizadeh Majd <r.majd@pantherx.org>
AuthorDate: Fri Oct 16 14:46:23 2020 +0330

    gnu: lxqt-session: Fix xsession entry exec path.
    
    * gnu/packages/lxqt.scm (lxqt-session)[arguments]: Update path for
    "startlxqt" to be able to executed properly by "gdm".
    
    Signed-off-by: Oleg Pykhalov <go.wigust@gmail.com>
---
 gnu/packages/lxqt.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/lxqt.scm b/gnu/packages/lxqt.scm
index af452a9..67b75ce 100644
--- a/gnu/packages/lxqt.scm
+++ b/gnu/packages/lxqt.scm
@@ -849,12 +849,16 @@ allows for launching applications or shutting down the 
system.")
        #:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'patch-source
-           (lambda _
+           (lambda* (#:key outputs #:allow-other-keys)
              (substitute* '("autostart/CMakeLists.txt"
                             "config/CMakeLists.txt")
                (("DESTINATION \"\\$\\{LXQT_ETC_XDG_DIR\\}")
                 "DESTINATION \"etc/xdg"))
-             #t))
+             (let ((out (assoc-ref outputs "out")))
+               (substitute* '("xsession/lxqt.desktop.in")
+                 (("Exec=startlxqt") (string-append "Exec=" out 
"/bin/startlxqt"))
+                 (("TryExec=lxqt-session") (string-append "TryExec=" out 
"/bin/startlxqt")))
+               #t)))
          ;; add write permission to lxqt-rc.xml file which is stored as 
read-only in store
          (add-after 'unpack 'patch-openbox-permission
            (lambda _