ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-13 14:40:21 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: mcomix: Wrap missing paths.

Browse source 
* gnu/packages/image-viewers.scm (mcomix)[inputs]: Add gtk+.
[arguments]<#:imported-modules,#:modules>: New arguments.
<#:phases>: Add ‘glib-or-gtk-wrap’ and ‘gi-wrap’.
This commit is contained in:
Liliana Marie Prikler 2022-03-25 23:45:51 +01:00
parent 8358ad36c6
commit ff4585d147
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 17 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
gnu/packages/image-viewers.scm
View file

@ -675,9 +675,14 @@ (define-public mcomix
"187ca815vxb2in1ryvfiaf1zapi0bc9jxdac3c1bky0kr6x7xyap")))) "187ca815vxb2in1ryvfiaf1zapi0bc9jxdac3c1bky0kr6x7xyap"))))
(build-system python-build-system) (build-system python-build-system)
(inputs (inputs
(list p7zip python python-pillow python-pygobject python-pycairo)) (list p7zip python python-pillow python-pygobject python-pycairo gtk+))
(arguments (arguments
(list (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 #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-source (add-after 'unpack 'patch-source
@ -698,7 +703,17 @@ (define-public mcomix
"/lib/python" "/lib/python"
#$(version-major+minor #$(version-major+minor
(package-version (this-package-input "python"))) (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/") (home-page "https://sourceforge.net/p/mcomix/wiki/Home/")
(synopsis "Image viewer for comics") (synopsis "Image viewer for comics")
(description "MComix is a customizable image viewer that specializes as (description "MComix is a customizable image viewer that specializes as