02/02: gnu: xmonad: Re-add xmonad.desktop file.

[guix-commits]

lbraun pushed a commit to branch master
in repository guix.

commit bc71034f789603349080c2f35570910c07d526ec
Author: EuAndreh <eu@euandre.org>
AuthorDate: Fri Aug 9 07:09:54 2024 -0300

    gnu: xmonad: Re-add xmonad.desktop file.
    
    * gnu/packages/wm.scm (xmonad)[arguments]: Add 'install-xsession phase
      that was removed in previous automated update.
    
    Change-Id: Iac02b4c6e7a73c9b354c52b46eb39dca8156b1c3
---
 gnu/packages/wm.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index ad74fb5cf7..da1695ff62 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -872,6 +872,24 @@ manager and a system tray.")
         (base32 "19qz9a23377nzc0qq8nca45s745mfncd4i2vwba14gi7ipipfcil"))))
     (build-system haskell-build-system)
     (properties '((upstream-name . "xmonad")))
+    (arguments
+      (list
+       #:phases
+       #~(modify-phases %standard-phases
+           (add-after 'install 'install-xsession
+             (lambda _
+               (let* ((xsessions (string-append #$output "/share/xsessions"))
+                      (entry     (string-append xsessions "/xmonad.desktop")))
+                 (mkdir-p xsessions)
+                 (call-with-output-file
+                  entry
+                  (lambda (port)
+                    (format port "~
+                      [Desktop Entry]~@
+                      Name=xmonad~@
+                      Comment=xmonad window manager~@
+                      Exec=~a/bin/xmonad~@
+                      Type=Application~%" #$output)))))))))
     (inputs (list ghc-x11 ghc-data-default-class ghc-setlocale))
     (native-inputs (list ghc-quickcheck ghc-quickcheck-classes))
     (home-page "http://xmonad.org";)