ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-14 15:10:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: josm: Fix .desktop file.

Browse source 
* gnu/packages/geo.scm (josm)[arguments]: In 'install-share-directories'
phase, change org-openstreetmap-josm-MainApplication to
org-openstreetmap-josm-gui-MainApplication.
This commit is contained in:
Clément Lassieur 2021-09-21 12:24:14 +02:00
parent fd672f30d0
commit f9fd3752f6
No known key found for this signature in database
GPG key ID: 89F96D4808F359C7
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/packages/geo.scm
View file

@ -1524,14 +1524,17 @@ (define-public josm
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")) (let ((out (assoc-ref outputs "out"))
(share-directories '("applications" "icons" "man" "menu" (share-directories '("applications" "icons" "man" "menu"
"metainfo" "mime" "pixmaps"))) "metainfo" "mime" "pixmaps"))
(desktop "org.openstreetmap.josm.desktop"))
(for-each (lambda (directory) (for-each (lambda (directory)
(copy-recursively (string-append (copy-recursively (string-append
"native/linux/tested/usr/share/" "native/linux/tested/usr/share/"
directory) directory)
(string-append (string-append
out "/share/" directory))) out "/share/" directory)))
share-directories)) share-directories)
(substitute* (string-append out "/share/applications/" desktop)
(("josm-MainApplication") "josm-gui-MainApplication")))
#t)) #t))
(add-after 'install 'install-bin (add-after 'install 'install-bin
(lambda* (#:key outputs inputs #:allow-other-keys) (lambda* (#:key outputs inputs #:allow-other-keys)