gnu: emacs-exwm: Use make-desktop-entry-file.

* gnu/packages/emacs-xyz.scm (emacs-exwm)[arguments]: Do it.
This commit is contained in:
Pierre Neidhardt 2019-05-27 09:04:13 +02:00
parent 10bb4e1650
commit a9a507613b
No known key found for this signature in database
GPG key ID: 9BDCF497A4BBCC7F

View file

@ -9072,15 +9072,12 @@ (define-public emacs-exwm
;; 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 _