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

gnu: fvwm: Add '.desktop' file.

* gnu/packages/fvwm.scm (fvwm)[arguments]: Add new phase to create '.desktop' file.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
ng0 2018-03-17 15:57:19 +00:00 committed by Ludovic Courtès
parent 07d2fed2f6
commit c217df913e
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -45,6 +45,27 @@
(base32
"0wzghjgy65pkn31rgl14fngizw7nbkzbxsfa670xmrndpmd4sr81"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'install-xsession
(lambda* (#:key outputs #:allow-other-keys)
(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))))
#t)))))
(native-inputs
`(("perl" ,perl)
("pkg-config" ,pkg-config)