Andy Tai <atai@atai.org> writes:

> * gnu/packages/wm.scm (icewm): Add 'install-xsession phase that
> installs the icewm.desktop.file so icewm can be a choice as a desktop
> in gdm (the graphical login screen)
>
> Change-Id: I94661ec15bccc3bcb1539a52c78cc303a4b5caf3
> ---
>  gnu/packages/wm.scm | 21 ++++++++++++++++++++-
>  1 file changed, 20 insertions(+), 1 deletion(-)
>
> diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
> index ca79e39c57..126f71ddee 100644
> --- a/gnu/packages/wm.scm
> +++ b/gnu/packages/wm.scm
> @@ -1065,7 +1065,26 @@ (define-public icewm
>                   (lambda _
>                     (substitute* "src/Makefile.in"
>                       (("TESTS = strtest\\$\\(EXEEXT\\)")
> -                      "TESTS = ")))))))
> +                      "TESTS = "))))
> +                   (add-after 'install 'install-xsession
> +                     (lambda* (#:key outputs #:allow-other-keys)
> +                       ;; Add a .desktop file to xsessions.
> +                       (let* ((output (assoc-ref outputs "out"))

use #$output

> +                              (xsessions (string-append output
> +                                                        "/share/xsessions")))
> +                         (mkdir-p xsessions)
> +                         (call-with-output-file (string-append xsessions
> +
> +                                                 "/icewm.desktop")
> +                           (lambda (port)
> +                             (format port
> +                              "[Desktop Entry]~@
> +                            Name=icewm~@
> +                            Comment=IceWM window manager~@
> +                            Exec=~a/bin/icewm~@
> +                            TryExec=~@*~a/bin/icewm~@
> +                            Type=Application~%"
> +                              output)))))))))

please use `make-desktop-entry-file'

>      (home-page "https://ice-wm.org/")
>      (synopsis "Window manager for the X Window System")
>      (description
>
> base-commit: f9dcb84550b85aa816899b2106b1a5ae546167a3