all messages for Guix-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* [bug#34576] Calibre: Add icon and desktop file to Calibre
@ 2019-02-19 18:26 pkill9
  2019-02-19 21:26 ` Ricardo Wurmus
  2020-10-01  3:18 ` bug#34576: " Michael Rohleder
  0 siblings, 2 replies; 8+ messages in thread
From: pkill9 @ 2019-02-19 18:26 UTC (permalink / raw)
  To: 34576

[-- Attachment #1: Type: text/plain, Size: 113 bytes --]

This patch adds two phases to the package definition for Calibre that install an icon and install a desktop file.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-gnu-calibre-Add-icon-and-desktop-file.patch --]
[-- Type: text/x-patch; name="0001-gnu-calibre-Add-icon-and-desktop-file.patch", Size: 2169 bytes --]

From 894a471083105a182d548c2b80effb0eb70c8fa6 Mon Sep 17 00:00:00 2001
From: Pkill -9 <pkill9@runbox.com>
Date: Tue, 19 Feb 2019 18:23:37 +0000
Subject: [PATCH] gnu: calibre: Add icon and desktop file.

* gnu/packages/ebook.scm (calibre): Add icon and desktop file.
---
 gnu/packages/ebook.scm | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/ebook.scm b/gnu/packages/ebook.scm
index 99e49bc17..ae899e04b 100644
--- a/gnu/packages/ebook.scm
+++ b/gnu/packages/ebook.scm
@@ -185,7 +185,32 @@
               (setenv "PODOFO_INC_DIR" (string-append podofo "/include/podofo"))
               (setenv "PODOFO_LIB_DIR" (string-append podofo "/lib"))
               #t)))
-         (add-after 'install 'install-font-liberation
+         (add-after 'install 'install-icon
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out")))
+               (install-file "imgsrc/calibre.svg"
+                             (string-append out
+                                            "/share/icons/hicolor/scalable/apps")))
+             #t))
+         (add-after 'install-icon 'install-desktop-file
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (mkdir-p (string-append out "/share/applications"))
+               (with-output-to-file
+                   (string-append out "/share/applications/calibre.desktop")
+                 (lambda _
+                   (format #t
+                           "[Desktop Entry]~@
+                Name=Calibre~@
+                Comment=E-book organiser and reader~@
+                Exec=~a/bin/calibre~@
+                TryExec=~@*~a/bin/calibre~@
+                Icon=calibre~@
+                Categories=Office~@
+                Type=Application~%"
+                           out)))
+               #t)))
+         (add-after 'install-desktop-file 'install-font-liberation
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (for-each (lambda (file)
                          (install-file file (string-append
-- 
2.20.1


^ permalink raw reply related	[flat|nested] 8+ messages in thread

end of thread, other threads:[~2020-10-01  3:19 UTC | newest]

Thread overview: 8+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2019-02-19 18:26 [bug#34576] Calibre: Add icon and desktop file to Calibre pkill9
2019-02-19 21:26 ` Ricardo Wurmus
2019-02-20  4:30   ` pkill9
2019-02-20  5:00     ` Brett Gilio
2019-02-20  5:06   ` pkill9
2019-02-20 14:08     ` Tobias Geerinckx-Rice
2019-02-20 14:25     ` Tobias Geerinckx-Rice
2020-10-01  3:18 ` bug#34576: " Michael Rohleder

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/guix.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.