[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: gnu: fvwm: Use make-desktop-entry-file.
From: |
guix-commits |
Subject: |
03/03: gnu: fvwm: Use make-desktop-entry-file. |
Date: |
Wed, 19 Aug 2020 09:34:19 -0400 (EDT) |
efraim pushed a commit to branch master
in repository guix.
commit c0153167e83947641f806d7f8d9f21eeba5c5803
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Wed Aug 19 16:31:59 2020 +0300
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(-)
diff --git a/gnu/packages/fvwm.scm b/gnu/packages/fvwm.scm
index 0012b6c..6509fb3 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)