From: Reza Alizadeh Majd <r.majd@pantherx.org>
Date: Fri, 16 Oct 2020 11:16:23 +0000 (+0330)
Subject: gnu: lxqt-session: Fix xsession entry exec path.
X-Git-Url: https://git.hcoop.net/jackhill/guix/guix.git/commitdiff_plain/9aa35795d3379de2ee2f0a6fffae61331a4da344

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>
---

diff --git a/gnu/packages/lxqt.scm b/gnu/packages/lxqt.scm
index af452a9903..67b75ced1e 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 _