ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: monero-gui: Add menu entry file.

Browse source 
* gnu/packages/finance.scm (monero-gui)[arguments]: Update 'install' phase to
  add icons and menu entry file.
This commit is contained in:
Guillaume Le Vaillant 2023-01-12 14:03:44 +01:00
parent 4171b01808
commit ef0613a81d
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F
1 changed files with 33 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
gnu/packages/finance.scm
View file

@ -11,7 +11,7 @@
;;; Copyright © 2018 Adriano Peluso <catonano@gmail.com>
;;; Copyright © 2018-2022 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2019, 2020, 2021, 2022 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019-2023 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org>
;;; Copyright © 2019, 2020 Martin Becze <mjbecze@riseup.net>
;;; Copyright © 2019 Sebastian Schott <sschott@mailbox.org>
@ -873,9 +873,38 @@ (define-public monero-gui
"\";")))))
(replace 'install
(lambda _
(let ((bin (string-append #$output "/bin")))
(mkdir-p bin)
(install-file "../build/bin/monero-wallet-gui" bin))))
;; Binary
(let ((dir (string-append #$output "/bin")))
(mkdir-p dir)
(install-file "../build/bin/monero-wallet-gui" dir))
;; Icons
(for-each
(lambda (size)
(let ((dir (string-append #$output
"/share/icons/hicolor/"
size
"/apps")))
(mkdir-p dir)
(copy-file (string-append "../source/images/appicons/"
size ".png")
(string-append dir
"/monero-gui.png"))))
'("16x16" "24x24" "32x32" "48x48"
"64x64" "96x96" "128x128" "256x256"))
;; Menu entry file
(let ((dir (string-append #$output "/share/applications")))
(mkdir-p dir)
(call-with-output-file
(string-append dir "/monero-gui.desktop")
(lambda (port)
(format port
"[Desktop Entry]~@
Type=Application~@
Name=Monero wallet~@
Exec=~a/bin/monero-wallet-gui~@
Icon=monero-gui~@
Categories=Office;Finance;~%"
#$output))))))
(add-after 'qt-wrap 'install-monerod-link
;; The monerod program must be available so that
;; monero-wallet-gui can start a Monero daemon if necessary.