07/07: gnu: qtile: Install .desktop file.

[guix-commits]

mbakke pushed a commit to branch master
in repository guix.

commit b0d64a81dcf95c725a5e547a71d20c29d41b5c6f
Author: jonscoresby--- <jonscoresby@mailbox.org>
AuthorDate: Fri Aug 26 09:28:20 2022 -0600

    gnu: qtile: Install .desktop file.
    
    * gnu/packages/wm.scm (qtile)[arguments]: Add install-xsession phase.
    
    Signed-off-by: Marius Bakke <marius@gnu.org>
---
 gnu/packages/wm.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 7ea6840689..5084d194a6 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -579,7 +579,16 @@ subscribe to events.")
                   (assoc-ref inputs "pango") "/lib/libpango-1.0.so.0\")\n"))
                 (("^pangocairo = ffi.dlopen.*")
                  (string-append "pangocairo = ffi.dlopen(\""
-                  (assoc-ref inputs "pango") 
"/lib/libpangocairo-1.0.so.0\")\n"))))))))
+                  (assoc-ref inputs "pango") 
"/lib/libpangocairo-1.0.so.0\")\n")))))
+       (add-after 'install 'install-xsession
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (xsessions (string-append out "/share/xsessions"))
+                    (qtile (string-append out "/bin/qtile start")))
+               (mkdir-p xsessions)
+               (copy-file "resources/qtile.desktop" (string-append xsessions 
"/qtile.desktop"))
+               (substitute* (string-append xsessions "/qtile.desktop")
+                 (("qtile start") qtile))))))))
     (inputs
       (list glib pango pulseaudio))
     (propagated-inputs