02/04: gnu: emacs-exwm: Use make-desktop-entry-file.

[guix-commits]

ambrevar pushed a commit to branch core-updates
in repository guix.

commit a9a507613b15272a0a4e89bd7a2160734205fc46
Author: Pierre Neidhardt <address@hidden>
Date:   Mon May 27 09:04:13 2019 +0200

    gnu: emacs-exwm: Use make-desktop-entry-file.
    
    * gnu/packages/emacs-xyz.scm (emacs-exwm)[arguments]: Do it.
---
 gnu/packages/emacs-xyz.scm | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index bbafd54..12c2eed 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -9072,15 +9072,12 @@ It should enable you to implement low-level X11 
applications.")
                ;; Add a .desktop file to xsessions
                (mkdir-p xsessions)
                (mkdir-p bin)
-               (with-output-to-file
-                   (string-append xsessions "/exwm.desktop")
-                 (lambda _
-                   (format #t "[Desktop Entry]~@
-                     Name=~a~@
-                     Comment=~a~@
-                     Exec=~a~@
-                     TryExec=~:*~a~@
-                     Type=Application~%" ,name ,synopsis exwm-executable)))
+               (make-desktop-entry-file
+                (string-append xsessions "/exwm.desktop")
+                #:name ,name
+                #:comment ,synopsis
+                #:exec exwm-executable
+                #:try-exec exwm-executable)
                ;; Add a shell wrapper to bin
                (with-output-to-file exwm-executable
                  (lambda _