Browse Source

gnu: icedove: Add a desktop file.

* gnu/packages/gnuzilla.scm (icedove)[phases]: Add install-desktop-file phase.

Signed-off-by: Marius Bakke <mbakke@fastmail.com>
wip-hurd-vm
Jonathan Brielmaier 2 years ago
committed by Marius Bakke
parent
commit
964ba6567d
No known key found for this signature in database GPG Key ID: A2A06DF2A33A54FA
  1. 26
      gnu/packages/gnuzilla.scm

26
gnu/packages/gnuzilla.scm

@ -1344,6 +1344,32 @@ standards of the IceCat project.")
(lambda _ (invoke "./mach" "build")))
(replace 'install
(lambda _ (invoke "./mach" "install")))
;; Thunderbird doesn't provide any .desktop file.
;; See https://bugzilla.mozilla.org/show_bug.cgi?id=1637575
(add-after 'install 'install-desktop-file
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(apps (string-append out "/share/applications")))
(mkdir-p apps)
(with-output-to-file (string-append apps "/icedove.desktop")
(lambda _
(format #t
"[Desktop Entry]~@
Name=Icedove~@
Exec=~a/bin/icedove~@
Icon=icedove~@
GenericName=Mail/News Client~@
Categories=Network;Email;~@
Terminal=false~@
StartupNotify=true~@
MimeType=x-scheme-handler/mailto;~@
Type=Application~@
Actions=ComposeMessage;~@
[Desktop Action ComposeMessage]~@
Name=Write new message~@
Exec=~@*~a/bin/icedove -compose~%"
out))))
#t))
(add-after 'install 'wrap-program
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))

Loading…
Cancel
Save