me
/
guix
Archived
1
0
Fork 0
Code

gnu: monero-gui: Add menu entry file. 

* gnu/packages/finance.scm (monero-gui)[arguments]: Update 'install' phase to
  add icons and menu entry file.
master
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 @@ 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.