02/02: gnu: mcomix: Wrap missing paths.

[guix-commits]

lilyp pushed a commit to branch master
in repository guix.

commit ff4585d147ef3bb55c6cbbd86ca8fc582ad6b561
Author: Liliana Marie Prikler <liliana.prikler@gmail.com>
AuthorDate: Fri Mar 25 23:45:51 2022 +0100

    gnu: mcomix: Wrap missing paths.
    
    * 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 97f09aebb5..09c448e8f5 100644
--- a/gnu/packages/image-viewers.scm
+++ b/gnu/packages/image-viewers.scm
@@ -675,9 +675,14 @@ imaging.  It supports several HDR and LDR image formats, 
and it can:
          "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
@@ -698,7 +703,17 @@ imaging.  It supports several HDR and LDR image formats, 
and it can:
                              "/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