diff options
| -rw-r--r-- | gnu/packages/fvwm.scm | 17 |
1 files changed, 5 insertions, 12 deletions
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) |