[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#54558: [PATCH 2/2] gnu: mcomix: Wrap missing paths.
From: |
Liliana Marie Prikler |
Subject: |
bug#54558: [PATCH 2/2] gnu: mcomix: Wrap missing paths. |
Date: |
Fri, 25 Mar 2022 23:45:51 +0100 |
* gnu/packages/image-viewers.scm (mcomix)[inputs]: Add gtk+.
[arguments]<#:imported-modules,#:modules>: New arguments.
<#:phases>: Add ‘glib-or-gtk-wrap’ and ‘gi-wrap’.
---
gnu/packages/image-viewers.scm | 19 +++++++++++++++++--
1 file changed, 17 insertions(+), 2 deletions(-)
diff --git a/gnu/packages/image-viewers.scm b/gnu/packages/image-viewers.scm
index 1c325cd8a7..134ffc563a 100644
--- a/gnu/packages/image-viewers.scm
+++ b/gnu/packages/image-viewers.scm
@@ -675,9 +675,14 @@ (define-public mcomix
"187ca815vxb2in1ryvfiaf1zapi0bc9jxdac3c1bky0kr6x7xyap"))))
(build-system python-build-system)
(inputs
- (list p7zip python python-pillow python-pygobject python-pycairo))
+ (list p7zip python python-pillow python-pygobject python-pycairo gtk+))
(arguments
(list
+ #:imported-modules `(,@%python-build-system-modules
+ (guix build glib-or-gtk-build-system))
+ #:modules '((guix build python-build-system)
+ ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
+ (guix build utils))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-source
@@ -699,7 +704,17 @@ (define-public mcomix
"/lib/python"
#$(version-major+minor
(package-version (this-package-input
"python")))
- "/site-packages/mcomix/images")))))))
+ "/site-packages/mcomix/images"))))
+ (add-after 'glib-or-gtk-compile-schemas 'glib-or-gtk-wrap
+ (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))
+ (add-after 'wrap 'gi-wrap
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((bin (string-append (assoc-ref outputs "out") "/bin")))
+ (for-each
+ (lambda (prog)
+ (wrap-program prog
+ `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))
+ (list (string-append bin "/mcomix")))))))))
(home-page "https://sourceforge.net/p/mcomix/wiki/Home/")
(synopsis "Image viewer for comics")
(description "MComix is a customizable image viewer that specializes as
--
2.34.0