Subject: fvwm: Add .desktop file

From: ng0 <[email-masked]>
Date: Sat, 17 Mar 2018 18:35:40 +0000

This patch adds a .desktop file for FVWM so that it can be started from SLIM & friends.
-- 
A88C8ADD129828D7EAC02E52E22F9BBFEE348588
https://n0.is

From 2a5c19c089ba5cece58e9f681aba8ed9ec9a6f0e Mon Sep 17 00:00:00 2001
From: ng0 <[email-masked]>
Date: Sat, 17 Mar 2018 15:57:19 +0000
Subject: [PATCH] gnu: fvwm: Add '.desktop' file.

* gnu/packages/fvwm.scm (fvwm)[arguments]: Add new phase to create '.desktop' file.
---
 gnu/packages/fvwm.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/packages/fvwm.scm b/gnu/packages/fvwm.scm
index 5ff3d5e4f..a4c31aefc 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)
-- 
2.16.2