aboutsummaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorng0 <ng0@n0.is>2018-03-17 15:57:19 +0000
committerLudovic Courtès <ludo@gnu.org>2018-03-18 00:02:05 +0100
commitc217df913e00327f5c9b779fd97e222c4c22dab9 (patch)
tree64b5f33dd974b9f15f64eacada0f7ca95b6fcf58 /gnu
parent07d2fed2f60c43372446bee5fa2ac779e4acb0eb (diff)
downloadguix-c217df913e00327f5c9b779fd97e222c4c22dab9.tar.gz
guix-c217df913e00327f5c9b779fd97e222c4c22dab9.zip
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>
Diffstat (limited to 'gnu')
-rw-r--r--gnu/packages/fvwm.scm21
1 files changed, 21 insertions, 0 deletions
diff --git a/gnu/packages/fvwm.scm b/gnu/packages/fvwm.scm
index 5ff3d5e4f2..a4c31aefc6 100644
--- a/gnu/packages/fvwm.scm
+++ b/gnu/packages/fvwm.scm
@@ -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)