From c0153167e83947641f806d7f8d9f21eeba5c5803 Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Wed, 19 Aug 2020 16:31:59 +0300 Subject: gnu: fvwm: Use make-desktop-entry-file. * gnu/packages/fvwm.scm (fvwm)[arguments]: Adjust 'install-xsession to use make-desktop-entry-file. --- gnu/packages/fvwm.scm | 17 +++++------------ 1 file changed, 5 insertions(+), 12 deletions(-) (limited to 'gnu/packages/fvwm.scm') diff --git a/gnu/packages/fvwm.scm b/gnu/packages/fvwm.scm index 0012b6c5ff..6509fb38a5 100644 --- a/gnu/packages/fvwm.scm +++ b/gnu/packages/fvwm.scm @@ -54,18 +54,11 @@ (let* ((out (assoc-ref outputs "out")) (xsessions (string-append out "/share/xsessions"))) (mkdir-p xsessions) - (with-output-to-file - (string-append xsessions "/fvwm2.desktop") - (lambda _ - (format #t - "[Desktop Entry]~@ - Name=FVWM~@ - Comment=FVWM~@ - Exec=~a/bin/fvwm~@ - TryExec=~@*~a/bin/fvwm~@ - Icon=~@ - Type=Application~%" - out)))) + (make-desktop-entry-file + (string-append xsessions "/fvwm2.desktop") + #:name "FVWM" + #:exec (string-append out "/bin/" ,name) + #:comment '("FVWM"))) #t))))) (native-inputs `(("perl" ,perl) -- cgit v1.2.3