diff options
author | Pierre Neidhardt <mail@ambrevar.xyz> | 2019-05-27 09:04:13 +0200 |
---|---|---|
committer | Pierre Neidhardt <mail@ambrevar.xyz> | 2019-10-19 12:45:40 +0200 |
commit | a9a507613b15272a0a4e89bd7a2160734205fc46 (patch) | |
tree | cde7cd22c76deafbdd5f36728c593f64a168c22a | |
parent | 10bb4e165056199dfc3b3f0910a83dd7b4aa5e55 (diff) | |
download | guix-patches-a9a507613b15272a0a4e89bd7a2160734205fc46.tar guix-patches-a9a507613b15272a0a4e89bd7a2160734205fc46.tar.gz |
gnu: emacs-exwm: Use make-desktop-entry-file.
* gnu/packages/emacs-xyz.scm (emacs-exwm)[arguments]: Do it.
-rw-r--r-- | gnu/packages/emacs-xyz.scm | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index bbafd548b1..12c2eede94 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 _ |