tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

gnu: mcomix: Improve package.

Browse Source 
* gnu/packages/image-viewers.scm (mcomix): [arguments]: Relocate after
[build-system]; simplify 'install-data using site-packages; simplify 'gi-wrap
to a single wrap-program invocation.
[inputs]: Add bash-minimal for wrap-program.

Closes: #3070
Change-Id: I59621e15fa2a496e233f4e40be6769750644fa87
Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
This commit is contained in:
Joaquín Aguirrezabalaga
2025-09-28 16:49:49 +02:00
committed by 宋文武
parent 6be4cabca2
commit c0c36654bd
1 changed files with 11 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
gnu/packages/image-viewers.scm
View File

@@ -31,6 +31,7 @@
;;; Copyright © 2024 Artyom V. Poptsov <poptsov.artyom@gmail.com>
;;; Copyright © 2025 Ashish SHUKLA <ashish.is@lostca.se>
;;; Copyright © 2025 Mathieu Laparie <mlaparie@disr.it>
;;; Copyright © 2025 Joaquín Aguirrezabalaga <kinote@kinote.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -722,9 +723,6 @@ imaging. It supports several HDR and LDR image formats, and it can:
(base32
"09y4nhlcqvvhz0wscx4zpqxmyhiwh8wrjnhk52awxhzvgyx6wa7r"))))
(build-system pyproject-build-system)
(native-inputs (list python-setuptools))
(inputs
(list p7zip python python-pillow python-pygobject python-pycairo gtk+))
(arguments
(list
#:imported-modules `(,@%pyproject-build-system-modules
@@ -746,31 +744,28 @@ imaging. It supports several HDR and LDR image formats, and it can:
(("assert name not in supported_formats_gdk")
"if name in supported_formats_gdk: continue"))))
(add-after 'install 'install-data
(lambda* (#:key outputs #:allow-other-keys)
(lambda* (#:key inputs outputs #:allow-other-keys)
(with-directory-excursion "mcomix"
(for-each
(lambda (subdir)
(copy-recursively
subdir
(string-append
(assoc-ref outputs "out")
"/lib/python"
#$(version-major+minor
(package-version (this-package-input "python")))
"/site-packages/mcomix/" subdir)))
(site-packages inputs outputs)
"/mcomix/" subdir)))
'("images" "messages")))))
(add-after 'install 'glib-or-gtk-compile-schemas
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
(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")))))))))
(lambda _
(let ((prog (string-append #$output "/bin/mcomix")))
(wrap-program prog
`("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
(native-inputs (list python-setuptools))
(inputs
(list bash-minimal p7zip python python-pillow python-pygobject python-pycairo gtk+))
(home-page "https://sourceforge.net/p/mcomix/wiki/Home/")
(synopsis "Image viewer for comics")
(description "MComix is a customizable image viewer that specializes as