diff options
| author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2022-03-25 23:45:51 +0100 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2022-03-26 08:52:40 +0100 |
| commit | ff4585d147ef3bb55c6cbbd86ca8fc582ad6b561 (patch) | |
| tree | 314f10c9cf2b03b24d0ad74e3d2dad500441be52 /gnu | |
| parent | 8358ad36c63b8060631ba0fb67a42ebd57a87034 (diff) | |
| download | guix-ff4585d147ef3bb55c6cbbd86ca8fc582ad6b561.tar.gz | |
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’.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/packages/image-viewers.scm | 19 |
1 files 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 |