futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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 Adriano Peluso <catonano@gmail.com>
;;; Copyright © 2018-2022 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2018-2022 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net> ;;; 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 Tanguy Le Carrour <tanguy@bioneland.org>
;;; Copyright © 2019, 2020 Martin Becze <mjbecze@riseup.net> ;;; Copyright © 2019, 2020 Martin Becze <mjbecze@riseup.net>
;;; Copyright © 2019 Sebastian Schott <sschott@mailbox.org> ;;; Copyright © 2019 Sebastian Schott <sschott@mailbox.org>
@ -873,9 +873,38 @@ the Monero command line client and daemon.")
"\";"))))) "\";")))))
(replace 'install (replace 'install
(lambda _ (lambda _
(let ((bin (string-append #$output "/bin"))) ;; Binary
(mkdir-p bin) (let ((dir (string-append #$output "/bin")))
(install-file "../build/bin/monero-wallet-gui" 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 (add-after 'qt-wrap 'install-monerod-link
;; The monerod program must be available so that ;; The monerod program must be available so that
;; monero-wallet-gui can start a Monero daemon if necessary. ;; monero-wallet-gui can start a Monero daemon if necessary.