02/04: gnu: lxqt-session: Wrap startlxqt executable.

[guix-commits]

wigust pushed a commit to branch master
in repository guix.

commit bdb030a7dc5bf84365d7f77935e838f848e02786
Author: Reza Alizadeh Majd <r.majd@pantherx.org>
AuthorDate: Fri Oct 16 14:47:19 2020 +0330

    gnu: lxqt-session: Wrap startlxqt executable.
    
    * gnu/packages/lxqt.scm (lxqt-session)[arguments]: Add new phase to wrap
    "lxqt-session" and add base paths for "lxqt" and "pcmanfm-qt" config folders
    in system profile to "XDG_CONFIG_DIRS" environment variable.
    
    Signed-off-by: Oleg Pykhalov <go.wigust@gmail.com>
---
 gnu/packages/lxqt.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/lxqt.scm b/gnu/packages/lxqt.scm
index 67b75ce..3c4b2d4 100644
--- a/gnu/packages/lxqt.scm
+++ b/gnu/packages/lxqt.scm
@@ -876,7 +876,14 @@ allows for launching applications or shutting down the 
system.")
                (("\\$\\{LXQT_TRANSLATIONS_DIR\\}")
                 (string-append (assoc-ref outputs "out")
                                "/share/lxqt/translations")))
-             #t)))))
+             #t))
+         (add-after 'install 'wrap-program
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (wrap-program (string-append out "/bin/startlxqt")
+                 `("XDG_CONFIG_DIRS" ":" suffix 
("/run/current-system/profile/share"
+                                                 
"/run/current-system/profile/share/pcmanfm-qt")))
+               #t))))))
     (home-page "https://lxqt.github.io";)
     (synopsis "Session manager for LXQt")
     (description "lxqt-session provides the standard session manager