02/02: gnu: gnubg: Add desktop file.

[guix-commits]

glv pushed a commit to branch master
in repository guix.

commit 93605bfd25665c181c22cdb2453138b3db1936bd
Author: Guillaume Le Vaillant <address@hidden>
AuthorDate: Wed Jan 15 11:21:36 2020 +0100

    gnu: gnubg: Add desktop file.
    
    * gnu/packages/games.scm (gnubg)[arguments]: Add an 'install-desktop-file'
      phase.
---
 gnu/packages/games.scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index 209307d..975658d 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -866,6 +866,26 @@ destroying an ancient book using a special wand.")
               ("libcanberra" ,libcanberra)))
     (native-inputs `(("python-2" ,python-2)
                      ("pkg-config" ,pkg-config)))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'install-desktop-file
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (apps (string-append out "/share/applications")))
+               (mkdir-p apps)
+               (with-output-to-file (string-append apps "/gnubg.desktop")
+                 (lambda _
+                   (format #t
+                           "[Desktop Entry]~@
+                            Name=GNU Backgammon~@
+                            Exec=~a/bin/gnubg -w~@
+                            Icon=gnubg~@
+                            Categories=Game;~@
+                            Terminal=false~@
+                            Type=Application~%"
+                           out))))
+             #t)))))
     (home-page "https://www.gnu.org/software/gnubg/";)
     (synopsis "Backgammon game")
     (description "The GNU backgammon application (also known as \"gnubg\") can