05/09: gnu: fvwm: Add '.desktop' file.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit c217df913e00327f5c9b779fd97e222c4c22dab9
Author: ng0 <address@hidden>
Date:   Sat Mar 17 15:57:19 2018 +0000

    gnu: fvwm: Add '.desktop' file.
    
    * gnu/packages/fvwm.scm (fvwm)[arguments]: Add new phase to create 
'.desktop' file.
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 gnu/packages/fvwm.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/packages/fvwm.scm b/gnu/packages/fvwm.scm
index 5ff3d5e..a4c31ae 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~@
+                    address@hidden/bin/fvwm~@
+                    Icon=~@
+                    Type=Application~%"
+                           out))))
+             #t)))))
     (native-inputs
      `(("perl" ,perl)
        ("pkg-config" ,pkg-config)