diff options
| author | Guillaume Le Vaillant <glv@posteo.net> | 2023-01-12 14:03:44 +0100 |
|---|---|---|
| committer | Guillaume Le Vaillant <glv@posteo.net> | 2023-01-12 14:06:00 +0100 |
| commit | ef0613a81dca73602e702cb5f5444ee94566f983 (patch) | |
| tree | 384a3db279a111bcb7523dee866ed177507a7023 | |
| parent | 4171b018083068376bb468263429a8af6f701364 (diff) | |
| download | guix-ef0613a81dca73602e702cb5f5444ee94566f983.tar guix-ef0613a81dca73602e702cb5f5444ee94566f983.tar.gz | |
gnu: monero-gui: Add menu entry file.
* gnu/packages/finance.scm (monero-gui)[arguments]: Update 'install' phase to
add icons and menu entry file.
| -rw-r--r-- | gnu/packages/finance.scm | 37 |
1 files changed, 33 insertions, 4 deletions
diff --git a/gnu/packages/finance.scm b/gnu/packages/finance.scm index f5906ec738..ad58721cb3 100644 --- a/gnu/packages/finance.scm +++ b/gnu/packages/finance.scm @@ -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 @@ the Monero command line client and daemon.") "\";"))))) (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. |