summary refs log tree commit diff
path: root/gnu/packages/fvwm.scm
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2020-08-19 16:31:59 +0300
committerEfraim Flashner <efraim@flashner.co.il>2020-08-19 16:31:59 +0300
commitc0153167e83947641f806d7f8d9f21eeba5c5803 (patch)
treef153659c081ad5e446036a1b4a2871e0cff1d75a /gnu/packages/fvwm.scm
parent678fdbb37a6fa5a24413f5550c29f446945e6e23 (diff)
downloadguix-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.scm17
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)