branch master updated: gnu: josm: Fix .desktop file.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

snape pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new f9fd375  gnu: josm: Fix .desktop file.
f9fd375 is described below

commit f9fd3752f6956b5654884036823fde5ef235b51a
Author: Clément Lassieur <clement@lassieur.org>
AuthorDate: Tue Sep 21 12:24:14 2021 +0200

    gnu: josm: Fix .desktop file.
    
    * gnu/packages/geo.scm (josm)[arguments]: In 'install-share-directories'
    phase, change org-openstreetmap-josm-MainApplication to
    org-openstreetmap-josm-gui-MainApplication.
---
 gnu/packages/geo.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/geo.scm b/gnu/packages/geo.scm
index 791fd5f..9d4a1a8 100644
--- a/gnu/packages/geo.scm
+++ b/gnu/packages/geo.scm
@@ -1524,14 +1524,17 @@ to the OSM opening hours specification.")
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((out               (assoc-ref outputs "out"))
                    (share-directories '("applications" "icons" "man" "menu"
-                                        "metainfo" "mime" "pixmaps")))
+                                        "metainfo" "mime" "pixmaps"))
+                   (desktop "org.openstreetmap.josm.desktop"))
                (for-each (lambda (directory)
                            (copy-recursively (string-append
                                               "native/linux/tested/usr/share/"
                                               directory)
                                              (string-append
                                               out "/share/" directory)))
-                         share-directories))
+                         share-directories)
+               (substitute* (string-append out "/share/applications/" desktop)
+                 (("josm-MainApplication") "josm-gui-MainApplication")))
              #t))
          (add-after 'install 'install-bin
            (lambda* (#:key outputs inputs #:allow-other-keys)