diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2020-08-19 16:31:59 +0300 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2020-08-19 16:31:59 +0300 |
| commit | c0153167e83947641f806d7f8d9f21eeba5c5803 (patch) | |
| tree | f153659c081ad5e446036a1b4a2871e0cff1d75a /gnu/packages/fvwm.scm | |
| parent | 678fdbb37a6fa5a24413f5550c29f446945e6e23 (diff) | |
| download | guix-c0153167e83947641f806d7f8d9f21eeba5c5803.tar guix-c0153167e83947641f806d7f8d9f21eeba5c5803.tar.gz | |
gnu: fvwm: Use make-desktop-entry-file.
* gnu/packages/fvwm.scm (fvwm)[arguments]: Adjust 'install-xsession to
use make-desktop-entry-file.
Diffstat (limited to 'gnu/packages/fvwm.scm')
| -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) |