3
4
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00

gnu: fvwm: Use make-desktop-entry-file.

* gnu/packages/fvwm.scm (fvwm)[arguments]: Adjust 'install-xsession to
  use make-desktop-entry-file.
This commit is contained in:
Efraim Flashner 2020-08-19 16:31:59 +03:00
parent 678fdbb37a
commit c0153167e8
Signed by untrusted user: efraim
GPG key ID: 41AAE7DCCA3D8351

View file

@ -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)