From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([209.51.188.92]:59577) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hWGGC-00079c-Si for guix-patches@gnu.org; Thu, 30 May 2019 04:18:05 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hWGGB-0003qo-W4 for guix-patches@gnu.org; Thu, 30 May 2019 04:18:04 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:47170) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1hWGGB-0003qf-S7 for guix-patches@gnu.org; Thu, 30 May 2019 04:18:03 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1hWGGB-0006kg-Kj for guix-patches@gnu.org; Thu, 30 May 2019 04:18:03 -0400 Subject: [bug#36000] [PATCH 2/4] gnu: emacs-exwm: Use make-desktop-entry-file. References: <20190530071138.31690-1-mail@ambrevar.xyz> In-Reply-To: <20190530071138.31690-1-mail@ambrevar.xyz> Resent-Message-ID: From: Pierre Neidhardt Date: Thu, 30 May 2019 10:17:26 +0200 Message-Id: <20190530081728.27140-1-mail@ambrevar.xyz> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 36000@debbugs.gnu.org * 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 9199b45e40..fed92528c3 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -7498,15 +7498,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 _ -- 2.21.0